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,10 +422,12 @@ contains
         nlpairs    = v(3)
 
       end block
+      if (print_statistics) then
         if (iam == 0) then
           write(0,*) 'Matching statistics: Unmatched nodes ',&
                & nunmatched,' Singletons:',nlsingl,' Pairs:',nlpairs
         end if
+      end if
       
       if (display_out_) then
         block

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,10 +422,12 @@ contains
         nlpairs    = v(3)
 
       end block
+      if (print_statistics) then
         if (iam == 0) then
           write(0,*) 'Matching statistics: Unmatched nodes ',&
                & nunmatched,' Singletons:',nlsingl,' Pairs:',nlpairs
         end if
+      end if
       
       if (display_out_) then
         block