From 1503eb1301bcf989c971411f965b0a5ece13b01e Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 24 Jul 2017 09:42:50 +0100 Subject: [PATCH] Change aggregation threshold default --- mlprec/mld_c_onelev_mod.f90 | 2 +- mlprec/mld_d_onelev_mod.f90 | 2 +- mlprec/mld_s_onelev_mod.f90 | 2 +- mlprec/mld_z_onelev_mod.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mlprec/mld_c_onelev_mod.f90 b/mlprec/mld_c_onelev_mod.f90 index f9e675f3..7281731b 100644 --- a/mlprec/mld_c_onelev_mod.f90 +++ b/mlprec/mld_c_onelev_mod.f90 @@ -444,7 +444,7 @@ contains lv%parms%aggr_eig = mld_max_norm_ lv%parms%aggr_filter = mld_no_filter_mat_ lv%parms%aggr_omega_val = szero - lv%parms%aggr_thresh = szero + lv%parms%aggr_thresh = 0.05_psb_spk_ if (allocated(lv%sm)) call lv%sm%default() if (allocated(lv%sm2a)) then diff --git a/mlprec/mld_d_onelev_mod.f90 b/mlprec/mld_d_onelev_mod.f90 index 83df0252..dd7b2485 100644 --- a/mlprec/mld_d_onelev_mod.f90 +++ b/mlprec/mld_d_onelev_mod.f90 @@ -444,7 +444,7 @@ contains lv%parms%aggr_eig = mld_max_norm_ lv%parms%aggr_filter = mld_no_filter_mat_ lv%parms%aggr_omega_val = dzero - lv%parms%aggr_thresh = dzero + lv%parms%aggr_thresh = 0.05_psb_dpk_ if (allocated(lv%sm)) call lv%sm%default() if (allocated(lv%sm2a)) then diff --git a/mlprec/mld_s_onelev_mod.f90 b/mlprec/mld_s_onelev_mod.f90 index ab921996..fb53129d 100644 --- a/mlprec/mld_s_onelev_mod.f90 +++ b/mlprec/mld_s_onelev_mod.f90 @@ -444,7 +444,7 @@ contains lv%parms%aggr_eig = mld_max_norm_ lv%parms%aggr_filter = mld_no_filter_mat_ lv%parms%aggr_omega_val = szero - lv%parms%aggr_thresh = szero + lv%parms%aggr_thresh = 0.05_psb_spk_ if (allocated(lv%sm)) call lv%sm%default() if (allocated(lv%sm2a)) then diff --git a/mlprec/mld_z_onelev_mod.f90 b/mlprec/mld_z_onelev_mod.f90 index a3085bf6..ac194fc4 100644 --- a/mlprec/mld_z_onelev_mod.f90 +++ b/mlprec/mld_z_onelev_mod.f90 @@ -444,7 +444,7 @@ contains lv%parms%aggr_eig = mld_max_norm_ lv%parms%aggr_filter = mld_no_filter_mat_ lv%parms%aggr_omega_val = dzero - lv%parms%aggr_thresh = dzero + lv%parms%aggr_thresh = 0.05_psb_dpk_ if (allocated(lv%sm)) call lv%sm%default() if (allocated(lv%sm2a)) then