*** empty log message ***

2026-10-17 03:12:15 +00:00 · 2005-10-10 15:39:42 +00:00
parent aedef1ef01
commit 9ad5ffe8a6
8 changed files with 74 additions and 57 deletions
@@ -375,7 +375,7 @@ Subroutine psb_dcgstab(a,prec,b,x,eps,desc_a,info,&
 9999 continue
  call psb_erractionrestore(err_act)
  if (err_act.eq.act_abort) then
-     call psb_error()
+     call psb_error(icontxt)
     return
  end if
  return
@@ -169,6 +169,7 @@ function psb_dnrm2v(x, desc_a, info)

  m = desc_a%matrix_data(psb_m_)

+
  call psb_chkvect(m,1,size(x),ix,jx,desc_a%matrix_data,info,iix,jjx)
  if(info.ne.0) then
     info=4010