Name mangline 392..

worc4021 · Dec 20, 2024 · abda5e2 · abda5e2
1 parent 2749e1d
commit abda5e2
Showing 1 changed file with 16 additions and 8 deletions.
diff --git a/CMakeLists.txt b/CMakeLists.txt
@@ -19,18 +19,26 @@ find_package(MKL REQUIRED)
 include(FortranCInterface)
 FortranCInterface_VERIFY()
 if (FortranCInterface_GLOBAL_CASE STREQUAL "UPPER")
-    set(F_SYMBOL "MUMPS_##upper_case##${FortranCInterface_GLOBAL_SUFFIX}")
-    set(F_SYM_ARITH_S "SMUMPS_##upper_case##${FortranCInterface_GLOBAL_SUFFIX}")
-    set(F_SYM_ARITH_D "DMUMPS_##upper_case##${FortranCInterface_GLOBAL_SUFFIX}")
-    set(F_SYM_ARITH_Z "ZMUMPS_##upper_case##${FortranCInterface_GLOBAL_SUFFIX}")
-    set(F_SYM_ARITH_C "CMUMPS_##upper_case##${FortranCInterface_GLOBAL_SUFFIX}")
+    set(F_SYMBOL "MUMPS_##upper_case")
+    set(F_SYM_ARITH_S "SMUMPS_##upper_case")
+    set(F_SYM_ARITH_D "DMUMPS_##upper_case")
+    set(F_SYM_ARITH_Z "ZMUMPS_##upper_case")
+    set(F_SYM_ARITH_C "CMUMPS_##upper_case")
 else()
+    set(F_SYMBOL "mumps_##lower_case")
+    set(F_SYM_ARITH_D "dmumps_##lower_case")
+    set(F_SYM_ARITH_S "smumps_##lower_case")
+    set(F_SYM_ARITH_C "cmumps_##lower_case")
+    set(F_SYM_ARITH_Z "zmumps_##lower_case")
+endif(FortranCInterface_GLOBAL_CASE STREQUAL "UPPER")
+
+if (NOT FortranCInterface_GLOBAL_SUFFIX STREQUAL "")
     set(F_SYMBOL "mumps_##lower_case##${FortranCInterface_GLOBAL_SUFFIX}")
-    set(F_SYM_ARITH_D "dmumps_##lower_case##${FortranCInterface_GLOBAL_SUFFIX}")
     set(F_SYM_ARITH_S "smumps_##lower_case##${FortranCInterface_GLOBAL_SUFFIX}")
-    set(F_SYM_ARITH_C "cmumps_##lower_case##${FortranCInterface_GLOBAL_SUFFIX}")
+    set(F_SYM_ARITH_D "dmumps_##lower_case##${FortranCInterface_GLOBAL_SUFFIX}")
     set(F_SYM_ARITH_Z "zmumps_##lower_case##${FortranCInterface_GLOBAL_SUFFIX}")
-endif(FortranCInterface_GLOBAL_CASE STREQUAL "UPPER")
+    set(F_SYM_ARITH_C "cmumps_##lower_case##${FortranCInterface_GLOBAL_SUFFIX}")
+endif()
 
 if (NOT FortranCInterface_GLOBAL_PREFIX STREQUAL "")
     set(F_SYMBOL "#define F_SYMBOL(lower_case,upper_case) ${FortranCInterface_GLOBAL_PREFIX}##${F_SYMBOL}")