Change aggregation threshold default

8 years ago · 1503eb1301
parent 62c82f0474
commit 1503eb1301
4 changed files with 4 additions and 4 deletions
--- 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
--- 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
--- 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
--- 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