fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 21:02:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
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 <= .
This commit is contained in:
Salvatore Filippone
2010-07-28 12:38:43 +00:00
parent de705a3dc6
commit 8e68c312ff
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/f03/psb_c_coo_impl.f03
+1 -1
View File
@@ -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
+1 -1
View File
@@ -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
+1 -1
View File
@@ -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
+1 -1
View File
@@ -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)