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

fix break

Browse source
This commit is contained in:
Niri Govind 2012-01-14 00:58:07 +00:00
parent a234d53cfe
commit d9c03b68ca
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/nwdft/lr_tddft/tddft_residual.F
View file

@ -981,8 +981,7 @@ c
else
evl_diff = evl(k,i)-evl(j,i)
endif
c r=r/(evl(k,i)-evl(j,i)-apbval(n))
r=r/(evl_diff-apbval(n))
r=r/(evl(k,i)-evl(j,i)-apbval(n))
call ga_put(g_residuals_2(i),l,l,n,n,r,1)
enddo
enddo