mirror of
https://github.com/nwchemgit/nwchem.git
synced 2026-07-28 06:05:44 -04:00
Fixing (adding) CCSD-LR polarizability timer
This commit is contained in:
parent
d618b32c29
commit
06bcb2ffd1
1 changed files with 5 additions and 1 deletions
|
|
@ -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),
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue