Fix issue with KIND for calling PSBLAS.

mlprec/mld_c_mumps_solver.F90

@@ -223,9 +223,9 @@ contains
 
     ! Arguments
     type(mld_c_mumps_solver_type), intent(inout) :: sv 
-    integer :: info
+    integer(psb_ipk_) :: info
-    Integer :: err_act
+    Integer(psb_ipk_) :: err_act
-    character(len=20)  :: name='c_mumps_solver_finalize'
+    character(len=20) :: name='c_mumps_solver_finalize'
 
     call sv%free(info) 
 

mlprec/mld_d_mumps_solver.F90

@@ -223,9 +223,9 @@ contains
 
     ! Arguments
     type(mld_d_mumps_solver_type), intent(inout) :: sv 
-    integer :: info
+    integer(psb_ipk_) :: info
-    Integer :: err_act
+    Integer(psb_ipk_) :: err_act
-    character(len=20)  :: name='d_mumps_solver_finalize'
+    character(len=20) :: name='d_mumps_solver_finalize'
 
     call sv%free(info) 
 

mlprec/mld_s_mumps_solver.F90

@@ -223,9 +223,9 @@ contains
 
     ! Arguments
     type(mld_s_mumps_solver_type), intent(inout) :: sv 
-    integer :: info
+    integer(psb_ipk_) :: info
-    Integer :: err_act
+    Integer(psb_ipk_) :: err_act
-    character(len=20)  :: name='s_mumps_solver_finalize'
+    character(len=20) :: name='s_mumps_solver_finalize'
 
     call sv%free(info) 
 

mlprec/mld_z_mumps_solver.F90

@@ -223,9 +223,9 @@ contains
 
     ! Arguments
     type(mld_z_mumps_solver_type), intent(inout) :: sv 
-    integer :: info
+    integer(psb_ipk_) :: info
-    Integer :: err_act
+    Integer(psb_ipk_) :: err_act
-    character(len=20)  :: name='z_mumps_solver_finalize'
+    character(len=20) :: name='z_mumps_solver_finalize'
 
     call sv%free(info)