Fallback onto "include" for MUMPS when modules not available for "USE".

mlprec/mld_c_mumps_solver.F90

@@ -50,10 +50,13 @@
 !       current image or distributed (and thus exact)
 !
 module mld_c_mumps_solver
-#if defined(HAVE_MUMPS_)
+  use mld_c_base_solver_mod
+#if defined(HAVE_MUMPS_) && defined(HAVE_MUMPS_MODULES_)
   use cmumps_struc_def
 #endif
-  use mld_c_base_solver_mod
+#if defined(HAVE_MUMPS_) && defined(HAVE_MUMPS_INCLUDES_)
+  include 'cmumps_struc.h'
+#endif  
   
 #if defined(LONG_INTEGERS)
   

mlprec/mld_d_mumps_solver.F90

@@ -50,10 +50,13 @@
 !       current image or distributed (and thus exact)
 !
 module mld_d_mumps_solver
-#if defined(HAVE_MUMPS_)
+  use mld_d_base_solver_mod
+#if defined(HAVE_MUMPS_) && defined(HAVE_MUMPS_MODULES_)
   use dmumps_struc_def
 #endif
-  use mld_d_base_solver_mod
+#if defined(HAVE_MUMPS_) && defined(HAVE_MUMPS_INCLUDES_)
+  include 'dmumps_struc.h'
+#endif  
   
 #if defined(LONG_INTEGERS)
   

mlprec/mld_s_mumps_solver.F90

@@ -50,10 +50,13 @@
 !       current image or distributed (and thus exact)
 !
 module mld_s_mumps_solver
-#if defined(HAVE_MUMPS_)
+  use mld_s_base_solver_mod
+#if defined(HAVE_MUMPS_) && defined(HAVE_MUMPS_MODULES_)
   use smumps_struc_def
 #endif
-  use mld_s_base_solver_mod
+#if defined(HAVE_MUMPS_) && defined(HAVE_MUMPS_INCLUDES_)
+  include 'smumps_struc.h'
+#endif  
   
 #if defined(LONG_INTEGERS)
   

mlprec/mld_z_mumps_solver.F90

@@ -50,10 +50,13 @@
 !       current image or distributed (and thus exact)
 !
 module mld_z_mumps_solver
-#if defined(HAVE_MUMPS_)
+  use mld_z_base_solver_mod
+#if defined(HAVE_MUMPS_) && defined(HAVE_MUMPS_MODULES_)
   use zmumps_struc_def
 #endif
-  use mld_z_base_solver_mod
+#if defined(HAVE_MUMPS_) && defined(HAVE_MUMPS_INCLUDES_)
+  include 'zmumps_struc.h'
+#endif  
   
 #if defined(LONG_INTEGERS)