Fix names for par_aggr_alg_names

5 years ago · edea0caa63
parent bd8495794a
commit edea0caa63
1 changed files with 3 additions and 2 deletions
--- a/amgprec/amg_base_prec_type.F90
+++ b/amgprec/amg_base_prec_type.F90
@ -377,9 +377,10 @@ module amg_base_prec_type
       &  'SOC measure 1     ', 'SOC Measure 2     ',&
       &  'Parallel Matching ','Decoupled Matching'/)
  character(len=18), parameter, private :: &
-       &  par_aggr_alg_names(0:3)=(/&
+       &  par_aggr_alg_names(0:4)=(/&
       & 'decoupled aggr.   ', 'sym. dec. aggr.   ',&
-       & 'user defined aggr.', 'coupled aggr.     '/)
+       & 'user defined aggr.', 'coupled aggr.     ',&
+       & 'new matching aggr.'/)
  character(len=18), parameter, private :: &
       &  ord_names(0:1)=(/'Natural ordering  ','Desc. degree ord. '/)
  character(len=6), parameter, private :: &