Merge branch 'PolySmooth' of github.com:sfilippone/amg4psblas into PolySmooth

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

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

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

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