diff --git a/src/tce/tce_energy.F b/src/tce/tce_energy.F
index 67a88dcd6f..d1ac39dec3 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.64 2007-12-19 18:06:04 jhammond Exp $
+c $Id: tce_energy.F,v 1.65 2007-12-20 22:11:53 jhammond Exp $
 c 
 c Main routine for many-electron theory calculations.
 c Some of the subroutines have been generated by 
@@ -1663,6 +1663,8 @@ c
 c temporary evaluation step
 c
 ccc
+          cpu=-util_cpusec()
+          wall=-util_wallsec()
           do axisA = 1, 3
           do axisB = 1, axisA
           if (respaxis(axisA).and.respaxis(axisB)) then
@@ -1769,6 +1771,8 @@ c
           endif ! respaxis(axis)
           enddo ! axisB loop
           enddo ! axisA loop
+          cpu=cpu+util_cpusec()
+          wall=wall+util_wallsec()
 c
           if (nodezero) write(LuOut,9434) "CCSD Linear Response",
      1        afreq(omegacount),