[UPDATE] Transient version usefull for debug on local server

This commit is contained in:
Stack-1
2026-04-19 00:11:45 +02:00
parent 5ed9643fe6
commit fcae4a1633
7 changed files with 742 additions and 139 deletions
+5
View File
@@ -140,6 +140,11 @@ subroutine psb_dcg_vect(a,prec,b,x,eps,desc_a,info,&
ctxt = desc_a%get_context()
call psb_info(ctxt, me, np)
if (np == -ione) then
info = psb_err_context_error_
call psb_errpush(info,name,a_err='invalid desc_a context in psb_dcg_vect')
goto 9999
end if
if (.not.allocated(b%v)) then
info = psb_err_invalid_vect_state_
call psb_errpush(info,name)