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

missing arg

Browse source
This commit is contained in:
edoapra 2022-10-30 19:40:04 -07:00
parent 5b33bc734c
commit 6fbf893ef8
No known key found for this signature in database
GPG key ID: 472C4EBB4F3AEDFA
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/stepper/stpr_gh_at.F
View file

@ -369,7 +369,8 @@ c
endif
if(.not. rtdb_get(rtdb,'task:gradient',MT_DBL,
& rank_hess,dbl_mb(k_gradm)))
& call errquit('stpr_gen_hess_at: rtdb_get failed',38)
& call errquit('stpr_gen_hess_at: rtdb_get failed',38,
R RTDB_ERR)
if(.not. rtdb_get(rtdb,'task:dipole',mt_dbl,
& 3,mdipole)) dipole_okay = .false.
endif