Take out spurious "mpik"

7 years ago · b5b2a808d4
parent 62cb1e86e8
commit b5b2a808d4
14 changed files with 14 additions and 14 deletions
--- a/mlprec/impl/aggregator/mld_c_dec_aggregator_mat_asb.f90
+++ b/mlprec/impl/aggregator/mld_c_dec_aggregator_mat_asb.f90
@ -147,7 +147,7 @@ subroutine  mld_c_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,ac,op_p

  ! Local variables
  character(len=20)             :: name
-  integer(psb_mpik_)            :: ictxt, np, me
+  integer(psb_mpk_)            :: ictxt, np, me
  type(psb_c_coo_sparse_mat) :: acoo, bcoo
  type(psb_c_csr_sparse_mat) :: acsr1
  integer(psb_ipk_)            :: nzl,ntaggr
--- a/mlprec/impl/aggregator/mld_c_dec_aggregator_tprol.f90
+++ b/mlprec/impl/aggregator/mld_c_dec_aggregator_tprol.f90
@ -87,7 +87,7 @@ subroutine  mld_c_dec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_

  ! Local variables
  character(len=20)            :: name
-  integer(psb_mpik_)           :: ictxt, np, me
+  integer(psb_mpk_)           :: ictxt, np, me
  integer(psb_ipk_)            :: err_act
  integer(psb_ipk_)            :: ntaggr
  integer(psb_ipk_)            :: debug_level, debug_unit
--- a/mlprec/impl/aggregator/mld_c_symdec_aggregator_tprol.f90
+++ b/mlprec/impl/aggregator/mld_c_symdec_aggregator_tprol.f90
@ -91,7 +91,7 @@ subroutine  mld_c_symdec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,
  ! Local variables
  type(psb_cspmat_type) :: atmp, atrans
  character(len=20)            :: name
-  integer(psb_mpik_)           :: ictxt, np, me
+  integer(psb_mpk_)           :: ictxt, np, me
  integer(psb_ipk_)            :: err_act
  integer(psb_ipk_)            :: ntaggr, nr
  integer(psb_ipk_)            :: debug_level, debug_unit
--- a/mlprec/impl/aggregator/mld_d_dec_aggregator_mat_asb.f90
+++ b/mlprec/impl/aggregator/mld_d_dec_aggregator_mat_asb.f90
@ -147,7 +147,7 @@ subroutine  mld_d_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,ac,op_p

  ! Local variables
  character(len=20)             :: name
-  integer(psb_mpik_)            :: ictxt, np, me
+  integer(psb_mpk_)            :: ictxt, np, me
  type(psb_d_coo_sparse_mat) :: acoo, bcoo
  type(psb_d_csr_sparse_mat) :: acsr1
  integer(psb_ipk_)            :: nzl,ntaggr
--- a/mlprec/impl/aggregator/mld_d_dec_aggregator_tprol.f90
+++ b/mlprec/impl/aggregator/mld_d_dec_aggregator_tprol.f90
@ -87,7 +87,7 @@ subroutine  mld_d_dec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_

  ! Local variables
  character(len=20)            :: name
-  integer(psb_mpik_)           :: ictxt, np, me
+  integer(psb_mpk_)           :: ictxt, np, me
  integer(psb_ipk_)            :: err_act
  integer(psb_ipk_)            :: ntaggr
  integer(psb_ipk_)            :: debug_level, debug_unit
--- a/mlprec/impl/aggregator/mld_d_symdec_aggregator_tprol.f90
+++ b/mlprec/impl/aggregator/mld_d_symdec_aggregator_tprol.f90
@ -91,7 +91,7 @@ subroutine  mld_d_symdec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,
  ! Local variables
  type(psb_dspmat_type) :: atmp, atrans
  character(len=20)            :: name
-  integer(psb_mpik_)           :: ictxt, np, me
+  integer(psb_mpk_)           :: ictxt, np, me
  integer(psb_ipk_)            :: err_act
  integer(psb_ipk_)            :: ntaggr, nr
  integer(psb_ipk_)            :: debug_level, debug_unit
--- a/mlprec/impl/aggregator/mld_s_dec_aggregator_mat_asb.f90
+++ b/mlprec/impl/aggregator/mld_s_dec_aggregator_mat_asb.f90
@ -147,7 +147,7 @@ subroutine  mld_s_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,ac,op_p

  ! Local variables
  character(len=20)             :: name
-  integer(psb_mpik_)            :: ictxt, np, me
+  integer(psb_mpk_)            :: ictxt, np, me
  type(psb_s_coo_sparse_mat) :: acoo, bcoo
  type(psb_s_csr_sparse_mat) :: acsr1
  integer(psb_ipk_)            :: nzl,ntaggr
