*** empty log message ***

psblas3-type-indexed
Salvatore Filippone 19 years ago
parent e33cdba6f9
commit a4262fe6b4

@ -89,7 +89,7 @@ Subroutine psb_zsprn(a, desc_a,info)
if (a%infoa(psb_state_) == psb_spmat_asb_) then if (a%infoa(psb_state_) == psb_spmat_asb_) then
a%aspk(:) = zzero a%aspk(:) = zzero
if (ibits(a%infoa(psb_upd_),2,1)==1) then if (psb_sp_getifld(psb_upd_,a,info)==psb_upd_perm_) then
if(a%fida(1:3).eq.'JAD') then if(a%fida(1:3).eq.'JAD') then
a%ia1(a%infoa(psb_upd_pnt_)+psb_nnz_) = 0 a%ia1(a%infoa(psb_upd_pnt_)+psb_nnz_) = 0
else else

Loading…
Cancel
Save