From 47b27840498ee4dfaf987394966669488283ca0c Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 21 Apr 2015 12:45:53 +0000 Subject: [PATCH] mld2p4-2: mlprec/mld_c_inner_mod.f90 mlprec/mld_d_inner_mod.f90 mlprec/mld_s_inner_mod.f90 mlprec/mld_z_inner_mod.f90 Fix minor INTENT inconsistency --- mlprec/mld_c_inner_mod.f90 | 4 ++-- mlprec/mld_d_inner_mod.f90 | 4 ++-- mlprec/mld_s_inner_mod.f90 | 4 ++-- mlprec/mld_z_inner_mod.f90 | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/mlprec/mld_c_inner_mod.f90 b/mlprec/mld_c_inner_mod.f90 index 133cdc0c..f0840043 100644 --- a/mlprec/mld_c_inner_mod.f90 +++ b/mlprec/mld_c_inner_mod.f90 @@ -70,8 +70,8 @@ module mld_c_inner_mod use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_, psb_ipk_ use mld_c_prec_type, only : mld_cprec_type implicit none - type(psb_desc_type),intent(in) :: desc_data - type(mld_cprec_type), intent(in) :: p + type(psb_desc_type),intent(in) :: desc_data + type(mld_cprec_type), intent(inout) :: p complex(psb_spk_),intent(in) :: alpha,beta complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: y(:) diff --git a/mlprec/mld_d_inner_mod.f90 b/mlprec/mld_d_inner_mod.f90 index 872a6897..3c6b8bea 100644 --- a/mlprec/mld_d_inner_mod.f90 +++ b/mlprec/mld_d_inner_mod.f90 @@ -70,8 +70,8 @@ module mld_d_inner_mod use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_, psb_ipk_ use mld_d_prec_type, only : mld_dprec_type implicit none - type(psb_desc_type),intent(in) :: desc_data - type(mld_dprec_type), intent(in) :: p + type(psb_desc_type),intent(in) :: desc_data + type(mld_dprec_type), intent(inout) :: p real(psb_dpk_),intent(in) :: alpha,beta real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: y(:) diff --git a/mlprec/mld_s_inner_mod.f90 b/mlprec/mld_s_inner_mod.f90 index 2fd59b60..e79453bc 100644 --- a/mlprec/mld_s_inner_mod.f90 +++ b/mlprec/mld_s_inner_mod.f90 @@ -70,8 +70,8 @@ module mld_s_inner_mod use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_, psb_ipk_ use mld_s_prec_type, only : mld_sprec_type implicit none - type(psb_desc_type),intent(in) :: desc_data - type(mld_sprec_type), intent(in) :: p + type(psb_desc_type),intent(in) :: desc_data + type(mld_sprec_type), intent(inout) :: p real(psb_spk_),intent(in) :: alpha,beta real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: y(:) diff --git a/mlprec/mld_z_inner_mod.f90 b/mlprec/mld_z_inner_mod.f90 index 4f1494fc..d14123ec 100644 --- a/mlprec/mld_z_inner_mod.f90 +++ b/mlprec/mld_z_inner_mod.f90 @@ -70,8 +70,8 @@ module mld_z_inner_mod use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_, psb_ipk_ use mld_z_prec_type, only : mld_zprec_type implicit none - type(psb_desc_type),intent(in) :: desc_data - type(mld_zprec_type), intent(in) :: p + type(psb_desc_type),intent(in) :: desc_data + type(mld_zprec_type), intent(inout) :: p complex(psb_dpk_),intent(in) :: alpha,beta complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: y(:)