|
|
@ -118,10 +118,10 @@ Subroutine psb_zgmresr(a,prec,b,x,eps,desc_a,info,&
|
|
|
|
character(len=20) :: name
|
|
|
|
character(len=20) :: name
|
|
|
|
|
|
|
|
|
|
|
|
info = 0
|
|
|
|
info = 0
|
|
|
|
name = 'psb_dgmres'
|
|
|
|
name = 'psb_zgmres'
|
|
|
|
call psb_erractionsave(err_act)
|
|
|
|
call psb_erractionsave(err_act)
|
|
|
|
|
|
|
|
|
|
|
|
If (debug) Write(0,*) 'entering psb_dgmres'
|
|
|
|
If (debug) Write(0,*) 'entering psb_zgmres'
|
|
|
|
ictxt = psb_cd_get_context(desc_a)
|
|
|
|
ictxt = psb_cd_get_context(desc_a)
|
|
|
|
Call psb_info(ictxt, me, np)
|
|
|
|
Call psb_info(ictxt, me, np)
|
|
|
|
|
|
|
|
|
|
|
|