diff --git a/src/tce/tce_energy.F b/src/tce/tce_energy.F
index 136c8c58e7..67a88dcd6f 100644
--- a/src/tce/tce_energy.F
+++ b/src/tce/tce_energy.F
@@ -1,6 +1,6 @@
       logical function tce_energy(rtdb,excitedfragment)
 c
-c $Id: tce_energy.F,v 1.63 2007-12-19 16:04:59 jhammond Exp $
+c $Id: tce_energy.F,v 1.64 2007-12-19 18:06:04 jhammond Exp $
 c 
 c Main routine for many-electron theory calculations.
 c Some of the subroutines have been generated by 
@@ -1214,7 +1214,7 @@ c
       endif
       if (quadresp) then
         call tce_e_offset(l_g0_offset,k_g0_offset,size_g0)
-      end
+      endif
       if (needt1) call tce_t1_offset(l_r1_offset,k_r1_offset,size_r1)
       if (needt2) call tce_t2_offset(l_r2_offset,k_r2_offset,size_r2)
       if (needt3) call tce_t3_offset(l_r3_offset,k_r3_offset,size_r3)