From 2542c0fda45fae79d0b8d007c9b88ab74ec86dc9 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 28 Jun 2021 18:42:56 +0200 Subject: [PATCH] Do not print matching statistics --- amgprec/amg_d_matchboxp_mod.f90 | 11 +++++++---- amgprec/amg_s_matchboxp_mod.f90 | 11 +++++++---- 2 files changed, 14 insertions(+), 8 deletions(-) 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