From 3ff1ad9372eb0dd0fb4d0a733a226d471ca2749c Mon Sep 17 00:00:00 2001 From: sfilippone Date: Tue, 11 Jun 2024 09:54:55 +0200 Subject: [PATCH] Fix noise in %memory_use() --- amgprec/impl/level/amg_c_base_onelev_memory_use.f90 | 3 +-- amgprec/impl/level/amg_d_base_onelev_memory_use.f90 | 3 +-- amgprec/impl/level/amg_s_base_onelev_memory_use.f90 | 3 +-- amgprec/impl/level/amg_z_base_onelev_memory_use.f90 | 3 +-- 4 files changed, 4 insertions(+), 8 deletions(-) diff --git a/amgprec/impl/level/amg_c_base_onelev_memory_use.f90 b/amgprec/impl/level/amg_c_base_onelev_memory_use.f90 index 4b58000d..71719304 100644 --- a/amgprec/impl/level/amg_c_base_onelev_memory_use.f90 +++ b/amgprec/impl/level/amg_c_base_onelev_memory_use.f90 @@ -98,8 +98,7 @@ subroutine amg_c_base_onelev_memory_use(lv,il,nl,ilmin,info,iout,verbosity,prefi prefix_ = "" end if - write(iout_,*) trim(prefix_) - + if ((me == 0).or.(verbosity_>0)) write(iout_,*) trim(prefix_) if (global_) then allocate(sz(6)) diff --git a/amgprec/impl/level/amg_d_base_onelev_memory_use.f90 b/amgprec/impl/level/amg_d_base_onelev_memory_use.f90 index 25534fd0..3edc5999 100644 --- a/amgprec/impl/level/amg_d_base_onelev_memory_use.f90 +++ b/amgprec/impl/level/amg_d_base_onelev_memory_use.f90 @@ -98,8 +98,7 @@ subroutine amg_d_base_onelev_memory_use(lv,il,nl,ilmin,info,iout,verbosity,prefi prefix_ = "" end if - write(iout_,*) trim(prefix_) - + if ((me == 0).or.(verbosity_>0)) write(iout_,*) trim(prefix_) if (global_) then allocate(sz(6)) diff --git a/amgprec/impl/level/amg_s_base_onelev_memory_use.f90 b/amgprec/impl/level/amg_s_base_onelev_memory_use.f90 index 9709ba3e..8cc5a4fa 100644 --- a/amgprec/impl/level/amg_s_base_onelev_memory_use.f90 +++ b/amgprec/impl/level/amg_s_base_onelev_memory_use.f90 @@ -98,8 +98,7 @@ subroutine amg_s_base_onelev_memory_use(lv,il,nl,ilmin,info,iout,verbosity,prefi prefix_ = "" end if - write(iout_,*) trim(prefix_) - + if ((me == 0).or.(verbosity_>0)) write(iout_,*) trim(prefix_) if (global_) then allocate(sz(6)) diff --git a/amgprec/impl/level/amg_z_base_onelev_memory_use.f90 b/amgprec/impl/level/amg_z_base_onelev_memory_use.f90 index 0e12a6bc..6682ff2d 100644 --- a/amgprec/impl/level/amg_z_base_onelev_memory_use.f90 +++ b/amgprec/impl/level/amg_z_base_onelev_memory_use.f90 @@ -98,8 +98,7 @@ subroutine amg_z_base_onelev_memory_use(lv,il,nl,ilmin,info,iout,verbosity,prefi prefix_ = "" end if - write(iout_,*) trim(prefix_) - + if ((me == 0).or.(verbosity_>0)) write(iout_,*) trim(prefix_) if (global_) then allocate(sz(6))