fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 14:44:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Do not print matching statistics

Browse Source
This commit is contained in:
Salvatore Filippone
2021-06-28 18:42:56 +02:00
parent 8482067b52
commit 2542c0fda4
2 changed files with 14 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
amgprec/amg_d_matchboxp_mod.f90
+7 -4
View File
@@ -118,6 +118,7 @@ module dmatchboxp_mod
module procedure dPMatchBox module procedure dPMatchBox
end interface PMatchBox end interface PMatchBox
logical, parameter, private :: print_statistics=.false.
contains contains
subroutine dmatchboxp_build_prol(w,a,desc_a,ilaggr,nlaggr,prol,info,& subroutine dmatchboxp_build_prol(w,a,desc_a,ilaggr,nlaggr,prol,info,&
@@ -421,11 +422,13 @@ contains
nlpairs = v(3) nlpairs = v(3)
end block 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 end if
if (display_out_) then if (display_out_) then
block block
integer(psb_ipk_) :: idx integer(psb_ipk_) :: idx
amgprec/amg_s_matchboxp_mod.f90
+7 -4
View File
@@ -118,6 +118,7 @@ module smatchboxp_mod
module procedure sPMatchBox module procedure sPMatchBox
end interface PMatchBox end interface PMatchBox
logical, parameter, private :: print_statistics=.false.
contains contains
subroutine smatchboxp_build_prol(w,a,desc_a,ilaggr,nlaggr,prol,info,& subroutine smatchboxp_build_prol(w,a,desc_a,ilaggr,nlaggr,prol,info,&
@@ -421,11 +422,13 @@ contains
nlpairs = v(3) nlpairs = v(3)
end block 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 end if
if (display_out_) then if (display_out_) then
block block
integer(psb_ipk_) :: idx integer(psb_ipk_) :: idx