diff --git a/base/serial/f03/psb_c_coo_impl.f03 b/base/serial/f03/psb_c_coo_impl.f03
index 8010f302..44cbd297 100644
--- a/base/serial/f03/psb_c_coo_impl.f03
+++ b/base/serial/f03/psb_c_coo_impl.f03
@@ -2163,7 +2163,7 @@ subroutine psb_c_coo_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
   info = psb_success_
   call psb_erractionsave(err_act)
 
-  if (nz <= 0) then 
+  if (nz < 0) then 
     info = psb_err_iarg_neg_
     int_err(1)=1
     call psb_errpush(info,name,i_err=int_err)
diff --git a/base/serial/f03/psb_d_coo_impl.f03 b/base/serial/f03/psb_d_coo_impl.f03
index 7184956b..6e219a5b 100644
--- a/base/serial/f03/psb_d_coo_impl.f03
+++ b/base/serial/f03/psb_d_coo_impl.f03
@@ -2210,7 +2210,7 @@ subroutine psb_d_coo_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
   info = psb_success_
   call psb_erractionsave(err_act)
 
-  if (nz <= 0) then 
+  if (nz < 0) then 
     info = psb_err_iarg_neg_
     int_err(1)=1
     call psb_errpush(info,name,i_err=int_err)
diff --git a/base/serial/f03/psb_s_coo_impl.f03 b/base/serial/f03/psb_s_coo_impl.f03
index 03ee681b..6dbc1150 100644
--- a/base/serial/f03/psb_s_coo_impl.f03
+++ b/base/serial/f03/psb_s_coo_impl.f03
@@ -1963,7 +1963,7 @@ subroutine psb_s_coo_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
   info = psb_success_
   call psb_erractionsave(err_act)
 
-  if (nz <= 0) then 
+  if (nz < 0) then 
     info = psb_err_iarg_neg_
     int_err(1)=1
     call psb_errpush(info,name,i_err=int_err)
diff --git a/base/serial/f03/psb_z_coo_impl.f03 b/base/serial/f03/psb_z_coo_impl.f03
index ede643f4..38d7edbb 100644
--- a/base/serial/f03/psb_z_coo_impl.f03
+++ b/base/serial/f03/psb_z_coo_impl.f03
@@ -2163,7 +2163,7 @@ subroutine psb_z_coo_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
   info = psb_success_
   call psb_erractionsave(err_act)
 
-  if (nz <= 0) then 
+  if (nz < 0) then 
     info = psb_err_iarg_neg_
     int_err(1)=1
     call psb_errpush(info,name,i_err=int_err)