Additional fixes for KIND in PSBLAS calls.

mlprec/impl/aggregator/mld_c_dec_aggregator_mat_asb.f90

@@ -98,7 +98,7 @@ subroutine  mld_c_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,&
   type(psb_desc_type), intent(inout)     :: desc_ac
   integer(psb_ipk_), intent(out)         :: info
   !
-  integer(psb_mpk_)              :: ictxt, np, me
+  integer(psb_ipk_)              :: ictxt, np, me
   type(psb_lc_coo_sparse_mat)  :: acoo, bcoo
   type(psb_lc_csr_sparse_mat)  :: acsr1
   type(psb_lcspmat_type)       :: lac, lac1

mlprec/impl/aggregator/mld_d_dec_aggregator_mat_asb.f90

@@ -98,7 +98,7 @@ subroutine  mld_d_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,&
   type(psb_desc_type), intent(inout)     :: desc_ac
   integer(psb_ipk_), intent(out)         :: info
   !
-  integer(psb_mpk_)              :: ictxt, np, me
+  integer(psb_ipk_)              :: ictxt, np, me
   type(psb_ld_coo_sparse_mat)  :: acoo, bcoo
   type(psb_ld_csr_sparse_mat)  :: acsr1
   type(psb_ldspmat_type)       :: lac, lac1

mlprec/impl/aggregator/mld_s_dec_aggregator_mat_asb.f90

@@ -98,7 +98,7 @@ subroutine  mld_s_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,&
   type(psb_desc_type), intent(inout)     :: desc_ac
   integer(psb_ipk_), intent(out)         :: info
   !
-  integer(psb_mpk_)              :: ictxt, np, me
+  integer(psb_ipk_)              :: ictxt, np, me
   type(psb_ls_coo_sparse_mat)  :: acoo, bcoo
   type(psb_ls_csr_sparse_mat)  :: acsr1
   type(psb_lsspmat_type)       :: lac, lac1

mlprec/impl/aggregator/mld_z_dec_aggregator_mat_asb.f90

@@ -98,7 +98,7 @@ subroutine  mld_z_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,&
   type(psb_desc_type), intent(inout)     :: desc_ac
   integer(psb_ipk_), intent(out)         :: info
   !
-  integer(psb_mpk_)              :: ictxt, np, me
+  integer(psb_ipk_)              :: ictxt, np, me
   type(psb_lz_coo_sparse_mat)  :: acoo, bcoo
   type(psb_lz_csr_sparse_mat)  :: acsr1
   type(psb_lzspmat_type)       :: lac, lac1