fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-17 03:12:15 +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:06:24 +00:00
parent ae7d533a04
commit fe6657534c
4 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
krylov/Makefile
+2 -2
View File
@@ -5,8 +5,8 @@ HERE=.
LIBDIR=../lib
OBJS=psb_krylov_mod.o 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)
krylov/psb_dgmresr.f90 → krylov/psb_drgmres.f90
+4 -4
View File
@@ -64,9 +64,9 @@
!!$ C C
!!$ C C
!!$ CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
! File: psb_dgmresr.f90
! File: psb_drgmres.f90
!
! Subroutine: psb_dgmres
! Subroutine: psb_drgmres
! This subroutine implements the restarted GMRES method with right
! preconditioning.
!
@@ -100,7 +100,7 @@
! where r is the (preconditioned, recursive
! estimate of) residual
!
Subroutine psb_dgmresr(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,irst,istop)
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
implicit none
@@ -497,6 +497,6 @@ contains
end function safe_dn2
End Subroutine psb_dgmresr
End Subroutine psb_drgmres
krylov/psb_krylov_mod.f90
+4 -4
View File
@@ -127,7 +127,7 @@ Module psb_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
@@ -141,8 +141,8 @@ Module psb_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
@@ -156,7 +156,7 @@ Module psb_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
krylov/psb_zgmresr.f90 → krylov/psb_zrgmres.f90
+5 -5
View File
@@ -64,9 +64,9 @@
!!$ C C
!!$ C C
!!$ CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
! File: psb_dgmresr.f90
! File: psb_zrgmres.f90
!
! Subroutine: psb_zgmres
! Subroutine: psb_zrgmres
! This subroutine implements the restarted GMRES method with right
! preconditioning.
!
@@ -100,7 +100,7 @@
! where r is the (preconditioned, recursive
! estimate of) residual
!
Subroutine psb_zgmresr(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,irst,istop)
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
implicit none
@@ -433,7 +433,7 @@ Subroutine psb_zgmresr(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,irst,ist
If (Present(err)) err=rerr
If (Present(iter)) iter = itx
If ((rerr>eps).and. (me == 0)) Then
write(debug_unit,*) 'gmresr(l) failed to converge to ',eps,&
write(debug_unit,*) 'rgmres(l) failed to converge to ',eps,&
& ' in ',itx,' iterations '
End If
@@ -584,4 +584,4 @@ contains
return
end subroutine zrotg
End Subroutine psb_zgmresr
End Subroutine psb_zrgmres