Fix noise in %memory_use()

4 months ago · 3ff1ad9372
parent 67594f8b07
commit 3ff1ad9372
4 changed files with 4 additions and 8 deletions
--- 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))
--- 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))
--- 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))
--- 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))