Fix issue with KIND for calling PSBLAS.

mlprec/mld_c_mumps_solver.F90

@@ -223,8 +223,8 @@ 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'
 
     call sv%free(info) 

mlprec/mld_d_mumps_solver.F90

@@ -223,8 +223,8 @@ 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'
 
     call sv%free(info) 

mlprec/mld_s_mumps_solver.F90

@@ -223,8 +223,8 @@ 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'
 
     call sv%free(info) 

mlprec/mld_z_mumps_solver.F90

@@ -223,8 +223,8 @@ 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'
 
     call sv%free(info)