From 9e574685ba752fd09cdf1aa88fa5ea77a7719d99 Mon Sep 17 00:00:00 2001 From: mjreno Date: Wed, 19 Jul 2023 20:09:09 -0400 Subject: [PATCH] rename with C variable suffix for maximum clarity --- srcbmi/mf6bmi.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/srcbmi/mf6bmi.f90 b/srcbmi/mf6bmi.f90 index ab8df14125e..d8a1b55c798 100644 --- a/srcbmi/mf6bmi.f90 +++ b/srcbmi/mf6bmi.f90 @@ -36,8 +36,8 @@ module mf6bmi integer(c_int), bind(C, name="ISTDOUTTOFILE") :: istdout_to_file = 1 !< output control: =0 to screen, >0 to file !DIR$ ATTRIBUTES DLLEXPORT :: istdout_to_file - integer(c_int), bind(C, name="ISIM_MODE") :: sim_mode = MNORMAL !< simulation mode MVALIDATE=0, MNORMAL=1, MRUN=2 - !DIR$ ATTRIBUTES DLLEXPORT :: sim_mode + integer(c_int), bind(C, name="ISIM_MODE_C_INT") :: isim_mode_c_int = MNORMAL !< simulation mode MVALIDATE=0, MNORMAL=1, MRUN=2 + !DIR$ ATTRIBUTES DLLEXPORT :: isim_mode_c_int contains @@ -71,7 +71,7 @@ function bmi_initialize() result(bmi_status) bind(C, name="initialize") ! -- local variables ! ! -- set isim_mode - isim_mode = sim_mode + isim_mode = isim_mode_c_int ! if (istdout_to_file > 0) then ! -- open stdout file mfsim.stdout