Merge branch 'PolySmooth' into mboxomp

7 months ago · 41d91120d4
parent 818ead5878 5d20407b15
commit 41d91120d4
4 changed files with 4 additions and 7 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,7 +98,7 @@ subroutine amg_d_base_onelev_memory_use(lv,il,nl,ilmin,info,iout,verbosity,prefi
    prefix_ = ""
  end if

-  if (me == 0)   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))