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