From a1ad85f3514140339e3a9f2b094196619609005c Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 19 Jun 2018 11:41:46 +0100 Subject: [PATCH 1/3] Conditional compilation with LPK8; will need a better long term soluton. --- mlprec/mld_d_sludist_solver.F90 | 4 ++-- mlprec/mld_z_sludist_solver.F90 | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mlprec/mld_d_sludist_solver.F90 b/mlprec/mld_d_sludist_solver.F90 index 442ab913..23da6dfd 100644 --- a/mlprec/mld_d_sludist_solver.F90 +++ b/mlprec/mld_d_sludist_solver.F90 @@ -52,7 +52,7 @@ module mld_d_sludist_solver use iso_c_binding use mld_d_base_solver_mod -#if defined(LONG_INTEGERS) +#if defined(LPK8) type, extends(mld_d_base_solver_type) :: mld_d_sludist_solver_type @@ -167,7 +167,7 @@ contains allocate(ww(n_col),stat=info) if (info /= psb_success_) then info=psb_err_alloc_request_ - call psb_errpush(info,name,i_err=(/n_col,0,0,0,0/),& + call psb_errpush(info,name,i_err=(/n_col/),& & a_err='real(psb_dpk_)') goto 9999 end if diff --git a/mlprec/mld_z_sludist_solver.F90 b/mlprec/mld_z_sludist_solver.F90 index 0f19bad0..883465eb 100644 --- a/mlprec/mld_z_sludist_solver.F90 +++ b/mlprec/mld_z_sludist_solver.F90 @@ -52,7 +52,7 @@ module mld_z_sludist_solver use iso_c_binding use mld_z_base_solver_mod -#if defined(LONG_INTEGERS) +#if defined(LPK8) type, extends(mld_z_base_solver_type) :: mld_z_sludist_solver_type @@ -167,7 +167,7 @@ contains allocate(ww(n_col),stat=info) if (info /= psb_success_) then info=psb_err_alloc_request_ - call psb_errpush(info,name,i_err=(/n_col,0,0,0,0/),& + call psb_errpush(info,name,i_err=(/n_col/),& & a_err='complex(psb_dpk_)') goto 9999 end if From 62cb1e86e8b72e99abe3b23bb059eac4de92d5ab Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 19 Jun 2018 12:04:34 +0100 Subject: [PATCH 2/3] Temp fix for ext_prol with LPK8. --- ...mld_c_extprol_bld.f90 => mld_c_extprol_bld.F90} | 14 +++++++++++++- ...mld_d_extprol_bld.f90 => mld_d_extprol_bld.F90} | 14 +++++++++++++- ...mld_s_extprol_bld.f90 => mld_s_extprol_bld.F90} | 14 +++++++++++++- ...mld_z_extprol_bld.f90 => mld_z_extprol_bld.F90} | 14 +++++++++++++- 4 files changed, 52 insertions(+), 4 deletions(-) rename mlprec/impl/{mld_c_extprol_bld.f90 => mld_c_extprol_bld.F90} (98%) rename mlprec/impl/{mld_d_extprol_bld.f90 => mld_d_extprol_bld.F90} (98%) rename mlprec/impl/{mld_s_extprol_bld.f90 => mld_s_extprol_bld.F90} (98%) rename mlprec/impl/{mld_z_extprol_bld.f90 => mld_z_extprol_bld.F90} (98%) diff --git a/mlprec/impl/mld_c_extprol_bld.f90 b/mlprec/impl/mld_c_extprol_bld.F90 similarity index 98% rename from mlprec/impl/mld_c_extprol_bld.f90 rename to mlprec/impl/mld_c_extprol_bld.F90 index f28e1556..9b5e76dc 100644 --- a/mlprec/impl/mld_c_extprol_bld.f90 +++ b/mlprec/impl/mld_c_extprol_bld.F90 @@ -124,6 +124,12 @@ subroutine mld_c_extprol_bld(a,desc_a,p,prolv,restrv,info,amold,vmold,imold) if (debug_level >= psb_debug_outer_) & & write(debug_unit,*) me,' ',trim(name),& & 'Entering ' +#if defined(LPK8) + info=psb_err_internal_error_ + call psb_errpush(info,name,a_err='Need fix for LPK8') + goto 9999 +#else + ! ! For the time being we are commenting out the UPDATE argument ! we plan to resurrect it later. @@ -321,6 +327,7 @@ subroutine mld_c_extprol_bld(a,desc_a,p,prolv,restrv,info,amold,vmold,imold) if (debug_level >= psb_debug_outer_) & & write(debug_unit,*) me,' ',trim(name),& & 'Exiting with',iszv,' levels' +#endif call psb_erractionrestore(err_act) return @@ -360,6 +367,11 @@ contains info = psb_success_ ictxt = desc_a%get_context() call psb_info(ictxt,me,np) +#if defined(LPK8) + info=psb_err_internal_error_ + call psb_errpush(info,name,a_err='Need fix for LPK8') + goto 9999 +#else allocate(nlaggr(np),ilaggr(1)) nlaggr = 0 ilaggr = 0 @@ -506,7 +518,7 @@ contains call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free') goto 9999 end if - +#endif call psb_erractionrestore(err_act) return diff --git a/mlprec/impl/mld_d_extprol_bld.f90 b/mlprec/impl/mld_d_extprol_bld.F90 similarity index 98% rename from mlprec/impl/mld_d_extprol_bld.f90 rename to mlprec/impl/mld_d_extprol_bld.F90 index e7a13942..c7ff4de8 100644 --- a/mlprec/impl/mld_d_extprol_bld.f90 +++ b/mlprec/impl/mld_d_extprol_bld.F90 @@ -124,6 +124,12 @@ subroutine mld_d_extprol_bld(a,desc_a,p,prolv,restrv,info,amold,vmold,imold) if (debug_level >= psb_debug_outer_) & & write(debug_unit,*) me,' ',trim(name),& & 'Entering ' +#if defined(LPK8) + info=psb_err_internal_error_ + call psb_errpush(info,name,a_err='Need fix for LPK8') + goto 9999 +#else + ! ! For the time being we are commenting out the UPDATE argument ! we plan to resurrect it later. @@ -321,6 +327,7 @@ subroutine mld_d_extprol_bld(a,desc_a,p,prolv,restrv,info,amold,vmold,imold) if (debug_level >= psb_debug_outer_) & & write(debug_unit,*) me,' ',trim(name),& & 'Exiting with',iszv,' levels' +#endif call psb_erractionrestore(err_act) return @@ -360,6 +367,11 @@ contains info = psb_success_ ictxt = desc_a%get_context() call psb_info(ictxt,me,np) +#if defined(LPK8) + info=psb_err_internal_error_ + call psb_errpush(info,name,a_err='Need fix for LPK8') + goto 9999 +#else allocate(nlaggr(np),ilaggr(1)) nlaggr = 0 ilaggr = 0 @@ -506,7 +518,7 @@ contains call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free') goto 9999 end if - +#endif call psb_erractionrestore(err_act) return diff --git a/mlprec/impl/mld_s_extprol_bld.f90 b/mlprec/impl/mld_s_extprol_bld.F90 similarity index 98% rename from mlprec/impl/mld_s_extprol_bld.f90 rename to mlprec/impl/mld_s_extprol_bld.F90 index 4feb6d82..f8d74155 100644 --- a/mlprec/impl/mld_s_extprol_bld.f90 +++ b/mlprec/impl/mld_s_extprol_bld.F90 @@ -124,6 +124,12 @@ subroutine mld_s_extprol_bld(a,desc_a,p,prolv,restrv,info,amold,vmold,imold) if (debug_level >= psb_debug_outer_) & & write(debug_unit,*) me,' ',trim(name),& & 'Entering ' +#if defined(LPK8) + info=psb_err_internal_error_ + call psb_errpush(info,name,a_err='Need fix for LPK8') + goto 9999 +#else + ! ! For the time being we are commenting out the UPDATE argument ! we plan to resurrect it later. @@ -321,6 +327,7 @@ subroutine mld_s_extprol_bld(a,desc_a,p,prolv,restrv,info,amold,vmold,imold) if (debug_level >= psb_debug_outer_) & & write(debug_unit,*) me,' ',trim(name),& & 'Exiting with',iszv,' levels' +#endif call psb_erractionrestore(err_act) return @@ -360,6 +367,11 @@ contains info = psb_success_ ictxt = desc_a%get_context() call psb_info(ictxt,me,np) +#if defined(LPK8) + info=psb_err_internal_error_ + call psb_errpush(info,name,a_err='Need fix for LPK8') + goto 9999 +#else allocate(nlaggr(np),ilaggr(1)) nlaggr = 0 ilaggr = 0 @@ -506,7 +518,7 @@ contains call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free') goto 9999 end if - +#endif call psb_erractionrestore(err_act) return diff --git a/mlprec/impl/mld_z_extprol_bld.f90 b/mlprec/impl/mld_z_extprol_bld.F90 similarity index 98% rename from mlprec/impl/mld_z_extprol_bld.f90 rename to mlprec/impl/mld_z_extprol_bld.F90 index 95a1ff27..89e6299e 100644 --- a/mlprec/impl/mld_z_extprol_bld.f90 +++ b/mlprec/impl/mld_z_extprol_bld.F90 @@ -124,6 +124,12 @@ subroutine mld_z_extprol_bld(a,desc_a,p,prolv,restrv,info,amold,vmold,imold) if (debug_level >= psb_debug_outer_) & & write(debug_unit,*) me,' ',trim(name),& & 'Entering ' +#if defined(LPK8) + info=psb_err_internal_error_ + call psb_errpush(info,name,a_err='Need fix for LPK8') + goto 9999 +#else + ! ! For the time being we are commenting out the UPDATE argument ! we plan to resurrect it later. @@ -321,6 +327,7 @@ subroutine mld_z_extprol_bld(a,desc_a,p,prolv,restrv,info,amold,vmold,imold) if (debug_level >= psb_debug_outer_) & & write(debug_unit,*) me,' ',trim(name),& & 'Exiting with',iszv,' levels' +#endif call psb_erractionrestore(err_act) return @@ -360,6 +367,11 @@ contains info = psb_success_ ictxt = desc_a%get_context() call psb_info(ictxt,me,np) +#if defined(LPK8) + info=psb_err_internal_error_ + call psb_errpush(info,name,a_err='Need fix for LPK8') + goto 9999 +#else allocate(nlaggr(np),ilaggr(1)) nlaggr = 0 ilaggr = 0 @@ -506,7 +518,7 @@ contains call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free') goto 9999 end if - +#endif call psb_erractionrestore(err_act) return From b5b2a808d408d6d9f427d77baa61e8b1673a6f7a Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 19 Jun 2018 12:12:04 +0100 Subject: [PATCH 3/3] Take out spurious "mpik" --- mlprec/impl/aggregator/mld_c_dec_aggregator_mat_asb.f90 | 2 +- mlprec/impl/aggregator/mld_c_dec_aggregator_tprol.f90 | 2 +- mlprec/impl/aggregator/mld_c_symdec_aggregator_tprol.f90 | 2 +- mlprec/impl/aggregator/mld_d_dec_aggregator_mat_asb.f90 | 2 +- mlprec/impl/aggregator/mld_d_dec_aggregator_tprol.f90 | 2 +- mlprec/impl/aggregator/mld_d_symdec_aggregator_tprol.f90 | 2 +- mlprec/impl/aggregator/mld_s_dec_aggregator_mat_asb.f90 | 2 +- mlprec/impl/aggregator/mld_s_dec_aggregator_tprol.f90 | 2 +- mlprec/impl/aggregator/mld_s_symdec_aggregator_tprol.f90 | 2 +- mlprec/impl/aggregator/mld_z_dec_aggregator_mat_asb.f90 | 2 +- mlprec/impl/aggregator/mld_z_dec_aggregator_tprol.f90 | 2 +- mlprec/impl/aggregator/mld_z_symdec_aggregator_tprol.f90 | 2 +- tests/Bcmatch/mld_d_bcmatch_aggregator_mat_asb.f90 | 2 +- tests/Bcmatch/mld_d_bcmatch_aggregator_tprol.f90 | 2 +- 14 files changed, 14 insertions(+), 14 deletions(-) diff --git a/mlprec/impl/aggregator/mld_c_dec_aggregator_mat_asb.f90 b/mlprec/impl/aggregator/mld_c_dec_aggregator_mat_asb.f90 index 0cce1101..5bf91bc6 100644 --- 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 diff --git a/mlprec/impl/aggregator/mld_c_dec_aggregator_tprol.f90 b/mlprec/impl/aggregator/mld_c_dec_aggregator_tprol.f90 index efe66b9a..17dc1f3d 100644 --- 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 diff --git a/mlprec/impl/aggregator/mld_c_symdec_aggregator_tprol.f90 b/mlprec/impl/aggregator/mld_c_symdec_aggregator_tprol.f90 index 594831f4..6ff8bcef 100644 --- 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 diff --git a/mlprec/impl/aggregator/mld_d_dec_aggregator_mat_asb.f90 b/mlprec/impl/aggregator/mld_d_dec_aggregator_mat_asb.f90 index 9f14fad1..2656f057 100644 --- 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 diff --git a/mlprec/impl/aggregator/mld_d_dec_aggregator_tprol.f90 b/mlprec/impl/aggregator/mld_d_dec_aggregator_tprol.f90 index 15a5c2c7..bb223590 100644 --- 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 diff --git a/mlprec/impl/aggregator/mld_d_symdec_aggregator_tprol.f90 b/mlprec/impl/aggregator/mld_d_symdec_aggregator_tprol.f90 index b3079bdf..72078a53 100644 --- 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 diff --git a/mlprec/impl/aggregator/mld_s_dec_aggregator_mat_asb.f90 b/mlprec/impl/aggregator/mld_s_dec_aggregator_mat_asb.f90 index e632f8fa..e0f82d1b 100644 --- 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 diff --git a/mlprec/impl/aggregator/mld_s_dec_aggregator_tprol.f90 b/mlprec/impl/aggregator/mld_s_dec_aggregator_tprol.f90 index 02552a10..19599ab8 100644 --- 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 diff --git a/mlprec/impl/aggregator/mld_s_symdec_aggregator_tprol.f90 b/mlprec/impl/aggregator/mld_s_symdec_aggregator_tprol.f90 index a19f5344..0c310c99 100644 --- 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 diff --git a/mlprec/impl/aggregator/mld_z_dec_aggregator_mat_asb.f90 b/mlprec/impl/aggregator/mld_z_dec_aggregator_mat_asb.f90 index 6d85871b..45d1e058 100644 --- 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 diff --git a/mlprec/impl/aggregator/mld_z_dec_aggregator_tprol.f90 b/mlprec/impl/aggregator/mld_z_dec_aggregator_tprol.f90 index aeac2317..eb017438 100644 --- 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 diff --git a/mlprec/impl/aggregator/mld_z_symdec_aggregator_tprol.f90 b/mlprec/impl/aggregator/mld_z_symdec_aggregator_tprol.f90 index eb619419..53ae506e 100644 --- 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 diff --git a/tests/Bcmatch/mld_d_bcmatch_aggregator_mat_asb.f90 b/tests/Bcmatch/mld_d_bcmatch_aggregator_mat_asb.f90 index 750c068b..33ce7866 100644 --- 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 diff --git a/tests/Bcmatch/mld_d_bcmatch_aggregator_tprol.f90 b/tests/Bcmatch/mld_d_bcmatch_aggregator_tprol.f90 index d6b511fe..c4b4d01c 100644 --- 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