update

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
 

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
 

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
+   ! initialize a W-cycle preconditioner based on the coupled aggregation relying on matching,
-   ! GS sweeps as pre/post-smoother, a distributed coarsest
+   ! with maximum size of aggregates equal to 8 and smoothed prolongators,
-   ! matrix, and MUMPS as coarsest-level solver
+   ! 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_SOLVE','KRM',info)
-    call P%set('COARSE_MAT','DIST',info)
     kmethod = 'CG'
   end select
-
   ! build the preconditioner
 
   call psb_barrier(ctxt)

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