mld2p4-2:

mlprec/mld_c_slu_solver.F90
 mlprec/mld_c_slu_solver.f90
 mlprec/mld_c_sludist_solver.F90
 mlprec/mld_c_sludist_solver.f90
 mlprec/mld_c_umf_solver.F90
 mlprec/mld_c_umf_solver.f90
 mlprec/mld_d_slu_solver.F90
 mlprec/mld_d_slu_solver.f90
 mlprec/mld_d_sludist_solver.F90
 mlprec/mld_d_sludist_solver.f90
 mlprec/mld_d_umf_solver.F90
 mlprec/mld_d_umf_solver.f90
 mlprec/mld_s_slu_solver.F90
 mlprec/mld_s_slu_solver.f90
 mlprec/mld_s_sludist_solver.F90
 mlprec/mld_s_sludist_solver.f90
 mlprec/mld_s_umf_solver.F90
 mlprec/mld_s_umf_solver.f90
 mlprec/mld_z_slu_solver.F90
 mlprec/mld_z_slu_solver.f90
 mlprec/mld_z_sludist_solver.F90
 mlprec/mld_z_sludist_solver.f90
 mlprec/mld_z_umf_solver.F90
 mlprec/mld_z_umf_solver.f90

Step 2 of integer types parametrization for long integers: get the
external stuff out of the way (for the time being).

mlprec/mld_c_slu_solver.F90

@@ -48,6 +48,10 @@ module mld_c_slu_solver
   use iso_c_binding
   use mld_c_base_solver_mod
 
+#if defined(LONG_INTEGERS)
+  type, extends(mld_c_base_solver_type) :: mld_c_slu_solver_type
+  end type mld_c_slu_solver_type
+#else
   type, extends(mld_c_base_solver_type) :: mld_c_slu_solver_type
     type(c_ptr)                 :: lufactors=c_null_ptr
     integer(c_long_long)        :: symbsize=0, numsize=0
@@ -455,5 +459,5 @@ contains
     val = val + sv%numsize
     return
   end function c_slu_solver_sizeof
-
+#endif
 end module mld_c_slu_solver

mlprec/mld_c_sludist_solver.F90

@@ -48,6 +48,13 @@ module mld_c_sludist_solver
   use iso_c_binding
   use mld_c_base_solver_mod
 
+#if defined(LONG_INTEGERS) 
+
+  type, extends(mld_c_base_solver_type) :: mld_c_sludist_solver_type
+  end type mld_c_sludist_solver_type
+
+#else 
+
   type, extends(mld_c_base_solver_type) :: mld_c_sludist_solver_type
     type(c_ptr)                 :: lufactors=c_null_ptr
     integer(c_long_long)        :: symbsize=0, numsize=0
@@ -459,5 +466,5 @@ contains
     val = val + sv%numsize
     return
   end function c_sludist_solver_sizeof
-
+#endif
 end module mld_c_sludist_solver

mlprec/mld_c_umf_solver.F90

@@ -48,6 +48,10 @@ module mld_c_umf_solver
   use iso_c_binding
   use mld_c_base_solver_mod
 
+#if defined(LONG_INTEGERS)
+  type, extends(mld_c_base_solver_type) :: mld_c_umf_solver_type
+  end type mld_c_umf_solver_type
+#else 
   type, extends(mld_c_base_solver_type) :: mld_c_umf_solver_type
     type(c_ptr)                 :: symbolic=c_null_ptr, numeric=c_null_ptr
     integer(c_long_long)        :: symbsize=0, numsize=0
@@ -458,5 +462,5 @@ contains
     val = val + sv%numsize
     return
   end function c_umf_solver_sizeof
-
+#endif
 end module mld_c_umf_solver

mlprec/mld_d_slu_solver.F90

@@ -47,7 +47,13 @@ module mld_d_slu_solver
 
   use iso_c_binding
   use mld_d_base_solver_mod
+#if defined(LONG_INTEGERS)
+  
+  type, extends(mld_d_base_solver_type) :: mld_d_slu_solver_type
 
+  end type mld_d_slu_solver_type
+
+#else 
   type, extends(mld_d_base_solver_type) :: mld_d_slu_solver_type
     type(c_ptr)                 :: lufactors=c_null_ptr
     integer(c_long_long)        :: symbsize=0, numsize=0
@@ -453,5 +459,5 @@ contains
     val = val + sv%numsize
     return
   end function d_slu_solver_sizeof
-
+#endif
 end module mld_d_slu_solver

mlprec/mld_d_sludist_solver.F90

@@ -48,6 +48,13 @@ module mld_d_sludist_solver
   use iso_c_binding
   use mld_d_base_solver_mod
 
+#if defined(LONG_INTEGERS)
+
+  type, extends(mld_d_base_solver_type) :: mld_d_sludist_solver_type
+  end type mld_d_sludist_solver_type
+
+#else
+
   type, extends(mld_d_base_solver_type) :: mld_d_sludist_solver_type
     type(c_ptr)                 :: lufactors=c_null_ptr
     integer(c_long_long)        :: symbsize=0, numsize=0
@@ -457,5 +464,5 @@ contains
     val = val + sv%numsize
     return
   end function d_sludist_solver_sizeof
-
+#endif
 end module mld_d_sludist_solver

mlprec/mld_d_umf_solver.F90

@@ -48,6 +48,12 @@ module mld_d_umf_solver
   use iso_c_binding
   use mld_d_base_solver_mod
 
