diff --git a/base/serial/impl/psb_c_coo_impl.F90 b/base/serial/impl/psb_c_coo_impl.F90
index 1b162457..53ffcea9 100644
--- a/base/serial/impl/psb_c_coo_impl.F90
+++ b/base/serial/impl/psb_c_coo_impl.F90
@@ -2879,9 +2879,9 @@ subroutine psb_c_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
     if (info /= 0) write(0,*) name,' point 0:',info,isza,nza,nz
     ! Build phase. Must handle reallocations in a sensible way.
     if (isza < (nza+nz)) then
-      write(0,*) ' before reallocate in csput ',psb_errstatus_fatal(),info
+      !write(0,*) ' before reallocate in csput ',psb_errstatus_fatal(),info
       call a%reallocate(max(nza+nz,int(1.5*isza)))
-      write(0,*) '  after reallocate in csput ',psb_errstatus_fatal(),info            
+      !write(0,*) '  after reallocate in csput ',psb_errstatus_fatal(),info            
     endif
     isza = a%get_size()
     if (isza < (nza+nz)) then
diff --git a/base/serial/impl/psb_d_coo_impl.F90 b/base/serial/impl/psb_d_coo_impl.F90
index 9a20164a..7a79847e 100644
--- a/base/serial/impl/psb_d_coo_impl.F90
+++ b/base/serial/impl/psb_d_coo_impl.F90
@@ -2879,9 +2879,9 @@ subroutine psb_d_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
     if (info /= 0) write(0,*) name,' point 0:',info,isza,nza,nz
     ! Build phase. Must handle reallocations in a sensible way.
     if (isza < (nza+nz)) then
-      write(0,*) ' before reallocate in csput ',psb_errstatus_fatal(),info
+      !write(0,*) ' before reallocate in csput ',psb_errstatus_fatal(),info
       call a%reallocate(max(nza+nz,int(1.5*isza)))
-      write(0,*) '  after reallocate in csput ',psb_errstatus_fatal(),info            
+      !write(0,*) '  after reallocate in csput ',psb_errstatus_fatal(),info            
     endif
     isza = a%get_size()
     if (isza < (nza+nz)) then
diff --git a/base/serial/impl/psb_s_coo_impl.F90 b/base/serial/impl/psb_s_coo_impl.F90
index e944ce7c..b4e6a8df 100644
--- a/base/serial/impl/psb_s_coo_impl.F90
+++ b/base/serial/impl/psb_s_coo_impl.F90
@@ -2879,9 +2879,9 @@ subroutine psb_s_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
     if (info /= 0) write(0,*) name,' point 0:',info,isza,nza,nz
     ! Build phase. Must handle reallocations in a sensible way.
     if (isza < (nza+nz)) then
-      write(0,*) ' before reallocate in csput ',psb_errstatus_fatal(),info
+      !write(0,*) ' before reallocate in csput ',psb_errstatus_fatal(),info
       call a%reallocate(max(nza+nz,int(1.5*isza)))
-      write(0,*) '  after reallocate in csput ',psb_errstatus_fatal(),info            
+      !write(0,*) '  after reallocate in csput ',psb_errstatus_fatal(),info            
     endif
     isza = a%get_size()
     if (isza < (nza+nz)) then
diff --git a/base/serial/impl/psb_z_coo_impl.F90 b/base/serial/impl/psb_z_coo_impl.F90
index f88dc92b..949d0384 100644
--- a/base/serial/impl/psb_z_coo_impl.F90
+++ b/base/serial/impl/psb_z_coo_impl.F90
@@ -2879,9 +2879,9 @@ subroutine psb_z_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
     if (info /= 0) write(0,*) name,' point 0:',info,isza,nza,nz
     ! Build phase. Must handle reallocations in a sensible way.
     if (isza < (nza+nz)) then
-      write(0,*) ' before reallocate in csput ',psb_errstatus_fatal(),info
+      !write(0,*) ' before reallocate in csput ',psb_errstatus_fatal(),info
       call a%reallocate(max(nza+nz,int(1.5*isza)))
-      write(0,*) '  after reallocate in csput ',psb_errstatus_fatal(),info            
+      !write(0,*) '  after reallocate in csput ',psb_errstatus_fatal(),info            
     endif
     isza = a%get_size()
     if (isza < (nza+nz)) then