Merged MixedI8 in new branch (to be later merged into development)

2026-10-20 04:42:08 +00:00 · 2018-12-10 11:42:40 +00:00
parent 5371e39c16
commit 8d489f8ce2
921 changed files with 172036 additions and 57462 deletions
@@ -434,10 +434,12 @@ subroutine psb_c_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)
  character(len=20)  :: ch_err


-  if(psb_get_errstatus() /= 0) return 
  info = psb_success_

  call psb_erractionsave(err_act)
+  if (psb_errstatus_fatal()) then
+    info = psb_err_internal_error_ ;    goto 9999
+  end if

  ictxt=desc_a%get_ctxt()
  call prec%set_ctxt(ictxt)