diff --git a/amgprec/amg_d_matchboxp_mod.f90 b/amgprec/amg_d_matchboxp_mod.f90
index ddbcd591..5847e97f 100644
--- a/amgprec/amg_d_matchboxp_mod.f90
+++ b/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
-        write(0,*) 'Matching statistics: Unmatched nodes ',&
-             & nunmatched,' Singletons:',nlsingl,' Pairs:',nlpairs
+      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
           integer(psb_ipk_) :: idx
diff --git a/amgprec/amg_s_matchboxp_mod.f90 b/amgprec/amg_s_matchboxp_mod.f90
index 08c598af..5d3f2266 100644
--- a/amgprec/amg_s_matchboxp_mod.f90
+++ b/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
-        write(0,*) 'Matching statistics: Unmatched nodes ',&
-             & nunmatched,' Singletons:',nlsingl,' Pairs:',nlpairs
+      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
           integer(psb_ipk_) :: idx