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

keep compiler quiet

Browse source
This commit is contained in:
edoapra 2022-05-20 11:21:26 -07:00
parent 00c81f5b32
commit 9298929aab
No known key found for this signature in database
GPG key ID: 472C4EBB4F3AEDFA
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/task/task_gradient.F
View file

@ -136,7 +136,7 @@ c
$ gradient))
$ call errquit('task_gradient: no gradient in rtdb?',0,
& RTDB_ERR)
if (rtdb_get(rtdb, 'oniom:dipole', mt_dbl, 3, dipole)) then
if (rtdb_get(rtdb, 'oniom:dipole', mt_dbl,3,dipole(1))) then
if (.not. rtdb_put(rtdb,'task:dipole',mt_dbl,3,dipole))
$ call errquit('task_energy: failed storing dipole',0,
& RTDB_ERR)
@ -563,8 +563,8 @@ c
c
key = ' '
write(key,'(a,'':dipole'')') prefix(1:inp_strlen(prefix))
if (rtdb_get(rtdb, key, mt_dbl, 3, dipole)) then
if (.not. rtdb_put(rtdb, 'task:dipole', mt_dbl, 3, dipole))
if (rtdb_get(rtdb, key, mt_dbl, 3, dipole(1))) then
if (.not. rtdb_put(rtdb, 'task:dipole', mt_dbl,3,dipole(1)))
$ call errquit('task_gradient: failed storing dipole',0,
& RTDB_ERR)
endif