fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-07 07:04:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
"RGMRES" everywhere for consistency.
This commit is contained in:
Salvatore Filippone
2008-01-10 11:16:23 +00:00
parent 45fc97d582
commit e49dfdf409
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
krylov/Makefile
+2 -2
View File
@@ -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)
krylov/mld_krylov_mod.f90
+4 -4
View File
@@ -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