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))