From ce6f708a15b8cc0914ee54a1ac9adc3b48bb1609 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 30 Jan 2019 15:22:40 +0000 Subject: [PATCH] Make all Krylov methods explicitly recursive. --- krylov/psb_ckrylov.f90 | 2 +- krylov/psb_dkrylov.f90 | 2 +- krylov/psb_krylov_mod.f90 | 8 ++++---- krylov/psb_skrylov.f90 | 2 +- krylov/psb_zkrylov.f90 | 2 +- 5 files changed, 8 insertions(+), 8 deletions(-) diff --git a/krylov/psb_ckrylov.f90 b/krylov/psb_ckrylov.f90 index 32063ae9..e4038614 100644 --- a/krylov/psb_ckrylov.f90 +++ b/krylov/psb_ckrylov.f90 @@ -78,7 +78,7 @@ ! where r is the (preconditioned, recursive ! estimate of) residual ! -Subroutine psb_ckrylov_vect(method,a,prec,b,x,eps,desc_a,info,& +recursive Subroutine psb_ckrylov_vect(method,a,prec,b,x,eps,desc_a,info,& & itmax,iter,err,itrace,irst,istop,cond) use psb_base_mod diff --git a/krylov/psb_dkrylov.f90 b/krylov/psb_dkrylov.f90 index 0dff1af0..c90571d0 100644 --- a/krylov/psb_dkrylov.f90 +++ b/krylov/psb_dkrylov.f90 @@ -78,7 +78,7 @@ ! where r is the (preconditioned, recursive ! estimate of) residual ! -Subroutine psb_dkrylov_vect(method,a,prec,b,x,eps,desc_a,info,& +recursive Subroutine psb_dkrylov_vect(method,a,prec,b,x,eps,desc_a,info,& & itmax,iter,err,itrace,irst,istop,cond) use psb_base_mod diff --git a/krylov/psb_krylov_mod.f90 b/krylov/psb_krylov_mod.f90 index d8d4d904..705fb619 100644 --- a/krylov/psb_krylov_mod.f90 +++ b/krylov/psb_krylov_mod.f90 @@ -40,7 +40,7 @@ Module psb_krylov_mod interface psb_krylov - Subroutine psb_skrylov_vect(method,a,prec,b,x,eps,desc_a,info,& + recursive Subroutine psb_skrylov_vect(method,a,prec,b,x,eps,desc_a,info,& & itmax,iter,err,itrace,irst,istop,cond) use psb_base_mod, only : psb_ipk_, psb_desc_type, psb_sspmat_type, & @@ -61,7 +61,7 @@ Module psb_krylov_mod end Subroutine psb_skrylov_vect - Subroutine psb_ckrylov_vect(method,a,prec,b,x,eps,desc_a,info,& + recursive Subroutine psb_ckrylov_vect(method,a,prec,b,x,eps,desc_a,info,& & itmax,iter,err,itrace,irst,istop,cond) use psb_base_mod, only : psb_ipk_, psb_desc_type, psb_cspmat_type, & @@ -82,7 +82,7 @@ Module psb_krylov_mod end Subroutine psb_ckrylov_vect - Subroutine psb_dkrylov_vect(method,a,prec,b,x,eps,desc_a,info,& + recursive Subroutine psb_dkrylov_vect(method,a,prec,b,x,eps,desc_a,info,& & itmax,iter,err,itrace,irst,istop,cond) use psb_base_mod, only : psb_ipk_, psb_desc_type, psb_dspmat_type, & @@ -103,7 +103,7 @@ Module psb_krylov_mod end Subroutine psb_dkrylov_vect - Subroutine psb_zkrylov_vect(method,a,prec,b,x,eps,desc_a,info,& + recursive Subroutine psb_zkrylov_vect(method,a,prec,b,x,eps,desc_a,info,& & itmax,iter,err,itrace,irst,istop,cond) use psb_base_mod, only : psb_ipk_, psb_desc_type, psb_zspmat_type, & diff --git a/krylov/psb_skrylov.f90 b/krylov/psb_skrylov.f90 index ce69e48a..1af9f822 100644 --- a/krylov/psb_skrylov.f90 +++ b/krylov/psb_skrylov.f90 @@ -78,7 +78,7 @@ ! where r is the (preconditioned, recursive ! estimate of) residual ! -Subroutine psb_skrylov_vect(method,a,prec,b,x,eps,desc_a,info,& +recursive Subroutine psb_skrylov_vect(method,a,prec,b,x,eps,desc_a,info,& & itmax,iter,err,itrace,irst,istop,cond) use psb_base_mod diff --git a/krylov/psb_zkrylov.f90 b/krylov/psb_zkrylov.f90 index 09be68dd..20dc815d 100644 --- a/krylov/psb_zkrylov.f90 +++ b/krylov/psb_zkrylov.f90 @@ -78,7 +78,7 @@ ! where r is the (preconditioned, recursive ! estimate of) residual ! -Subroutine psb_zkrylov_vect(method,a,prec,b,x,eps,desc_a,info,& +recursive Subroutine psb_zkrylov_vect(method,a,prec,b,x,eps,desc_a,info,& & itmax,iter,err,itrace,irst,istop,cond) use psb_base_mod