From 61daa334256258392113909e10bd0bda63b9aa84 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 27 Aug 2015 10:56:00 +0000 Subject: [PATCH] psblas3: prec/impl/psb_c_bjacprec_impl.f90 prec/impl/psb_c_diagprec_impl.f90 prec/impl/psb_c_nullprec_impl.f90 prec/impl/psb_c_prec_type_impl.f90 prec/impl/psb_d_bjacprec_impl.f90 prec/impl/psb_d_diagprec_impl.f90 prec/impl/psb_d_nullprec_impl.f90 prec/impl/psb_d_prec_type_impl.f90 prec/impl/psb_s_bjacprec_impl.f90 prec/impl/psb_s_diagprec_impl.f90 prec/impl/psb_s_nullprec_impl.f90 prec/impl/psb_s_prec_type_impl.f90 prec/impl/psb_z_bjacprec_impl.f90 prec/impl/psb_z_diagprec_impl.f90 prec/impl/psb_z_nullprec_impl.f90 prec/impl/psb_z_prec_type_impl.f90 prec/psb_c_base_prec_mod.f90 prec/psb_c_bjacprec.f90 prec/psb_c_diagprec.f90 prec/psb_c_nullprec.f90 prec/psb_c_prec_type.f90 prec/psb_d_base_prec_mod.f90 prec/psb_d_bjacprec.f90 prec/psb_d_diagprec.f90 prec/psb_d_nullprec.f90 prec/psb_d_prec_type.f90 prec/psb_s_base_prec_mod.f90 prec/psb_s_bjacprec.f90 prec/psb_s_diagprec.f90 prec/psb_s_nullprec.f90 prec/psb_s_prec_type.f90 prec/psb_z_base_prec_mod.f90 prec/psb_z_bjacprec.f90 prec/psb_z_diagprec.f90 prec/psb_z_nullprec.f90 prec/psb_z_prec_type.f90 Fix INTENT of PREC in application of preconditioner. --- prec/impl/psb_c_bjacprec_impl.f90 | 2 +- prec/impl/psb_c_diagprec_impl.f90 | 2 +- prec/impl/psb_c_nullprec_impl.f90 | 2 +- prec/impl/psb_c_prec_type_impl.f90 | 4 ++-- prec/impl/psb_d_bjacprec_impl.f90 | 2 +- prec/impl/psb_d_diagprec_impl.f90 | 2 +- prec/impl/psb_d_nullprec_impl.f90 | 2 +- prec/impl/psb_d_prec_type_impl.f90 | 4 ++-- prec/impl/psb_s_bjacprec_impl.f90 | 2 +- prec/impl/psb_s_diagprec_impl.f90 | 2 +- prec/impl/psb_s_nullprec_impl.f90 | 2 +- prec/impl/psb_s_prec_type_impl.f90 | 4 ++-- prec/impl/psb_z_bjacprec_impl.f90 | 2 +- prec/impl/psb_z_diagprec_impl.f90 | 2 +- prec/impl/psb_z_nullprec_impl.f90 | 2 +- prec/impl/psb_z_prec_type_impl.f90 | 4 ++-- prec/psb_c_base_prec_mod.f90 | 2 +- prec/psb_c_bjacprec.f90 | 2 +- prec/psb_c_diagprec.f90 | 2 +- prec/psb_c_nullprec.f90 | 2 +- prec/psb_c_prec_type.f90 | 4 ++-- prec/psb_d_base_prec_mod.f90 | 2 +- prec/psb_d_bjacprec.f90 | 2 +- prec/psb_d_diagprec.f90 | 2 +- prec/psb_d_nullprec.f90 | 2 +- prec/psb_d_prec_type.f90 | 4 ++-- prec/psb_s_base_prec_mod.f90 | 2 +- prec/psb_s_bjacprec.f90 | 2 +- prec/psb_s_diagprec.f90 | 2 +- prec/psb_s_nullprec.f90 | 2 +- prec/psb_s_prec_type.f90 | 4 ++-- prec/psb_z_base_prec_mod.f90 | 2 +- prec/psb_z_bjacprec.f90 | 2 +- prec/psb_z_diagprec.f90 | 2 +- prec/psb_z_nullprec.f90 | 2 +- prec/psb_z_prec_type.f90 | 4 ++-- 36 files changed, 44 insertions(+), 44 deletions(-) diff --git a/prec/impl/psb_c_bjacprec_impl.f90 b/prec/impl/psb_c_bjacprec_impl.f90 index afbb44f2..71cb8d2a 100644 --- a/prec/impl/psb_c_bjacprec_impl.f90 +++ b/prec/impl/psb_c_bjacprec_impl.f90 @@ -228,7 +228,7 @@ subroutine psb_c_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) use psb_c_bjacprec, psb_protect_name => psb_c_bjac_apply implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_c_bjac_prec_type), intent(in) :: prec + class(psb_c_bjac_prec_type), intent(inout) :: prec complex(psb_spk_),intent(in) :: alpha,beta complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: y(:) diff --git a/prec/impl/psb_c_diagprec_impl.f90 b/prec/impl/psb_c_diagprec_impl.f90 index 4ea38bca..d8619598 100644 --- a/prec/impl/psb_c_diagprec_impl.f90 +++ b/prec/impl/psb_c_diagprec_impl.f90 @@ -135,7 +135,7 @@ subroutine psb_c_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_c_diag_prec_type), intent(in) :: prec + class(psb_c_diag_prec_type), intent(inout) :: prec complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(in) :: alpha, beta complex(psb_spk_),intent(inout) :: y(:) diff --git a/prec/impl/psb_c_nullprec_impl.f90 b/prec/impl/psb_c_nullprec_impl.f90 index 4454f82e..9d921e59 100644 --- a/prec/impl/psb_c_nullprec_impl.f90 +++ b/prec/impl/psb_c_nullprec_impl.f90 @@ -84,7 +84,7 @@ subroutine psb_c_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) use psb_c_nullprec, psb_protect_name => psb_c_null_apply implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_c_null_prec_type), intent(in) :: prec + class(psb_c_null_prec_type), intent(inout) :: prec complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(in) :: alpha, beta complex(psb_spk_),intent(inout) :: y(:) diff --git a/prec/impl/psb_c_prec_type_impl.f90 b/prec/impl/psb_c_prec_type_impl.f90 index b70d8fb5..42e9deef 100644 --- a/prec/impl/psb_c_prec_type_impl.f90 +++ b/prec/impl/psb_c_prec_type_impl.f90 @@ -209,7 +209,7 @@ subroutine psb_c_apply2v(prec,x,y,desc_data,info,trans,work) use psb_c_prec_type, psb_protect_name => psb_c_apply2v implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_cprec_type), intent(in) :: prec + class(psb_cprec_type), intent(inout) :: prec complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: y(:) integer(psb_ipk_), intent(out) :: info @@ -276,7 +276,7 @@ subroutine psb_c_apply1v(prec,x,desc_data,info,trans) use psb_c_prec_type, psb_protect_name => psb_c_apply1v implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_cprec_type), intent(in) :: prec + class(psb_cprec_type), intent(inout) :: prec complex(psb_spk_),intent(inout) :: x(:) integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans diff --git a/prec/impl/psb_d_bjacprec_impl.f90 b/prec/impl/psb_d_bjacprec_impl.f90 index 622db773..a91c26bc 100644 --- a/prec/impl/psb_d_bjacprec_impl.f90 +++ b/prec/impl/psb_d_bjacprec_impl.f90 @@ -228,7 +228,7 @@ subroutine psb_d_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) use psb_d_bjacprec, psb_protect_name => psb_d_bjac_apply implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_d_bjac_prec_type), intent(in) :: prec + class(psb_d_bjac_prec_type), intent(inout) :: prec real(psb_dpk_),intent(in) :: alpha,beta real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: y(:) diff --git a/prec/impl/psb_d_diagprec_impl.f90 b/prec/impl/psb_d_diagprec_impl.f90 index 5d741731..e426754f 100644 --- a/prec/impl/psb_d_diagprec_impl.f90 +++ b/prec/impl/psb_d_diagprec_impl.f90 @@ -135,7 +135,7 @@ subroutine psb_d_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_d_diag_prec_type), intent(in) :: prec + class(psb_d_diag_prec_type), intent(inout) :: prec real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(in) :: alpha, beta real(psb_dpk_),intent(inout) :: y(:) diff --git a/prec/impl/psb_d_nullprec_impl.f90 b/prec/impl/psb_d_nullprec_impl.f90 index 96cc019f..1989bf66 100644 --- a/prec/impl/psb_d_nullprec_impl.f90 +++ b/prec/impl/psb_d_nullprec_impl.f90 @@ -84,7 +84,7 @@ subroutine psb_d_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) use psb_d_nullprec, psb_protect_name => psb_d_null_apply implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_d_null_prec_type), intent(in) :: prec + class(psb_d_null_prec_type), intent(inout) :: prec real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(in) :: alpha, beta real(psb_dpk_),intent(inout) :: y(:) diff --git a/prec/impl/psb_d_prec_type_impl.f90 b/prec/impl/psb_d_prec_type_impl.f90 index 92c9bf22..e36ccea1 100644 --- a/prec/impl/psb_d_prec_type_impl.f90 +++ b/prec/impl/psb_d_prec_type_impl.f90 @@ -209,7 +209,7 @@ subroutine psb_d_apply2v(prec,x,y,desc_data,info,trans,work) use psb_d_prec_type, psb_protect_name => psb_d_apply2v implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_dprec_type), intent(in) :: prec + class(psb_dprec_type), intent(inout) :: prec real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: y(:) integer(psb_ipk_), intent(out) :: info @@ -276,7 +276,7 @@ subroutine psb_d_apply1v(prec,x,desc_data,info,trans) use psb_d_prec_type, psb_protect_name => psb_d_apply1v implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_dprec_type), intent(in) :: prec + class(psb_dprec_type), intent(inout) :: prec real(psb_dpk_),intent(inout) :: x(:) integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans diff --git a/prec/impl/psb_s_bjacprec_impl.f90 b/prec/impl/psb_s_bjacprec_impl.f90 index 48da23b0..308771d1 100644 --- a/prec/impl/psb_s_bjacprec_impl.f90 +++ b/prec/impl/psb_s_bjacprec_impl.f90 @@ -228,7 +228,7 @@ subroutine psb_s_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) use psb_s_bjacprec, psb_protect_name => psb_s_bjac_apply implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_s_bjac_prec_type), intent(in) :: prec + class(psb_s_bjac_prec_type), intent(inout) :: prec real(psb_spk_),intent(in) :: alpha,beta real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: y(:) diff --git a/prec/impl/psb_s_diagprec_impl.f90 b/prec/impl/psb_s_diagprec_impl.f90 index cb7193d9..1d69d16d 100644 --- a/prec/impl/psb_s_diagprec_impl.f90 +++ b/prec/impl/psb_s_diagprec_impl.f90 @@ -135,7 +135,7 @@ subroutine psb_s_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_s_diag_prec_type), intent(in) :: prec + class(psb_s_diag_prec_type), intent(inout) :: prec real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(in) :: alpha, beta real(psb_spk_),intent(inout) :: y(:) diff --git a/prec/impl/psb_s_nullprec_impl.f90 b/prec/impl/psb_s_nullprec_impl.f90 index 99f064a4..b74d143f 100644 --- a/prec/impl/psb_s_nullprec_impl.f90 +++ b/prec/impl/psb_s_nullprec_impl.f90 @@ -84,7 +84,7 @@ subroutine psb_s_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) use psb_s_nullprec, psb_protect_name => psb_s_null_apply implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_s_null_prec_type), intent(in) :: prec + class(psb_s_null_prec_type), intent(inout) :: prec real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(in) :: alpha, beta real(psb_spk_),intent(inout) :: y(:) diff --git a/prec/impl/psb_s_prec_type_impl.f90 b/prec/impl/psb_s_prec_type_impl.f90 index 2347341a..4dd06d44 100644 --- a/prec/impl/psb_s_prec_type_impl.f90 +++ b/prec/impl/psb_s_prec_type_impl.f90 @@ -209,7 +209,7 @@ subroutine psb_s_apply2v(prec,x,y,desc_data,info,trans,work) use psb_s_prec_type, psb_protect_name => psb_s_apply2v implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_sprec_type), intent(in) :: prec + class(psb_sprec_type), intent(inout) :: prec real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: y(:) integer(psb_ipk_), intent(out) :: info @@ -276,7 +276,7 @@ subroutine psb_s_apply1v(prec,x,desc_data,info,trans) use psb_s_prec_type, psb_protect_name => psb_s_apply1v implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_sprec_type), intent(in) :: prec + class(psb_sprec_type), intent(inout) :: prec real(psb_spk_),intent(inout) :: x(:) integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans diff --git a/prec/impl/psb_z_bjacprec_impl.f90 b/prec/impl/psb_z_bjacprec_impl.f90 index 1bb29b14..d7d15a6a 100644 --- a/prec/impl/psb_z_bjacprec_impl.f90 +++ b/prec/impl/psb_z_bjacprec_impl.f90 @@ -228,7 +228,7 @@ subroutine psb_z_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) use psb_z_bjacprec, psb_protect_name => psb_z_bjac_apply implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_z_bjac_prec_type), intent(in) :: prec + class(psb_z_bjac_prec_type), intent(inout) :: prec complex(psb_dpk_),intent(in) :: alpha,beta complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: y(:) diff --git a/prec/impl/psb_z_diagprec_impl.f90 b/prec/impl/psb_z_diagprec_impl.f90 index 9e2d10d4..97396297 100644 --- a/prec/impl/psb_z_diagprec_impl.f90 +++ b/prec/impl/psb_z_diagprec_impl.f90 @@ -135,7 +135,7 @@ subroutine psb_z_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_z_diag_prec_type), intent(in) :: prec + class(psb_z_diag_prec_type), intent(inout) :: prec complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(in) :: alpha, beta complex(psb_dpk_),intent(inout) :: y(:) diff --git a/prec/impl/psb_z_nullprec_impl.f90 b/prec/impl/psb_z_nullprec_impl.f90 index 5ed3a81f..67aebbf2 100644 --- a/prec/impl/psb_z_nullprec_impl.f90 +++ b/prec/impl/psb_z_nullprec_impl.f90 @@ -84,7 +84,7 @@ subroutine psb_z_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) use psb_z_nullprec, psb_protect_name => psb_z_null_apply implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_z_null_prec_type), intent(in) :: prec + class(psb_z_null_prec_type), intent(inout) :: prec complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(in) :: alpha, beta complex(psb_dpk_),intent(inout) :: y(:) diff --git a/prec/impl/psb_z_prec_type_impl.f90 b/prec/impl/psb_z_prec_type_impl.f90 index d1c1755b..63b1b31a 100644 --- a/prec/impl/psb_z_prec_type_impl.f90 +++ b/prec/impl/psb_z_prec_type_impl.f90 @@ -209,7 +209,7 @@ subroutine psb_z_apply2v(prec,x,y,desc_data,info,trans,work) use psb_z_prec_type, psb_protect_name => psb_z_apply2v implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_zprec_type), intent(in) :: prec + class(psb_zprec_type), intent(inout) :: prec complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: y(:) integer(psb_ipk_), intent(out) :: info @@ -276,7 +276,7 @@ subroutine psb_z_apply1v(prec,x,desc_data,info,trans) use psb_z_prec_type, psb_protect_name => psb_z_apply1v implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_zprec_type), intent(in) :: prec + class(psb_zprec_type), intent(inout) :: prec complex(psb_dpk_),intent(inout) :: x(:) integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans diff --git a/prec/psb_c_base_prec_mod.f90 b/prec/psb_c_base_prec_mod.f90 index 9f71fe34..25c817cf 100644 --- a/prec/psb_c_base_prec_mod.f90 +++ b/prec/psb_c_base_prec_mod.f90 @@ -95,7 +95,7 @@ module psb_c_base_prec_mod & psb_c_base_sparse_mat implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_c_base_prec_type), intent(in) :: prec + class(psb_c_base_prec_type), intent(inout) :: prec complex(psb_spk_),intent(in) :: alpha, beta complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: y(:) diff --git a/prec/psb_c_bjacprec.f90 b/prec/psb_c_bjacprec.f90 index 5ae651fd..4e1e4a90 100644 --- a/prec/psb_c_bjacprec.f90 +++ b/prec/psb_c_bjacprec.f90 @@ -87,7 +87,7 @@ module psb_c_bjacprec import :: psb_ipk_, psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_c_bjac_prec_type), intent(in) :: prec + class(psb_c_bjac_prec_type), intent(inout) :: prec complex(psb_spk_),intent(in) :: alpha,beta complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: y(:) diff --git a/prec/psb_c_diagprec.f90 b/prec/psb_c_diagprec.f90 index 647d3ad5..643eb95b 100644 --- a/prec/psb_c_diagprec.f90 +++ b/prec/psb_c_diagprec.f90 @@ -73,7 +73,7 @@ module psb_c_diagprec subroutine psb_c_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) import :: psb_ipk_, psb_desc_type, psb_c_diag_prec_type, psb_c_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_c_diag_prec_type), intent(in) :: prec + class(psb_c_diag_prec_type), intent(inout) :: prec complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(in) :: alpha, beta complex(psb_spk_),intent(inout) :: y(:) diff --git a/prec/psb_c_nullprec.f90 b/prec/psb_c_nullprec.f90 index 72f67ad2..dcd29ac8 100644 --- a/prec/psb_c_nullprec.f90 +++ b/prec/psb_c_nullprec.f90 @@ -68,7 +68,7 @@ module psb_c_nullprec subroutine psb_c_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) import :: psb_ipk_, psb_desc_type, psb_c_null_prec_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_c_null_prec_type), intent(in) :: prec + class(psb_c_null_prec_type), intent(inout) :: prec complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(in) :: alpha, beta complex(psb_spk_),intent(inout) :: y(:) diff --git a/prec/psb_c_prec_type.f90 b/prec/psb_c_prec_type.f90 index 2bd890d7..95a36500 100644 --- a/prec/psb_c_prec_type.f90 +++ b/prec/psb_c_prec_type.f90 @@ -98,7 +98,7 @@ module psb_c_prec_type subroutine psb_c_apply2v(prec,x,y,desc_data,info,trans,work) import :: psb_ipk_, psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_cprec_type), intent(in) :: prec + class(psb_cprec_type), intent(inout) :: prec complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: y(:) integer(psb_ipk_), intent(out) :: info @@ -111,7 +111,7 @@ module psb_c_prec_type subroutine psb_c_apply1v(prec,x,desc_data,info,trans) import :: psb_ipk_, psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_cprec_type), intent(in) :: prec + class(psb_cprec_type), intent(inout) :: prec complex(psb_spk_),intent(inout) :: x(:) integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans diff --git a/prec/psb_d_base_prec_mod.f90 b/prec/psb_d_base_prec_mod.f90 index cb20b7f5..a93413e0 100644 --- a/prec/psb_d_base_prec_mod.f90 +++ b/prec/psb_d_base_prec_mod.f90 @@ -95,7 +95,7 @@ module psb_d_base_prec_mod & psb_d_base_sparse_mat implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_d_base_prec_type), intent(in) :: prec + class(psb_d_base_prec_type), intent(inout) :: prec real(psb_dpk_),intent(in) :: alpha, beta real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: y(:) diff --git a/prec/psb_d_bjacprec.f90 b/prec/psb_d_bjacprec.f90 index 9402f8f8..7ef0b7b0 100644 --- a/prec/psb_d_bjacprec.f90 +++ b/prec/psb_d_bjacprec.f90 @@ -87,7 +87,7 @@ module psb_d_bjacprec import :: psb_ipk_, psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_d_bjac_prec_type), intent(in) :: prec + class(psb_d_bjac_prec_type), intent(inout) :: prec real(psb_dpk_),intent(in) :: alpha,beta real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: y(:) diff --git a/prec/psb_d_diagprec.f90 b/prec/psb_d_diagprec.f90 index a282ebb3..fac53ee9 100644 --- a/prec/psb_d_diagprec.f90 +++ b/prec/psb_d_diagprec.f90 @@ -73,7 +73,7 @@ module psb_d_diagprec subroutine psb_d_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) import :: psb_ipk_, psb_desc_type, psb_d_diag_prec_type, psb_d_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_d_diag_prec_type), intent(in) :: prec + class(psb_d_diag_prec_type), intent(inout) :: prec real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(in) :: alpha, beta real(psb_dpk_),intent(inout) :: y(:) diff --git a/prec/psb_d_nullprec.f90 b/prec/psb_d_nullprec.f90 index 518867ef..f1628248 100644 --- a/prec/psb_d_nullprec.f90 +++ b/prec/psb_d_nullprec.f90 @@ -68,7 +68,7 @@ module psb_d_nullprec subroutine psb_d_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) import :: psb_ipk_, psb_desc_type, psb_d_null_prec_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_d_null_prec_type), intent(in) :: prec + class(psb_d_null_prec_type), intent(inout) :: prec real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(in) :: alpha, beta real(psb_dpk_),intent(inout) :: y(:) diff --git a/prec/psb_d_prec_type.f90 b/prec/psb_d_prec_type.f90 index afdef3e9..7e2ae52d 100644 --- a/prec/psb_d_prec_type.f90 +++ b/prec/psb_d_prec_type.f90 @@ -98,7 +98,7 @@ module psb_d_prec_type subroutine psb_d_apply2v(prec,x,y,desc_data,info,trans,work) import :: psb_ipk_, psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_dprec_type), intent(in) :: prec + class(psb_dprec_type), intent(inout) :: prec real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: y(:) integer(psb_ipk_), intent(out) :: info @@ -111,7 +111,7 @@ module psb_d_prec_type subroutine psb_d_apply1v(prec,x,desc_data,info,trans) import :: psb_ipk_, psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_dprec_type), intent(in) :: prec + class(psb_dprec_type), intent(inout) :: prec real(psb_dpk_),intent(inout) :: x(:) integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans diff --git a/prec/psb_s_base_prec_mod.f90 b/prec/psb_s_base_prec_mod.f90 index dd1081f7..fcad8324 100644 --- a/prec/psb_s_base_prec_mod.f90 +++ b/prec/psb_s_base_prec_mod.f90 @@ -95,7 +95,7 @@ module psb_s_base_prec_mod & psb_s_base_sparse_mat implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_s_base_prec_type), intent(in) :: prec + class(psb_s_base_prec_type), intent(inout) :: prec real(psb_spk_),intent(in) :: alpha, beta real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: y(:) diff --git a/prec/psb_s_bjacprec.f90 b/prec/psb_s_bjacprec.f90 index b12f241b..f1c05a2a 100644 --- a/prec/psb_s_bjacprec.f90 +++ b/prec/psb_s_bjacprec.f90 @@ -87,7 +87,7 @@ module psb_s_bjacprec import :: psb_ipk_, psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_s_bjac_prec_type), intent(in) :: prec + class(psb_s_bjac_prec_type), intent(inout) :: prec real(psb_spk_),intent(in) :: alpha,beta real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: y(:) diff --git a/prec/psb_s_diagprec.f90 b/prec/psb_s_diagprec.f90 index 0eec0c73..ecb39471 100644 --- a/prec/psb_s_diagprec.f90 +++ b/prec/psb_s_diagprec.f90 @@ -73,7 +73,7 @@ module psb_s_diagprec subroutine psb_s_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) import :: psb_ipk_, psb_desc_type, psb_s_diag_prec_type, psb_s_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_s_diag_prec_type), intent(in) :: prec + class(psb_s_diag_prec_type), intent(inout) :: prec real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(in) :: alpha, beta real(psb_spk_),intent(inout) :: y(:) diff --git a/prec/psb_s_nullprec.f90 b/prec/psb_s_nullprec.f90 index 84b79c8c..c2a68f53 100644 --- a/prec/psb_s_nullprec.f90 +++ b/prec/psb_s_nullprec.f90 @@ -68,7 +68,7 @@ module psb_s_nullprec subroutine psb_s_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) import :: psb_ipk_, psb_desc_type, psb_s_null_prec_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_s_null_prec_type), intent(in) :: prec + class(psb_s_null_prec_type), intent(inout) :: prec real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(in) :: alpha, beta real(psb_spk_),intent(inout) :: y(:) diff --git a/prec/psb_s_prec_type.f90 b/prec/psb_s_prec_type.f90 index 4243baa6..51944a34 100644 --- a/prec/psb_s_prec_type.f90 +++ b/prec/psb_s_prec_type.f90 @@ -98,7 +98,7 @@ module psb_s_prec_type subroutine psb_s_apply2v(prec,x,y,desc_data,info,trans,work) import :: psb_ipk_, psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_sprec_type), intent(in) :: prec + class(psb_sprec_type), intent(inout) :: prec real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: y(:) integer(psb_ipk_), intent(out) :: info @@ -111,7 +111,7 @@ module psb_s_prec_type subroutine psb_s_apply1v(prec,x,desc_data,info,trans) import :: psb_ipk_, psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_sprec_type), intent(in) :: prec + class(psb_sprec_type), intent(inout) :: prec real(psb_spk_),intent(inout) :: x(:) integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans diff --git a/prec/psb_z_base_prec_mod.f90 b/prec/psb_z_base_prec_mod.f90 index 8f1c0a61..11a40fc8 100644 --- a/prec/psb_z_base_prec_mod.f90 +++ b/prec/psb_z_base_prec_mod.f90 @@ -95,7 +95,7 @@ module psb_z_base_prec_mod & psb_z_base_sparse_mat implicit none type(psb_desc_type),intent(in) :: desc_data - class(psb_z_base_prec_type), intent(in) :: prec + class(psb_z_base_prec_type), intent(inout) :: prec complex(psb_dpk_),intent(in) :: alpha, beta complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: y(:) diff --git a/prec/psb_z_bjacprec.f90 b/prec/psb_z_bjacprec.f90 index 37022910..af458ba9 100644 --- a/prec/psb_z_bjacprec.f90 +++ b/prec/psb_z_bjacprec.f90 @@ -87,7 +87,7 @@ module psb_z_bjacprec import :: psb_ipk_, psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_z_bjac_prec_type), intent(in) :: prec + class(psb_z_bjac_prec_type), intent(inout) :: prec complex(psb_dpk_),intent(in) :: alpha,beta complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: y(:) diff --git a/prec/psb_z_diagprec.f90 b/prec/psb_z_diagprec.f90 index 1405f0a7..f7cd420e 100644 --- a/prec/psb_z_diagprec.f90 +++ b/prec/psb_z_diagprec.f90 @@ -73,7 +73,7 @@ module psb_z_diagprec subroutine psb_z_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) import :: psb_ipk_, psb_desc_type, psb_z_diag_prec_type, psb_z_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_z_diag_prec_type), intent(in) :: prec + class(psb_z_diag_prec_type), intent(inout) :: prec complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(in) :: alpha, beta complex(psb_dpk_),intent(inout) :: y(:) diff --git a/prec/psb_z_nullprec.f90 b/prec/psb_z_nullprec.f90 index 3b998222..406984e8 100644 --- a/prec/psb_z_nullprec.f90 +++ b/prec/psb_z_nullprec.f90 @@ -68,7 +68,7 @@ module psb_z_nullprec subroutine psb_z_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) import :: psb_ipk_, psb_desc_type, psb_z_null_prec_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_z_null_prec_type), intent(in) :: prec + class(psb_z_null_prec_type), intent(inout) :: prec complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(in) :: alpha, beta complex(psb_dpk_),intent(inout) :: y(:) diff --git a/prec/psb_z_prec_type.f90 b/prec/psb_z_prec_type.f90 index 10f2ca36..ecfe321b 100644 --- a/prec/psb_z_prec_type.f90 +++ b/prec/psb_z_prec_type.f90 @@ -98,7 +98,7 @@ module psb_z_prec_type subroutine psb_z_apply2v(prec,x,y,desc_data,info,trans,work) import :: psb_ipk_, psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_zprec_type), intent(in) :: prec + class(psb_zprec_type), intent(inout) :: prec complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: y(:) integer(psb_ipk_), intent(out) :: info @@ -111,7 +111,7 @@ module psb_z_prec_type subroutine psb_z_apply1v(prec,x,desc_data,info,trans) import :: psb_ipk_, psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data - class(psb_zprec_type), intent(in) :: prec + class(psb_zprec_type), intent(inout) :: prec complex(psb_dpk_),intent(inout) :: x(:) integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans