psblas3:

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.

base/serial/impl/psb_c_mat_impl.F90

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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