Do not print matching statistics

amgprec/amg_d_matchboxp_mod.f90

@@ -118,6 +118,7 @@ module dmatchboxp_mod
     module procedure dPMatchBox
   end interface PMatchBox
 
+  logical, parameter, private :: print_statistics=.false.
 contains
 
   subroutine dmatchboxp_build_prol(w,a,desc_a,ilaggr,nlaggr,prol,info,&
@@ -421,11 +422,13 @@ contains
         nlpairs    = v(3)
 
       end block
-      if (iam == 0) then
+      if (print_statistics) then
-        write(0,*) 'Matching statistics: Unmatched nodes ',&
+        if (iam == 0) then
-             & nunmatched,' Singletons:',nlsingl,' Pairs:',nlpairs
+          write(0,*) 'Matching statistics: Unmatched nodes ',&
+               & nunmatched,' Singletons:',nlsingl,' Pairs:',nlpairs
+        end if
       end if
-
+      
       if (display_out_) then
         block
           integer(psb_ipk_) :: idx

amgprec/amg_s_matchboxp_mod.f90

@@ -118,6 +118,7 @@ module smatchboxp_mod
     module procedure sPMatchBox
   end interface PMatchBox
 
+  logical, parameter, private :: print_statistics=.false.
 contains
 
   subroutine smatchboxp_build_prol(w,a,desc_a,ilaggr,nlaggr,prol,info,&
@@ -421,11 +422,13 @@ contains
         nlpairs    = v(3)
 
       end block
-      if (iam == 0) then
+      if (print_statistics) then
-        write(0,*) 'Matching statistics: Unmatched nodes ',&
+        if (iam == 0) then
-             & nunmatched,' Singletons:',nlsingl,' Pairs:',nlpairs
+          write(0,*) 'Matching statistics: Unmatched nodes ',&
+               & nunmatched,' Singletons:',nlsingl,' Pairs:',nlpairs
+        end if
       end if
-
+      
       if (display_out_) then
         block
           integer(psb_ipk_) :: idx