diff --git a/base/serial/impl/psb_c_coo_impl.F90 b/base/serial/impl/psb_c_coo_impl.F90
index b1d71321..5c90e287 100644
--- a/base/serial/impl/psb_c_coo_impl.F90
+++ b/base/serial/impl/psb_c_coo_impl.F90
@@ -2869,6 +2869,7 @@ subroutine psb_c_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
     ! Hence the call to set_nzeros done here. 
     !$omp critical
     nza  = a%get_nzeros()
+    nzaold = nza
     isza = a%get_size()
     ! Build phase. Must handle reallocations in a sensible way.
     if (isza < (nza+nz)) then
@@ -2879,7 +2880,6 @@ subroutine psb_c_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
       info = psb_err_alloc_dealloc_; call psb_errpush(info,name)
     else
 #if defined(OPENMP)      
-      nzaold = nza
       nza = nza + nz
 #endif
       call a%set_nzeros(nza)
diff --git a/base/serial/impl/psb_d_coo_impl.F90 b/base/serial/impl/psb_d_coo_impl.F90
index 350085bb..f6a173d1 100644
--- a/base/serial/impl/psb_d_coo_impl.F90
+++ b/base/serial/impl/psb_d_coo_impl.F90
@@ -2869,6 +2869,7 @@ subroutine psb_d_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
     ! Hence the call to set_nzeros done here. 
     !$omp critical
     nza  = a%get_nzeros()
+    nzaold = nza
     isza = a%get_size()
     ! Build phase. Must handle reallocations in a sensible way.
     if (isza < (nza+nz)) then
@@ -2879,7 +2880,6 @@ subroutine psb_d_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
       info = psb_err_alloc_dealloc_; call psb_errpush(info,name)
     else
 #if defined(OPENMP)      
-      nzaold = nza
       nza = nza + nz
 #endif
       call a%set_nzeros(nza)
diff --git a/base/serial/impl/psb_s_coo_impl.F90 b/base/serial/impl/psb_s_coo_impl.F90
index 51858efd..4c12d8fc 100644
--- a/base/serial/impl/psb_s_coo_impl.F90
+++ b/base/serial/impl/psb_s_coo_impl.F90
@@ -2869,6 +2869,7 @@ subroutine psb_s_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
     ! Hence the call to set_nzeros done here. 
     !$omp critical
     nza  = a%get_nzeros()
+    nzaold = nza
     isza = a%get_size()
     ! Build phase. Must handle reallocations in a sensible way.
     if (isza < (nza+nz)) then
@@ -2879,7 +2880,6 @@ subroutine psb_s_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
       info = psb_err_alloc_dealloc_; call psb_errpush(info,name)
     else
 #if defined(OPENMP)      
-      nzaold = nza
       nza = nza + nz
 #endif
       call a%set_nzeros(nza)
diff --git a/base/serial/impl/psb_z_coo_impl.F90 b/base/serial/impl/psb_z_coo_impl.F90
index 0624dd21..44ee89b5 100644
--- a/base/serial/impl/psb_z_coo_impl.F90
+++ b/base/serial/impl/psb_z_coo_impl.F90
@@ -2869,6 +2869,7 @@ subroutine psb_z_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
     ! Hence the call to set_nzeros done here. 
     !$omp critical
     nza  = a%get_nzeros()
+    nzaold = nza
     isza = a%get_size()
     ! Build phase. Must handle reallocations in a sensible way.
     if (isza < (nza+nz)) then
@@ -2879,7 +2880,6 @@ subroutine psb_z_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info)
       info = psb_err_alloc_dealloc_; call psb_errpush(info,name)
     else
 #if defined(OPENMP)      
-      nzaold = nza
       nza = nza + nz
 #endif
       call a%set_nzeros(nza)