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

psblas3:

Browse Source 
base/serial/impl/psb_c_mat_impl.F90
 base/serial/impl/psb_d_mat_impl.F90
 base/serial/impl/psb_s_mat_impl.F90
 base/serial/impl/psb_z_mat_impl.F90

Silly mistake in UPDATE mode.
This commit is contained in:
Salvatore Filippone
2014-04-08 16:55:23 +00:00
parent 2fe569381a
commit c193fced51
5 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_mat_impl.F90
+1 -1
View File
@@ -748,7 +748,7 @@ subroutine psb_c_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
info = psb_success_
call psb_erractionsave(err_act)
if (.not.a%is_bld()) then
if (.not.(a%is_bld().or.a%is_upd())) then
info = psb_err_invalid_mat_state_
call psb_errpush(info,name)
goto 9999
base/serial/impl/psb_d_mat_impl.F90
+1 -1
View File
@@ -748,7 +748,7 @@ subroutine psb_d_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
info = psb_success_
call psb_erractionsave(err_act)
if (.not.a%is_bld()) then
if (.not.(a%is_bld().or.a%is_upd())) then
info = psb_err_invalid_mat_state_
call psb_errpush(info,name)
goto 9999
base/serial/impl/psb_s_mat_impl.F90
+1 -1
View File
@@ -748,7 +748,7 @@ subroutine psb_s_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
info = psb_success_
call psb_erractionsave(err_act)
if (.not.a%is_bld()) then
if (.not.(a%is_bld().or.a%is_upd())) then
info = psb_err_invalid_mat_state_
call psb_errpush(info,name)
goto 9999
base/serial/impl/psb_z_mat_impl.F90
+1 -1
View File
@@ -748,7 +748,7 @@ subroutine psb_z_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
info = psb_success_
call psb_erractionsave(err_act)
if (.not.a%is_bld()) then
if (.not.(a%is_bld().or.a%is_upd())) then
info = psb_err_invalid_mat_state_
call psb_errpush(info,name)
goto 9999