mld2p4-2:

mlprec/impl/mld_ccoarse_bld.f90
 mlprec/impl/mld_dcoarse_bld.f90
 mlprec/impl/mld_scoarse_bld.f90
 mlprec/impl/mld_zcoarse_bld.f90

 fix integer kinds.

mlprec/impl/mld_ccoarse_bld.f90

@@ -73,15 +73,16 @@ subroutine mld_ccoarse_bld(a,desc_a,p,info)
   implicit none
 
   ! Arguments
-  type(psb_cspmat_type), intent(in), target    :: a
+  type(psb_cspmat_type), intent(in), target     :: a
-  type(psb_desc_type), intent(in), target      :: desc_a
+  type(psb_desc_type), intent(in), target       :: desc_a
   type(mld_c_onelev_type), intent(inout),target :: p
-  integer, intent(out)                         :: info
+  integer(psb_ipk_), intent(out)                :: info
 
   ! Local variables
-  character(len=20)      :: name
+  character(len=20)                :: name
-  integer                :: ictxt, np, me, err_act
+  integer(psb_mpik_)               :: ictxt, np, me
-  integer, allocatable   :: ilaggr(:), nlaggr(:)
+  integer(psb_ipk_)                :: err_act
+  integer(psb_ipk_), allocatable   :: ilaggr(:), nlaggr(:)
 
   name='mld_ccoarse_bld'
   if (psb_get_errstatus().ne.0) return 

mlprec/impl/mld_dcoarse_bld.f90

@@ -73,15 +73,16 @@ subroutine mld_dcoarse_bld(a,desc_a,p,info)
   implicit none
 
   ! Arguments
-  type(psb_dspmat_type), intent(in), target    :: a
+  type(psb_dspmat_type), intent(in), target     :: a
-  type(psb_desc_type), intent(in), target      :: desc_a
+  type(psb_desc_type), intent(in), target       :: desc_a
   type(mld_d_onelev_type), intent(inout),target :: p
-  integer, intent(out)                         :: info
+  integer(psb_ipk_), intent(out)                :: info
 
   ! Local variables
-  character(len=20)      :: name
+  character(len=20)                :: name
-  integer                :: ictxt, np, me, err_act
+  integer(psb_mpik_)               :: ictxt, np, me
-  integer, allocatable   :: ilaggr(:), nlaggr(:)
+  integer(psb_ipk_)                :: err_act
+  integer(psb_ipk_), allocatable   :: ilaggr(:), nlaggr(:)
 
   name='mld_dcoarse_bld'
   if (psb_get_errstatus().ne.0) return 

mlprec/impl/mld_scoarse_bld.f90

@@ -73,15 +73,16 @@ subroutine mld_scoarse_bld(a,desc_a,p,info)
   implicit none
 
   ! Arguments
-  type(psb_sspmat_type), intent(in), target    :: a
+  type(psb_sspmat_type), intent(in), target     :: a
-  type(psb_desc_type), intent(in), target      :: desc_a
+  type(psb_desc_type), intent(in), target       :: desc_a
   type(mld_s_onelev_type), intent(inout),target :: p
-  integer, intent(out)                         :: info
+  integer(psb_ipk_), intent(out)                :: info
 
   ! Local variables
-  character(len=20)      :: name
+  character(len=20)                :: name
-  integer                :: ictxt, np, me, err_act
+  integer(psb_mpik_)               :: ictxt, np, me
-  integer, allocatable   :: ilaggr(:), nlaggr(:)
+  integer(psb_ipk_)                :: err_act
+  integer(psb_ipk_), allocatable   :: ilaggr(:), nlaggr(:)
 
   name='mld_scoarse_bld'
   if (psb_get_errstatus().ne.0) return 

mlprec/impl/mld_zcoarse_bld.f90

@@ -73,15 +73,16 @@ subroutine mld_zcoarse_bld(a,desc_a,p,info)
   implicit none
 
   ! Arguments
-  type(psb_zspmat_type), intent(in), target    :: a
+  type(psb_zspmat_type), intent(in), target     :: a
-  type(psb_desc_type), intent(in), target      :: desc_a
+  type(psb_desc_type), intent(in), target       :: desc_a
   type(mld_z_onelev_type), intent(inout),target :: p
-  integer, intent(out)                         :: info
+  integer(psb_ipk_), intent(out)                :: info
 
   ! Local variables
-  character(len=20)      :: name
+  character(len=20)                :: name
-  integer                :: ictxt, np, me, err_act
+  integer(psb_mpik_)               :: ictxt, np, me
-  integer, allocatable   :: ilaggr(:), nlaggr(:)
+  integer(psb_ipk_)                :: err_act
+  integer(psb_ipk_), allocatable   :: ilaggr(:), nlaggr(:)
 
   name='mld_zcoarse_bld'
   if (psb_get_errstatus().ne.0) return