From 5371e39c16d42f4497de68421542ff43b5a58bc8 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 3 Dec 2018 10:52:40 +0000 Subject: [PATCH] Accept GMRES as well as RGMRES. --- krylov/psb_ckrylov.f90 | 2 +- krylov/psb_dkrylov.f90 | 2 +- krylov/psb_skrylov.f90 | 2 +- krylov/psb_zkrylov.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/krylov/psb_ckrylov.f90 b/krylov/psb_ckrylov.f90 index a5d19445..9b2ab409 100644 --- 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') diff --git a/krylov/psb_dkrylov.f90 b/krylov/psb_dkrylov.f90 index ab3178da..328a372e 100644 --- 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') diff --git a/krylov/psb_skrylov.f90 b/krylov/psb_skrylov.f90 index 9eb3552d..09fcbfe3 100644 --- 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') diff --git a/krylov/psb_zkrylov.f90 b/krylov/psb_zkrylov.f90 index 4ab8776b..218502b2 100644 --- 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')