removed debug prints

amgprec/impl/aggregator/amg_d_parmatch_aggregator_mat_asb.f90

@@ -1,4 +1,4 @@
-!
+!   !
 !
 !                             AMG4PSBLAS version 1.0
 !    Algebraic Multigrid Package

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

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'

amgprec/impl/aggregator/amg_s_parmatch_aggregator_mat_asb.f90

@@ -1,4 +1,4 @@
-!
+!   !
 !
 !                             AMG4PSBLAS version 1.0
 !    Algebraic Multigrid Package

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

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'