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

psblas3:

Browse Source 
base/serial/impl/psb_c_csr_impl.f90
 base/serial/impl/psb_d_csr_impl.f90
 base/serial/impl/psb_s_csr_impl.f90
 base/serial/impl/psb_z_csr_impl.f90

Change error from missing index in srch_upd.
This commit is contained in:
Salvatore Filippone
2014-04-09 17:28:51 +00:00
parent c193fced51
commit 045d4d5e32
4 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_csr_impl.f90
+1 -2
View File
@@ -2400,8 +2400,7 @@ subroutine psb_c_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
& imin,imax,jmin,jmax,info,gtl)
if (info /= psb_success_) then
info = psb_err_invalid_mat_state_
info = psb_err_internal_error_
end if
else
base/serial/impl/psb_d_csr_impl.f90
+1 -2
View File
@@ -2400,8 +2400,7 @@ subroutine psb_d_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
& imin,imax,jmin,jmax,info,gtl)
if (info /= psb_success_) then
info = psb_err_invalid_mat_state_
info = psb_err_internal_error_
end if
else
base/serial/impl/psb_s_csr_impl.f90
+1 -2
View File
@@ -2400,8 +2400,7 @@ subroutine psb_s_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
& imin,imax,jmin,jmax,info,gtl)
if (info /= psb_success_) then
info = psb_err_invalid_mat_state_
info = psb_err_internal_error_
end if
else
base/serial/impl/psb_z_csr_impl.f90
+1 -2
View File
@@ -2400,8 +2400,7 @@ subroutine psb_z_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
& imin,imax,jmin,jmax,info,gtl)
if (info /= psb_success_) then
info = psb_err_invalid_mat_state_
info = psb_err_internal_error_
end if
else