diff --git a/mlprec/mld_c_mumps_solver.F90 b/mlprec/mld_c_mumps_solver.F90
index bdb10d60..62822cf0 100644
--- a/mlprec/mld_c_mumps_solver.F90
+++ b/mlprec/mld_c_mumps_solver.F90
@@ -223,9 +223,9 @@ contains
 
     ! Arguments
     type(mld_c_mumps_solver_type), intent(inout) :: sv 
-    integer :: info
-    Integer :: err_act
-    character(len=20)  :: name='c_mumps_solver_finalize'
+    integer(psb_ipk_) :: info
+    Integer(psb_ipk_) :: err_act
+    character(len=20) :: name='c_mumps_solver_finalize'
 
     call sv%free(info) 
 
diff --git a/mlprec/mld_d_mumps_solver.F90 b/mlprec/mld_d_mumps_solver.F90
index 2f61528a..0be364f4 100644
--- a/mlprec/mld_d_mumps_solver.F90
+++ b/mlprec/mld_d_mumps_solver.F90
@@ -223,9 +223,9 @@ contains
 
     ! Arguments
     type(mld_d_mumps_solver_type), intent(inout) :: sv 
-    integer :: info
-    Integer :: err_act
-    character(len=20)  :: name='d_mumps_solver_finalize'
+    integer(psb_ipk_) :: info
+    Integer(psb_ipk_) :: err_act
+    character(len=20) :: name='d_mumps_solver_finalize'
 
     call sv%free(info) 
 
diff --git a/mlprec/mld_s_mumps_solver.F90 b/mlprec/mld_s_mumps_solver.F90
index 7782d1cc..43792f90 100644
--- a/mlprec/mld_s_mumps_solver.F90
+++ b/mlprec/mld_s_mumps_solver.F90
@@ -223,9 +223,9 @@ contains
 
     ! Arguments
     type(mld_s_mumps_solver_type), intent(inout) :: sv 
-    integer :: info
-    Integer :: err_act
-    character(len=20)  :: name='s_mumps_solver_finalize'
+    integer(psb_ipk_) :: info
+    Integer(psb_ipk_) :: err_act
+    character(len=20) :: name='s_mumps_solver_finalize'
 
     call sv%free(info) 
 
diff --git a/mlprec/mld_z_mumps_solver.F90 b/mlprec/mld_z_mumps_solver.F90
index 8d894c0e..f216f248 100644
--- a/mlprec/mld_z_mumps_solver.F90
+++ b/mlprec/mld_z_mumps_solver.F90
@@ -223,9 +223,9 @@ contains
 
     ! Arguments
     type(mld_z_mumps_solver_type), intent(inout) :: sv 
-    integer :: info
-    Integer :: err_act
-    character(len=20)  :: name='z_mumps_solver_finalize'
+    integer(psb_ipk_) :: info
+    Integer(psb_ipk_) :: err_act
+    character(len=20) :: name='z_mumps_solver_finalize'
 
     call sv%free(info)