--- a/mlprec/impl/aggregator/mld_s_dec_aggregator_tprol.f90
+++ b/mlprec/impl/aggregator/mld_s_dec_aggregator_tprol.f90
@ -87,7 +87,7 @@ subroutine  mld_s_dec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_

  ! Local variables
  character(len=20)            :: name
-  integer(psb_mpik_)           :: ictxt, np, me
+  integer(psb_mpk_)           :: ictxt, np, me
  integer(psb_ipk_)            :: err_act
  integer(psb_ipk_)            :: ntaggr
  integer(psb_ipk_)            :: debug_level, debug_unit
--- a/mlprec/impl/aggregator/mld_s_symdec_aggregator_tprol.f90
+++ b/mlprec/impl/aggregator/mld_s_symdec_aggregator_tprol.f90
@ -91,7 +91,7 @@ subroutine  mld_s_symdec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,
  ! Local variables
  type(psb_sspmat_type) :: atmp, atrans
  character(len=20)            :: name
-  integer(psb_mpik_)           :: ictxt, np, me
+  integer(psb_mpk_)           :: ictxt, np, me
  integer(psb_ipk_)            :: err_act
  integer(psb_ipk_)            :: ntaggr, nr
  integer(psb_ipk_)            :: debug_level, debug_unit
--- a/mlprec/impl/aggregator/mld_z_dec_aggregator_mat_asb.f90
+++ b/mlprec/impl/aggregator/mld_z_dec_aggregator_mat_asb.f90
@ -147,7 +147,7 @@ subroutine  mld_z_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,ac,op_p

  ! Local variables
  character(len=20)             :: name
-  integer(psb_mpik_)            :: ictxt, np, me
+  integer(psb_mpk_)            :: ictxt, np, me
  type(psb_z_coo_sparse_mat) :: acoo, bcoo
  type(psb_z_csr_sparse_mat) :: acsr1
  integer(psb_ipk_)            :: nzl,ntaggr
--- a/mlprec/impl/aggregator/mld_z_dec_aggregator_tprol.f90
+++ b/mlprec/impl/aggregator/mld_z_dec_aggregator_tprol.f90
@ -87,7 +87,7 @@ subroutine  mld_z_dec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_

  ! Local variables
  character(len=20)            :: name
-  integer(psb_mpik_)           :: ictxt, np, me
+  integer(psb_mpk_)           :: ictxt, np, me
  integer(psb_ipk_)            :: err_act
  integer(psb_ipk_)            :: ntaggr
  integer(psb_ipk_)            :: debug_level, debug_unit
--- a/mlprec/impl/aggregator/mld_z_symdec_aggregator_tprol.f90
+++ b/mlprec/impl/aggregator/mld_z_symdec_aggregator_tprol.f90
@ -91,7 +91,7 @@ subroutine  mld_z_symdec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,
  ! Local variables
  type(psb_zspmat_type) :: atmp, atrans
  character(len=20)            :: name
-  integer(psb_mpik_)           :: ictxt, np, me
+  integer(psb_mpk_)           :: ictxt, np, me
  integer(psb_ipk_)            :: err_act
  integer(psb_ipk_)            :: ntaggr, nr
  integer(psb_ipk_)            :: debug_level, debug_unit
--- a/tests/Bcmatch/mld_d_bcmatch_aggregator_mat_asb.f90
+++ b/tests/Bcmatch/mld_d_bcmatch_aggregator_mat_asb.f90
@ -147,7 +147,7 @@ subroutine  mld_d_bcmatch_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,ac,

  ! Local variables
  character(len=20)             :: name
-  integer(psb_mpik_)            :: ictxt, np, me
+  integer(psb_mpk_)            :: ictxt, np, me
  type(psb_d_coo_sparse_mat) :: acoo, bcoo
  type(psb_d_csr_sparse_mat) :: acsr1
  integer(psb_ipk_)            :: nzl,ntaggr
--- a/tests/Bcmatch/mld_d_bcmatch_aggregator_tprol.f90
+++ b/tests/Bcmatch/mld_d_bcmatch_aggregator_tprol.f90
@ -227,7 +227,7 @@ subroutine  mld_d_bcmatch_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr
  type(bcm_CSRMatrix) :: C, P
  integer(c_int) :: match_algorithm, n_sweeps, max_csize, max_nlevels
  character(len=20)            :: name, ch_err
-  integer(psb_mpik_)           :: ictxt, np, me
+  integer(psb_mpk_)           :: ictxt, np, me
  integer(psb_ipk_)            :: err_act, ierr
  integer(psb_ipk_)            :: debug_level, debug_unit
  integer(psb_ipk_)            :: i, j, k, nr, nc, isz, num_pcols