From 8e68c312ff877b52266d06630640597ecda06b76 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 28 Jul 2010 12:38:43 +0000 Subject: [PATCH] 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 | 2 +- base/serial/f03/psb_d_coo_impl.f03 | 2 +- base/serial/f03/psb_s_coo_impl.f03 | 2 +- base/serial/f03/psb_z_coo_impl.f03 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) 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)