diff --git a/mlprec/mld_c_prec_type.f90 b/mlprec/mld_c_prec_type.f90 index 78f62c9b..0c453250 100644 --- a/mlprec/mld_c_prec_type.f90 +++ b/mlprec/mld_c_prec_type.f90 @@ -81,9 +81,16 @@ module mld_c_prec_type type, extends(psb_cprec_type) :: mld_cprec_type integer(psb_ipk_) :: ictxt + ! + ! Aggregation defaults: + ! + ! 1. coarse_aggr_size = 0 Default target size will be computed (N_fine)**(1./3.) integer(psb_ipk_) :: coarse_aggr_size = izero + ! 2. n_prec_levs = -1 Use aggregate size to stop integer(psb_ipk_) :: n_prec_levs = -ione + ! 3. Don't use more than 20 levels integer(psb_ipk_) :: max_prec_levs = 20_psb_ipk_ + ! 4. min_aggr_ratio = 1.5 real(psb_spk_) :: min_aggr_ratio = 1.5_psb_spk_ real(psb_spk_) :: op_complexity=szero type(mld_c_onelev_type), allocatable :: precv(:) diff --git a/mlprec/mld_d_prec_type.f90 b/mlprec/mld_d_prec_type.f90 index 7ddfeeb9..1372b146 100644 --- a/mlprec/mld_d_prec_type.f90 +++ b/mlprec/mld_d_prec_type.f90 @@ -81,9 +81,16 @@ module mld_d_prec_type type, extends(psb_dprec_type) :: mld_dprec_type integer(psb_ipk_) :: ictxt + ! + ! Aggregation defaults: + ! + ! 1. coarse_aggr_size = 0 Default target size will be computed (N_fine)**(1./3.) integer(psb_ipk_) :: coarse_aggr_size = izero + ! 2. n_prec_levs = -1 Use aggregate size to stop integer(psb_ipk_) :: n_prec_levs = -ione + ! 3. Don't use more than 20 levels integer(psb_ipk_) :: max_prec_levs = 20_psb_ipk_ + ! 4. min_aggr_ratio = 1.5 real(psb_dpk_) :: min_aggr_ratio = 1.5_psb_dpk_ real(psb_dpk_) :: op_complexity=dzero type(mld_d_onelev_type), allocatable :: precv(:) diff --git a/mlprec/mld_s_prec_type.f90 b/mlprec/mld_s_prec_type.f90 index dd1556d7..e3da89f4 100644 --- a/mlprec/mld_s_prec_type.f90 +++ b/mlprec/mld_s_prec_type.f90 @@ -81,9 +81,16 @@ module mld_s_prec_type type, extends(psb_sprec_type) :: mld_sprec_type integer(psb_ipk_) :: ictxt + ! + ! Aggregation defaults: + ! + ! 1. coarse_aggr_size = 0 Default target size will be computed (N_fine)**(1./3.) integer(psb_ipk_) :: coarse_aggr_size = izero + ! 2. n_prec_levs = -1 Use aggregate size to stop integer(psb_ipk_) :: n_prec_levs = -ione + ! 3. Don't use more than 20 levels integer(psb_ipk_) :: max_prec_levs = 20_psb_ipk_ + ! 4. min_aggr_ratio = 1.5 real(psb_spk_) :: min_aggr_ratio = 1.5_psb_spk_ real(psb_spk_) :: op_complexity=szero type(mld_s_onelev_type), allocatable :: precv(:) diff --git a/mlprec/mld_z_prec_type.f90 b/mlprec/mld_z_prec_type.f90 index 7597e2c8..af73effb 100644 --- a/mlprec/mld_z_prec_type.f90 +++ b/mlprec/mld_z_prec_type.f90 @@ -81,9 +81,16 @@ module mld_z_prec_type type, extends(psb_zprec_type) :: mld_zprec_type integer(psb_ipk_) :: ictxt + ! + ! Aggregation defaults: + ! + ! 1. coarse_aggr_size = 0 Default target size will be computed (N_fine)**(1./3.) integer(psb_ipk_) :: coarse_aggr_size = izero + ! 2. n_prec_levs = -1 Use aggregate size to stop integer(psb_ipk_) :: n_prec_levs = -ione + ! 3. Don't use more than 20 levels integer(psb_ipk_) :: max_prec_levs = 20_psb_ipk_ + ! 4. min_aggr_ratio = 1.5 real(psb_dpk_) :: min_aggr_ratio = 1.5_psb_dpk_ real(psb_dpk_) :: op_complexity=dzero type(mld_z_onelev_type), allocatable :: precv(:)