comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 22:25:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Oops: ending if(quadresp) with endif (not end)

Browse source
This commit is contained in:
Jeff Hammond 2007-12-19 18:06:04 +00:00
parent 47c628c95e
commit 0a8ea489e9
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/tce/tce_energy.F
View file

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