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

yet one more smd fix

Browse source
This commit is contained in:
edoapra 2023-08-12 22:21:50 -07:00
parent 0e3ff1b23f
commit 6b1ec83134
No known key found for this signature in database
GPG key ID: 48E12DA1EDE9E1B0
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/solvation/cosmo_initialize.F
View file

@ -355,7 +355,7 @@ c
if (solvname_short.eq.'unkn') then
solvname_long='unknown'
else
if(.not.status) then
c if(.not.status) then
if(odbug.and.me.eq.0)
& write(luout,*) "calling solv_data for solv:",
S solvname_short
@ -363,7 +363,7 @@ c
& dielec,dielecinf, ! slow and fast components
& sola,solb,solc,solg,solh,soln,icds)) then
call errquit('solv_data failure',0,0)
endif
c endif
endif
endif
c