Fixing (adding) CCSD-LR polarizability timer

This commit is contained in:
Jeff Hammond 2007-12-20 22:11:53 +00:00
parent d618b32c29
commit 06bcb2ffd1

View file

@ -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),