comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-29 06:35:39 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

response updates from Fredy Aquino

Browse source
This commit is contained in:
Niri Govind 2013-01-04 18:07:15 +00:00
parent 05c8a63e1a
commit d1478ea410
2 changed files with 14 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/property/CalcPerturbedTDPmat1.F
View file

@ -101,10 +101,10 @@ c assign + and - components for indexing amat:
im = 2
endif
if (ga_nodeid().eq.0) then
write(*,1) ip,im,lstatic
1 format('(ip,im,lstatic)=(',i3,',',i3,',',L1,')')
endif
c if (ga_nodeid().eq.0) then
c write(*,1) ip,im,lstatic
c1 format('(ip,im,lstatic)=(',i3,',',i3,',',L1,')')
c endif
do ipm = 1,ncomp
call ga_zero(g_pmats(ipm))

10
src/property/prop_input.F
View file

@ -663,6 +663,16 @@ c ... jochen: write cphf iteration threshold if set by input
$ convergence ))
$ call errquit('prop_input: rtdb_put failed', 0, RTDB_ERR)
endif ! aor_conv
c ----- FA-11-30-12: Adding new parameter: aor_damp ---- START
if (aor_damp.eq.0) then ! FA-06-06-12
if (.not. rtdb_put(rtdb, 'cphf:cphf3write', mt_int, 1,
$ cphf3write))
$ call errquit('prop_input: rtdb_put failed', 0, RTDB_ERR)
if (.not. rtdb_put(rtdb, 'cphf:checkorth', mt_int, 1,
$ checkorth))
$ call errquit('prop_input: rtdb_put failed', 0, RTDB_ERR)
endif ! aor_damp
c ----- FA-11-30-12: Adding new parameter: aor_damp ---- END
if (.not. rtdb_put(rtdb, 'aoresponse:gamwidth', mt_dbl, 1,
$ gamwidth ))
$ call errquit('prop_input: rtdb_put failed', 0, RTDB_ERR)