From 6d9ca570b620a0933c061b9baa5cf0c7ca9c8d77 Mon Sep 17 00:00:00 2001 From: rpseng Date: Sat, 12 Apr 2025 06:25:12 -0300 Subject: [PATCH] Type mismatch. --- src/solvation/cosmo_input.F | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/solvation/cosmo_input.F b/src/solvation/cosmo_input.F index 9e21bcb9af..b457a084c1 100644 --- a/src/solvation/cosmo_input.F +++ b/src/solvation/cosmo_input.F @@ -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