Some places had "gmresr", others "rgmres": renamed "GMRESR" into

"RGMRES" everywhere for consistency.
stopcriterion
Salvatore Filippone 17 years ago
parent 45fc97d582
commit e49dfdf409

@ -13,8 +13,8 @@ FINCLUDES=$(FMFLAG). $(FMFLAG)$(LIBDIR) $(FMFLAG)$(PSBLIBDIR)
PSBKRYLDIR=$(PSBLASDIR)/krylov
METHDOBJS=psb_dcgstab.o psb_dcg.o psb_dcgs.o \
psb_dbicg.o psb_dcgstabl.o psb_dgmresr.o\
psb_zcgstab.o psb_zcgs.o psb_zgmresr.o
psb_dbicg.o psb_dcgstabl.o psb_drgmres.o\
psb_zcgstab.o psb_zcgs.o psb_zrgmres.o
LIBMOD=psb_krylov_mod$(.mod)
MODOBJS=$(LIBMOD:$(.mod)=.o)

@ -154,7 +154,7 @@ Module mld_krylov_mod
end interface
interface psb_rgmres
Subroutine psb_dgmresr(a,prec,b,x,eps,desc_a,info,&
Subroutine psb_drgmres(a,prec,b,x,eps,desc_a,info,&
&itmax,iter,err,itrace,irst,istop)
use psb_base_mod
use psb_prec_mod
@ -168,8 +168,8 @@ Module mld_krylov_mod
Integer, Optional, Intent(in) :: itmax, itrace, irst,istop
Integer, Optional, Intent(out) :: iter
Real(Kind(1.d0)), Optional, Intent(out) :: err
end subroutine psb_dgmresr
Subroutine psb_zgmresr(a,prec,b,x,eps,desc_a,info,&
end subroutine psb_drgmres
Subroutine psb_zrgmres(a,prec,b,x,eps,desc_a,info,&
&itmax,iter,err,itrace,irst,istop)
use psb_base_mod
use psb_prec_mod
@ -183,7 +183,7 @@ Module mld_krylov_mod
Integer, Optional, Intent(in) :: itmax, itrace, irst,istop
Integer, Optional, Intent(out) :: iter
Real(Kind(1.d0)), Optional, Intent(out) :: err
end subroutine psb_zgmresr
end subroutine psb_zrgmres
end interface
interface psb_cgs

Loading…
Cancel
Save