Additional fixes for KIND in PSBLAS calls.

mlprec/mld_c_mumps_solver.F90

@@ -127,7 +127,7 @@ module mld_c_mumps_solver
       character(len=1),intent(in)           :: trans
       complex(psb_spk_),target, intent(inout) :: work(:)
       type(psb_c_vect_type),intent(inout) :: wv(:)
-      integer, intent(out)                 :: info
+      integer(psb_ipk_), intent(out)                 :: info
       character, intent(in), optional                :: init
       type(psb_c_vect_type),intent(inout), optional   :: initu
     end subroutine c_mumps_solver_apply_vect

mlprec/mld_d_mumps_solver.F90

@@ -127,7 +127,7 @@ module mld_d_mumps_solver
       character(len=1),intent(in)           :: trans
       real(psb_dpk_),target, intent(inout) :: work(:)
       type(psb_d_vect_type),intent(inout) :: wv(:)
-      integer, intent(out)                 :: info
+      integer(psb_ipk_), intent(out)                 :: info
       character, intent(in), optional                :: init
       type(psb_d_vect_type),intent(inout), optional   :: initu
     end subroutine d_mumps_solver_apply_vect

mlprec/mld_s_mumps_solver.F90

@@ -127,7 +127,7 @@ module mld_s_mumps_solver
       character(len=1),intent(in)           :: trans
       real(psb_spk_),target, intent(inout) :: work(:)
       type(psb_s_vect_type),intent(inout) :: wv(:)
-      integer, intent(out)                 :: info
+      integer(psb_ipk_), intent(out)                 :: info
       character, intent(in), optional                :: init
       type(psb_s_vect_type),intent(inout), optional   :: initu
     end subroutine s_mumps_solver_apply_vect

mlprec/mld_z_mumps_solver.F90

@@ -127,7 +127,7 @@ module mld_z_mumps_solver
       character(len=1),intent(in)           :: trans
       complex(psb_dpk_),target, intent(inout) :: work(:)
       type(psb_z_vect_type),intent(inout) :: wv(:)
-      integer, intent(out)                 :: info
+      integer(psb_ipk_), intent(out)                 :: info
       character, intent(in), optional                :: init
       type(psb_z_vect_type),intent(inout), optional   :: initu
     end subroutine z_mumps_solver_apply_vect