Accept GMRES as well as RGMRES.

6 years ago · 6cf0f84408
parent 172b538cbe
commit 6cf0f84408
6 changed files with 6 additions and 5 deletions
--- a/1
+++ b/1
@ -1,5 +1,6 @@
 Changelog. A lot less detailed than usual, at least for past
 	history.
+2018/02/03: Accept 'GMRES' as synonim with 'RGMRES'.	
 2018/11/23: Reimplement hash function. 	
 2018/10/10: new ICTXT argument to prec%init method.
 2018/09/04: Modified vector class get_vect method
--- a/README.md
+++ b/README.md
@ -1,4 +1,4 @@
-PSBLAS library, version 3.5
+PSBLAS library, version 3.6
 ===========================

 The architecture of the Fortran 2003 sparse BLAS is described in:
--- a/krylov/psb_ckrylov.f90
+++ b/krylov/psb_ckrylov.f90
@ -185,7 +185,7 @@ Subroutine psb_ckrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
  case('BICGSTAB') 
    call  psb_ccgstab_vect(a,prec,b,x,eps,desc_a,info,&
         &itmax,iter,err,itrace,istop)
-  case('RGMRES')
+  case('RGMRES','GMRES')
    call  psb_crgmres_vect(a,prec,b,x,eps,desc_a,info,&
         &itmax,iter,err,itrace,irst,istop)
  case('BICGSTABL')
--- a/krylov/psb_dkrylov.f90
+++ b/krylov/psb_dkrylov.f90
@ -185,7 +185,7 @@ Subroutine psb_dkrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
  case('BICGSTAB') 
    call  psb_dcgstab_vect(a,prec,b,x,eps,desc_a,info,&
         &itmax,iter,err,itrace,istop)
-  case('RGMRES')
+  case('RGMRES','GMRES')
    call  psb_drgmres_vect(a,prec,b,x,eps,desc_a,info,&
         &itmax,iter,err,itrace,irst,istop)
  case('BICGSTABL')
--- a/krylov/psb_skrylov.f90
+++ b/krylov/psb_skrylov.f90
@ -185,7 +185,7 @@ Subroutine psb_skrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
  case('BICGSTAB') 
    call  psb_scgstab_vect(a,prec,b,x,eps,desc_a,info,&
         &itmax,iter,err,itrace,istop)
-  case('RGMRES')
+  case('RGMRES','GMRES')
    call  psb_srgmres_vect(a,prec,b,x,eps,desc_a,info,&
         &itmax,iter,err,itrace,irst,istop)
  case('BICGSTABL')
--- a/krylov/psb_zkrylov.f90
+++ b/krylov/psb_zkrylov.f90
@ -185,7 +185,7 @@ Subroutine psb_zkrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
  case('BICGSTAB') 
    call  psb_zcgstab_vect(a,prec,b,x,eps,desc_a,info,&
         &itmax,iter,err,itrace,istop)
-  case('RGMRES')
+  case('RGMRES','GMRES')
    call  psb_zrgmres_vect(a,prec,b,x,eps,desc_a,info,&
         &itmax,iter,err,itrace,irst,istop)
  case('BICGSTABL')