From 759a1502b2c087e145b97af833138ebf41e55192 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Fri, 19 Jun 2020 17:16:22 +0200
Subject: [PATCH] Silence debug print

---
 mlprec/impl/aggregator/mld_c_ptap.f90 | 4 ++--
 mlprec/impl/aggregator/mld_d_ptap.f90 | 4 ++--
 mlprec/impl/aggregator/mld_s_ptap.f90 | 4 ++--
 mlprec/impl/aggregator/mld_z_ptap.f90 | 4 ++--
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/mlprec/impl/aggregator/mld_c_ptap.f90 b/mlprec/impl/aggregator/mld_c_ptap.f90
index 66be54f4..97706e40 100644
--- a/mlprec/impl/aggregator/mld_c_ptap.f90
+++ b/mlprec/impl/aggregator/mld_c_ptap.f90
@@ -125,8 +125,8 @@ subroutine mld_c_ptap(a_csr,desc_a,nlaggr,parms,ac,&
       call psb_c_coo_glob_transpose(coo_restr,desc_a,info,desc_c=desc_ac,desc_rx=desc_ax)
       call coo_restr%set_nrows(desc_ac%get_local_rows())
       call coo_restr%set_ncols(desc_ax%get_local_cols())
-      write(0,*) me,' ',trim(name),' check on glob_transpose 1: ',&
-           & desc_a%get_local_cols(),desc_ax%get_local_cols(),coo_restr%get_nzeros()
+!!$      write(0,*) me,' ',trim(name),' check on glob_transpose 1: ',&
+!!$           & desc_a%get_local_cols(),desc_ax%get_local_cols(),coo_restr%get_nzeros()
       if (desc_a%get_local_cols()<desc_ax%get_local_cols()) then
         write(0,*) me,' ',trim(name),' WARNING: GLOB_TRANSPOSE NEW INDICES '
       end if
diff --git a/mlprec/impl/aggregator/mld_d_ptap.f90 b/mlprec/impl/aggregator/mld_d_ptap.f90
index 1906d211..5b3d5e91 100644
--- a/mlprec/impl/aggregator/mld_d_ptap.f90
+++ b/mlprec/impl/aggregator/mld_d_ptap.f90
@@ -125,8 +125,8 @@ subroutine mld_d_ptap(a_csr,desc_a,nlaggr,parms,ac,&
       call psb_d_coo_glob_transpose(coo_restr,desc_a,info,desc_c=desc_ac,desc_rx=desc_ax)
       call coo_restr%set_nrows(desc_ac%get_local_rows())
       call coo_restr%set_ncols(desc_ax%get_local_cols())
-      write(0,*) me,' ',trim(name),' check on glob_transpose 1: ',&
-           & desc_a%get_local_cols(),desc_ax%get_local_cols(),coo_restr%get_nzeros()
+!!$      write(0,*) me,' ',trim(name),' check on glob_transpose 1: ',&
+!!$           & desc_a%get_local_cols(),desc_ax%get_local_cols(),coo_restr%get_nzeros()
       if (desc_a%get_local_cols()<desc_ax%get_local_cols()) then
         write(0,*) me,' ',trim(name),' WARNING: GLOB_TRANSPOSE NEW INDICES '
       end if
diff --git a/mlprec/impl/aggregator/mld_s_ptap.f90 b/mlprec/impl/aggregator/mld_s_ptap.f90
index 0fd63fd0..e100274e 100644
--- a/mlprec/impl/aggregator/mld_s_ptap.f90
+++ b/mlprec/impl/aggregator/mld_s_ptap.f90
@@ -125,8 +125,8 @@ subroutine mld_s_ptap(a_csr,desc_a,nlaggr,parms,ac,&
       call psb_s_coo_glob_transpose(coo_restr,desc_a,info,desc_c=desc_ac,desc_rx=desc_ax)
       call coo_restr%set_nrows(desc_ac%get_local_rows())
       call coo_restr%set_ncols(desc_ax%get_local_cols())
-      write(0,*) me,' ',trim(name),' check on glob_transpose 1: ',&
-           & desc_a%get_local_cols(),desc_ax%get_local_cols(),coo_restr%get_nzeros()
+!!$      write(0,*) me,' ',trim(name),' check on glob_transpose 1: ',&
+!!$           & desc_a%get_local_cols(),desc_ax%get_local_cols(),coo_restr%get_nzeros()
       if (desc_a%get_local_cols()<desc_ax%get_local_cols()) then
         write(0,*) me,' ',trim(name),' WARNING: GLOB_TRANSPOSE NEW INDICES '
       end if
diff --git a/mlprec/impl/aggregator/mld_z_ptap.f90 b/mlprec/impl/aggregator/mld_z_ptap.f90
index 0f8e4cfb..7d4fdf34 100644
--- a/mlprec/impl/aggregator/mld_z_ptap.f90
+++ b/mlprec/impl/aggregator/mld_z_ptap.f90
@@ -125,8 +125,8 @@ subroutine mld_z_ptap(a_csr,desc_a,nlaggr,parms,ac,&
       call psb_z_coo_glob_transpose(coo_restr,desc_a,info,desc_c=desc_ac,desc_rx=desc_ax)
       call coo_restr%set_nrows(desc_ac%get_local_rows())
       call coo_restr%set_ncols(desc_ax%get_local_cols())
-      write(0,*) me,' ',trim(name),' check on glob_transpose 1: ',&
-           & desc_a%get_local_cols(),desc_ax%get_local_cols(),coo_restr%get_nzeros()
+!!$      write(0,*) me,' ',trim(name),' check on glob_transpose 1: ',&
+!!$           & desc_a%get_local_cols(),desc_ax%get_local_cols(),coo_restr%get_nzeros()
       if (desc_a%get_local_cols()<desc_ax%get_local_cols()) then
         write(0,*) me,' ',trim(name),' WARNING: GLOB_TRANSPOSE NEW INDICES '
       end if