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

Type mismatch.

Browse source
This commit is contained in:
rpseng 2025-04-12 06:25:12 -03:00 • committed by edoapra
parent 1c8d04407b
commit 6d9ca570b6
No known key found for this signature in database
GPG key ID: 9E6A0B70826967BA
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_input.F
View file

@ -324,7 +324,7 @@ c
cosmo_cavity=COSMO_CAVITY_SES
if (.not.(rtdb_put(rtdb,'cosmo:do_cosmo_model',mt_int,1,
$ do_cosmo_model)
$ .and.rtdb_put(rtdb,'cosmo:cavity',mt_log,1,cosmo_cavity))
$ .and.rtdb_put(rtdb,'cosmo:cavity',mt_int,1,cosmo_cavity))
$ ) call errquit('cosmo_input: rtdb put failed',911, RTDB_ERR)
c
c --- do_cosmo_yk: switch to York-Karplus model; also makes cavity=vdw
@ -334,7 +334,7 @@ c
cosmo_cavity=COSMO_CAVITY_VDW
if (.not.(rtdb_put(rtdb,'cosmo:do_cosmo_model',mt_int,1,
$ do_cosmo_model)
$ .and.rtdb_put(rtdb,'cosmo:cavity',mt_log,1,cosmo_cavity)
$ .and.rtdb_put(rtdb,'cosmo:cavity',mt_int,1,cosmo_cavity)
$ )) call errquit('cosmo_input: rtdb put failed',911, RTDB_ERR)
c
c --- do_cosmo_file flag