diff --git a/amgprec/amg_d_parmatch_aggregator_mod.F90 b/amgprec/amg_d_parmatch_aggregator_mod.F90
index e6cf4b1f..f671fc81 100644
--- a/amgprec/amg_d_parmatch_aggregator_mod.F90
+++ b/amgprec/amg_d_parmatch_aggregator_mod.F90
@@ -591,6 +591,7 @@ contains
     ! Arguments
     class(amg_d_parmatch_aggregator_type), intent(inout) :: ag
     character(len=20)  :: name='d_parmatch_aggr_set_default'
+    call ag%amg_d_base_aggregator_type%default()
     ag%matching_alg  = 0
     ag%n_sweeps      = 1
     ag%jacobi_sweeps = 0
diff --git a/amgprec/amg_s_parmatch_aggregator_mod.F90 b/amgprec/amg_s_parmatch_aggregator_mod.F90
index 81a83aff..c0aa84cf 100644
--- a/amgprec/amg_s_parmatch_aggregator_mod.F90
+++ b/amgprec/amg_s_parmatch_aggregator_mod.F90
@@ -591,6 +591,7 @@ contains
     ! Arguments
     class(amg_s_parmatch_aggregator_type), intent(inout) :: ag
     character(len=20)  :: name='s_parmatch_aggr_set_default'
+    call ag%amg_s_base_aggregator_type%default()
     ag%matching_alg  = 0
     ag%n_sweeps      = 1
     ag%jacobi_sweeps = 0
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 3d5c8158..d1df1b6a 100644
--- a/amgprec/impl/aggregator/amg_d_parmatch_aggregator_mat_bld.f90
+++ b/amgprec/impl/aggregator/amg_d_parmatch_aggregator_mat_bld.f90
@@ -167,7 +167,7 @@ subroutine  amg_d_parmatch_aggregator_mat_bld(ag,parms,a,desc_a,ilaggr,nlaggr,&
      & ac,desc_ac,op_prol,op_restr,t_prol,info)
   use psb_base_mod
   use amg_d_inner_mod
-  use amg_d_prec_type
+  use amg_base_prec_type
   use amg_d_parmatch_aggregator_mod, amg_protect_name => amg_d_parmatch_aggregator_mat_bld
   implicit none
 
diff --git a/amgprec/impl/aggregator/amg_d_parmatch_aggregator_tprol.f90 b/amgprec/impl/aggregator/amg_d_parmatch_aggregator_tprol.f90
index 0b9c3167..24dc9030 100644
--- a/amgprec/impl/aggregator/amg_d_parmatch_aggregator_tprol.f90
+++ b/amgprec/impl/aggregator/amg_d_parmatch_aggregator_tprol.f90
@@ -112,7 +112,7 @@
 subroutine  amg_d_parmatch_aggregator_build_tprol(ag,parms,ag_data,&
      & a,desc_a,ilaggr,nlaggr,t_prol,info)
   use psb_base_mod
-  use amg_d_prec_type
+  use amg_base_prec_type
   use amg_d_inner_mod
   use amg_d_parmatch_aggregator_mod, amg_protect_name => amg_d_parmatch_aggregator_build_tprol
   use iso_c_binding
@@ -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=.false., &
+  logical, parameter :: dump=.false., do_timings=.true., debug=.true., &
        & dump_prol_restr=.false.
 
   name='d_parmatch_tprol'
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 2f072b7d..6ec3dc05 100644
--- a/amgprec/impl/aggregator/amg_s_parmatch_aggregator_mat_bld.f90
+++ b/amgprec/impl/aggregator/amg_s_parmatch_aggregator_mat_bld.f90
@@ -167,7 +167,7 @@ subroutine  amg_s_parmatch_aggregator_mat_bld(ag,parms,a,desc_a,ilaggr,nlaggr,&
      & ac,desc_ac,op_prol,op_restr,t_prol,info)
   use psb_base_mod
   use amg_s_inner_mod
-  use amg_s_prec_type
+  use amg_base_prec_type
   use amg_s_parmatch_aggregator_mod, amg_protect_name => amg_s_parmatch_aggregator_mat_bld
   implicit none
 
@@ -189,7 +189,7 @@ subroutine  amg_s_parmatch_aggregator_mat_bld(ag,parms,a,desc_a,ilaggr,nlaggr,&
   integer(psb_ipk_)     :: debug_level, debug_unit
   type(psb_sspmat_type) :: atmp
 
-  name='d_parmatch_mat_bld'
+  name='s_parmatch_mat_bld'
   if (psb_get_errstatus().ne.0) return
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
diff --git a/amgprec/impl/aggregator/amg_s_parmatch_aggregator_tprol.f90 b/amgprec/impl/aggregator/amg_s_parmatch_aggregator_tprol.f90
index f239de95..ffdd704d 100644
--- a/amgprec/impl/aggregator/amg_s_parmatch_aggregator_tprol.f90
+++ b/amgprec/impl/aggregator/amg_s_parmatch_aggregator_tprol.f90
@@ -112,7 +112,7 @@
 subroutine  amg_s_parmatch_aggregator_build_tprol(ag,parms,ag_data,&
      & a,desc_a,ilaggr,nlaggr,t_prol,info)
   use psb_base_mod
-  use amg_s_prec_type
+  use amg_base_prec_type
   use amg_s_inner_mod
   use amg_s_parmatch_aggregator_mod, amg_protect_name => amg_s_parmatch_aggregator_build_tprol
   use iso_c_binding
@@ -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=.false., &
+  logical, parameter :: dump=.false., do_timings=.true., debug=.true., &
        & dump_prol_restr=.false.
 
   name='s_parmatch_tprol'