*** empty log message ***

psblas3-type-indexed
Alfredo Buttari 19 years ago
parent 23d3893c35
commit 95a6201967

@ -63,8 +63,8 @@ subroutine psb_cest(afmt, nnz, lia1, lia2, lar, up, info)
lia2 = 2*nnz + 1000 lia2 = 2*nnz + 1000
lar = nnz lar = nnz
else else
info = 3012 info = 136
call psb_errpush(info,name) call psb_errpush(info,name,a_err=afmt)
goto 9999 goto 9999
endif endif
@ -83,8 +83,8 @@ subroutine psb_cest(afmt, nnz, lia1, lia2, lar, up, info)
lia2 = nnz lia2 = nnz
lar = nnz lar = nnz
else else
info = 3012 info = 136
call psb_errpush(info,name) call psb_errpush(info,name,a_err=afmt)
goto 9999 goto 9999
endif endif

Loading…
Cancel
Save