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

Merge pull request #785 from edoapra/master

Browse source 
fix for SMD
This commit is contained in:
NWChem: Open Source High-Performance Computational Chemistry 2023-05-22 18:14:14 -07:00 • committed by GitHub
commit 7bdded0d0a
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/solvation/cosmo_initialize.F
View file

@ -341,21 +341,21 @@ c
c if set by the user
c
status = rtdb_get(rtdb,'cosmo:dielec',mt_dbl,1,dielec)
status = status.or.
status = status.and.
S rtdb_get(rtdb,'cosmo:dielecinf',mt_dbl,1,dielecinf)
status = status.or.
status = status.and.
S rtdb_get(rtdb,'cosmo:sola',mt_dbl,1,sola)
status = status.or.
status = status.and.
S rtdb_get(rtdb,'cosmo:solb',mt_dbl,1,solb)
status = status.or.
status = status.and.
S rtdb_get(rtdb,'cosmo:solc',mt_dbl,1,solc)
status = status.or.
status = status.and.
S rtdb_get(rtdb,'cosmo:solg',mt_dbl,1,solg)
status = status.or.
status = status.and.
S rtdb_get(rtdb,'cosmo:solh',mt_dbl,1,solh)
status = status.or.
status = status.and.
S rtdb_get(rtdb,'cosmo:soln',mt_dbl,1,soln)
status = status.or.
status = status.and.
S rtdb_get(rtdb,'cosmo:icds',mt_int,1,icds)
if(.not.status) then
if(odbug.and.me.eq.0)