fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 10:52:08 +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
test/pargen/runs/ppde.inp
+2 -2
View File
@@ -1,8 +1,8 @@
7 Number of entries below this
BICGSTAB Iterative method BICGSTAB CGS BICG BICGSTABL RGMRES
BJAC Preconditioner NONE DIAG BJAC
DIAG Preconditioner NONE DIAG BJAC
CSR Storage format for matrix A: CSR COO JAD
100 Domain size (acutal system is this**3)
050 Domain size (acutal system is this**3)
2 Stopping criterion
1000 MAXIT
-1 ITRACE