From ec52852bf5258577a537a47cbd28f05c27dc55ce Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Thu, 8 Apr 2021 18:44:02 +0200 Subject: [PATCH] removed debug prints --- amgprec/impl/aggregator/amg_d_parmatch_aggregator_mat_asb.f90 | 2 +- amgprec/impl/aggregator/amg_d_parmatch_aggregator_mat_bld.f90 | 3 ++- amgprec/impl/aggregator/amg_d_parmatch_aggregator_tprol.f90 | 2 +- amgprec/impl/aggregator/amg_s_parmatch_aggregator_mat_asb.f90 | 2 +- amgprec/impl/aggregator/amg_s_parmatch_aggregator_mat_bld.f90 | 1 + amgprec/impl/aggregator/amg_s_parmatch_aggregator_tprol.f90 | 4 ++-- 6 files changed, 8 insertions(+), 6 deletions(-) diff --git a/amgprec/impl/aggregator/amg_d_parmatch_aggregator_mat_asb.f90 b/amgprec/impl/aggregator/amg_d_parmatch_aggregator_mat_asb.f90 index b7cbcd4d..145f453e 100644 --- a/amgprec/impl/aggregator/amg_d_parmatch_aggregator_mat_asb.f90 +++ b/amgprec/impl/aggregator/amg_d_parmatch_aggregator_mat_asb.f90 @@ -1,4 +1,4 @@ -! +! ! ! ! AMG4PSBLAS version 1.0 ! Algebraic Multigrid Package diff --git a/amgprec/impl/aggregator/amg_d_parmatch_aggregator_mat_bld.f90 b/amgprec/impl/aggregator/amg_d_parmatch_aggregator_mat_bld.f90 index 77972817..d1df1b6a 100644 --- a/amgprec/impl/aggregator/amg_d_parmatch_aggregator_mat_bld.f90 +++ b/amgprec/impl/aggregator/amg_d_parmatch_aggregator_mat_bld.f90 @@ -1,4 +1,4 @@ -! +! ! ! ! AMG4PSBLAS version 1.0 ! Algebraic Multigrid Package @@ -187,6 +187,7 @@ subroutine amg_d_parmatch_aggregator_mat_bld(ag,parms,a,desc_a,ilaggr,nlaggr,& integer(psb_ipk_) :: np, me integer(psb_ipk_) :: err_act integer(psb_ipk_) :: debug_level, debug_unit + type(psb_dspmat_type) :: atmp name='d_parmatch_mat_bld' if (psb_get_errstatus().ne.0) return diff --git a/amgprec/impl/aggregator/amg_d_parmatch_aggregator_tprol.f90 b/amgprec/impl/aggregator/amg_d_parmatch_aggregator_tprol.f90 index 24dc9030..f50233b3 100644 --- a/amgprec/impl/aggregator/amg_d_parmatch_aggregator_tprol.f90 +++ b/amgprec/impl/aggregator/amg_d_parmatch_aggregator_tprol.f90 @@ -150,7 +150,7 @@ subroutine amg_d_parmatch_aggregator_build_tprol(ag,parms,ag_data,& type(psb_ldspmat_type) :: tmp_prol, tmp_pg, tmp_restr type(psb_desc_type) :: tmp_desc_ac, tmp_desc_ax, tmp_desc_p integer(psb_ipk_), save :: idx_mboxp=-1, idx_spmmbld=-1, idx_sweeps_mult=-1 - logical, parameter :: dump=.false., do_timings=.true., debug=.true., & + logical, parameter :: dump=.false., do_timings=.true., debug=.false., & & dump_prol_restr=.false. name='d_parmatch_tprol' diff --git a/amgprec/impl/aggregator/amg_s_parmatch_aggregator_mat_asb.f90 b/amgprec/impl/aggregator/amg_s_parmatch_aggregator_mat_asb.f90 index 6c4c4af8..fac367f2 100644 --- a/amgprec/impl/aggregator/amg_s_parmatch_aggregator_mat_asb.f90 +++ b/amgprec/impl/aggregator/amg_s_parmatch_aggregator_mat_asb.f90 @@ -1,4 +1,4 @@ -! +! ! ! ! AMG4PSBLAS version 1.0 ! Algebraic Multigrid Package diff --git a/amgprec/impl/aggregator/amg_s_parmatch_aggregator_mat_bld.f90 b/amgprec/impl/aggregator/amg_s_parmatch_aggregator_mat_bld.f90 index b13797d2..6ec3dc05 100644 --- a/amgprec/impl/aggregator/amg_s_parmatch_aggregator_mat_bld.f90 +++ b/amgprec/impl/aggregator/amg_s_parmatch_aggregator_mat_bld.f90 @@ -187,6 +187,7 @@ subroutine amg_s_parmatch_aggregator_mat_bld(ag,parms,a,desc_a,ilaggr,nlaggr,& integer(psb_ipk_) :: np, me integer(psb_ipk_) :: err_act integer(psb_ipk_) :: debug_level, debug_unit + type(psb_sspmat_type) :: atmp name='s_parmatch_mat_bld' if (psb_get_errstatus().ne.0) return diff --git a/amgprec/impl/aggregator/amg_s_parmatch_aggregator_tprol.f90 b/amgprec/impl/aggregator/amg_s_parmatch_aggregator_tprol.f90 index 946637e3..0b4347a5 100644 --- a/amgprec/impl/aggregator/amg_s_parmatch_aggregator_tprol.f90 +++ b/amgprec/impl/aggregator/amg_s_parmatch_aggregator_tprol.f90 @@ -1,4 +1,4 @@ -! +! ! ! ! AMG4PSBLAS version 1.0 ! Algebraic Multigrid Package @@ -150,7 +150,7 @@ subroutine amg_s_parmatch_aggregator_build_tprol(ag,parms,ag_data,& type(psb_lsspmat_type) :: tmp_prol, tmp_pg, tmp_restr type(psb_desc_type) :: tmp_desc_ac, tmp_desc_ax, tmp_desc_p integer(psb_ipk_), save :: idx_mboxp=-1, idx_spmmbld=-1, idx_sweeps_mult=-1 - logical, parameter :: dump=.false., do_timings=.true., debug=.true., & + logical, parameter :: dump=.false., do_timings=.true., debug=.false., & & dump_prol_restr=.false. name='s_parmatch_tprol'