+#if defined(LONG_INTEGERS)
+
+  type, extends(mld_d_base_solver_type) :: mld_d_umf_solver_type
+
+  end type mld_d_umf_solver_type
+#else
   type, extends(mld_d_base_solver_type) :: mld_d_umf_solver_type
     type(c_ptr)                 :: symbolic=c_null_ptr, numeric=c_null_ptr
     integer(c_long_long)        :: symbsize=0, numsize=0
@@ -456,5 +462,5 @@ contains
     val = val + sv%numsize
     return
   end function d_umf_solver_sizeof
-
+#endif
 end module mld_d_umf_solver

mlprec/mld_s_slu_solver.F90

@@ -48,6 +48,14 @@ module mld_s_slu_solver
   use iso_c_binding
   use mld_s_base_solver_mod
 
+#if defined(LONG_INTEGERS)
+  
+  type, extends(mld_s_base_solver_type) :: mld_s_slu_solver_type
+
+  end type mld_s_slu_solver_type
+
+#else 
+  
   type, extends(mld_s_base_solver_type) :: mld_s_slu_solver_type
     type(c_ptr)                 :: lufactors=c_null_ptr
     integer(c_long_long)        :: symbsize=0, numsize=0
@@ -453,5 +461,5 @@ contains
     val = val + sv%numsize
     return
   end function s_slu_solver_sizeof
-
+#endif
 end module mld_s_slu_solver

mlprec/mld_s_sludist_solver.F90

@@ -48,6 +48,13 @@ module mld_s_sludist_solver
   use iso_c_binding
   use mld_s_prec_type
 
+#if defined(LONG_INTEGERS)
+
+  type, extends(mld_s_base_solver_type) :: mld_s_sludist_solver_type
+    
+  end type mld_s_sludist_solver_type
+  
+#else
   type, extends(mld_s_base_solver_type) :: mld_s_sludist_solver_type
     type(c_ptr)                 :: lufactors=c_null_ptr
     integer(c_long_long)        :: symbsize=0, numsize=0
@@ -457,5 +464,5 @@ contains
     val = val + sv%numsize
     return
   end function s_sludist_solver_sizeof
-
+#endif
 end module mld_s_sludist_solver

mlprec/mld_s_umf_solver.F90

@@ -48,6 +48,14 @@ module mld_s_umf_solver
   use iso_c_binding
   use mld_s_base_solver_mod
 
+#if defined(LONG_INTEGERS)
+
+  type, extends(mld_s_base_solver_type) :: mld_s_umf_solver_type
+
+  end type mld_s_umf_solver_type
+  
+#else
+
   type, extends(mld_s_base_solver_type) :: mld_s_umf_solver_type
     type(c_ptr)                 :: symbolic=c_null_ptr, numeric=c_null_ptr
     integer(c_long_long)        :: symbsize=0, numsize=0
@@ -456,5 +464,5 @@ contains
     val = val + sv%numsize
     return
   end function s_umf_solver_sizeof
-
+#endif
 end module mld_s_umf_solver

mlprec/mld_z_slu_solver.F90

@@ -48,6 +48,14 @@ module mld_z_slu_solver
   use iso_c_binding
   use mld_z_base_solver_mod
 
+#if defined(LONG_INTEGERS)
+
+  type, extends(mld_z_base_solver_type) :: mld_z_slu_solver_type
+
+  end type mld_z_slu_solver_type
+
+#else  
+
   type, extends(mld_z_base_solver_type) :: mld_z_slu_solver_type
     type(c_ptr)                 :: lufactors=c_null_ptr
     integer(c_long_long)        :: symbsize=0, numsize=0
@@ -455,5 +463,5 @@ contains
     val = val + sv%numsize
     return
   end function z_slu_solver_sizeof
-
+#endif
 end module mld_z_slu_solver

mlprec/mld_z_sludist_solver.F90

@@ -48,6 +48,12 @@ module mld_z_sludist_solver
   use iso_c_binding
   use mld_z_base_solver_mod
 
+#if defined(LONG_INTEGERS)
+
+  type, extends(mld_z_base_solver_type) :: mld_z_sludist_solver_type
+
+  end type mld_z_sludist_solver_type
+#else
   type, extends(mld_z_base_solver_type) :: mld_z_sludist_solver_type
     type(c_ptr)                 :: lufactors=c_null_ptr
     integer(c_long_long)        :: symbsize=0, numsize=0
@@ -459,5 +465,5 @@ contains
     val = val + sv%numsize
     return
   end function z_sludist_solver_sizeof
-
+#endif
 end module mld_z_sludist_solver

mlprec/mld_z_umf_solver.F90

@@ -48,6 +48,13 @@ module mld_z_umf_solver
   use iso_c_binding
   use mld_z_base_solver_mod
 
+#if defined(LONG_INTEGERS)
+  type, extends(mld_z_base_solver_type) :: mld_z_umf_solver_type
+
+  end type mld_z_umf_solver_type
+
+#else
+  
   type, extends(mld_z_base_solver_type) :: mld_z_umf_solver_type
     type(c_ptr)                 :: symbolic=c_null_ptr, numeric=c_null_ptr
     integer(c_long_long)        :: symbsize=0, numsize=0
@@ -458,5 +465,5 @@ contains
     val = val + sv%numsize
     return
   end function z_umf_solver_sizeof
-
+#endif
 end module mld_z_umf_solver