From 1b72f31d508444e060e13a5dac51ee9b1205ed58 Mon Sep 17 00:00:00 2001 From: pasquadambra Date: Tue, 30 Mar 2021 17:25:58 +0200 Subject: [PATCH] update --- examples/fileread/amg_cexample_ml.f90 | 1 - examples/fileread/amg_dexample_ml.f90 | 1 - examples/fileread/amg_sexample_ml.f90 | 14 ++++++++------ examples/fileread/amg_zexample_ml.f90 | 1 - 4 files changed, 8 insertions(+), 9 deletions(-) diff --git a/examples/fileread/amg_cexample_ml.f90 b/examples/fileread/amg_cexample_ml.f90 index 1f1d646d..e008e9df 100644 --- a/examples/fileread/amg_cexample_ml.f90 +++ b/examples/fileread/amg_cexample_ml.f90 @@ -244,7 +244,6 @@ program amg_cexample_ml call P%set('ML_CYCLE','WCYCLE',info) call P%set('SMOOTHER_SWEEPS',2,info) call P%set('COARSE_SOLVE','KRM',info) - call P%set('COARSE_MAT','DIST',info) kmethod = 'CG' end select diff --git a/examples/fileread/amg_dexample_ml.f90 b/examples/fileread/amg_dexample_ml.f90 index 386f7aea..38779b0e 100644 --- a/examples/fileread/amg_dexample_ml.f90 +++ b/examples/fileread/amg_dexample_ml.f90 @@ -243,7 +243,6 @@ program amg_dexample_ml call P%set('ML_CYCLE','WCYCLE',info) call P%set('SMOOTHER_SWEEPS',2,info) call P%set('COARSE_SOLVE','KRM',info) - call P%set('COARSE_MAT','DIST',info) kmethod = 'CG' end select diff --git a/examples/fileread/amg_sexample_ml.f90 b/examples/fileread/amg_sexample_ml.f90 index 0ebf35f4..dc8feee2 100644 --- a/examples/fileread/amg_sexample_ml.f90 +++ b/examples/fileread/amg_sexample_ml.f90 @@ -230,18 +230,20 @@ program amg_sexample_ml case(3) - ! initialize a W-cycle preconditioner with 2 hybrid forward/backward - ! GS sweeps as pre/post-smoother, a distributed coarsest - ! matrix, and MUMPS as coarsest-level solver + ! initialize a W-cycle preconditioner based on the coupled aggregation relying on matching, + ! with maximum size of aggregates equal to 8 and smoothed prolongators, + ! 2 hybrid forward/backward GS sweeps as pre/post-smoother, a distributed coarsest + ! matrix, and preconditioned Flexible Conjugate Gradient as coarsest-level solver call P%init(ctxt,'ML',info) + call P%set('PAR_AGGR_ALG','COUPLED',info) + call P%set('AGGR_TYPE','MATCHBOXP',info) + call P%set('AGGR_SIZE',8,info) call P%set('ML_CYCLE','WCYCLE',info) call P%set('SMOOTHER_SWEEPS',2,info) - call P%set('COARSE_SOLVE','MUMPS',info) - call P%set('COARSE_MAT','DIST',info) + call P%set('COARSE_SOLVE','KRM',info) kmethod = 'CG' end select - ! build the preconditioner call psb_barrier(ctxt) diff --git a/examples/fileread/amg_zexample_ml.f90 b/examples/fileread/amg_zexample_ml.f90 index d1b1c79b..2ba1f23d 100644 --- a/examples/fileread/amg_zexample_ml.f90 +++ b/examples/fileread/amg_zexample_ml.f90 @@ -244,7 +244,6 @@ program amg_zexample_ml call P%set('ML_CYCLE','WCYCLE',info) call P%set('SMOOTHER_SWEEPS',2,info) call P%set('COARSE_SOLVE','KRM',info) - call P%set('COARSE_MAT','DIST',info) kmethod = 'CG' end select