Accept GMRES as well as RGMRES.

6 years ago · 5371e39c16
parent 22e17b6cec
commit 5371e39c16
4 changed files with 4 additions and 4 deletions
--- 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')