psblas3:

f03/psb_c_coo_impl.f03
 f03/psb_d_coo_impl.f03
 f03/psb_s_coo_impl.f03
 f03/psb_z_coo_impl.f03

Fixed error on input NZ < 0 and not <= .

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)

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)

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)

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)