From 5049eec7133f47ac242927391e37498eac653c00 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 13 Dec 2011 17:13:57 +0000 Subject: [PATCH] mld2p4-2: mlprec/mld_c_prec_type.f90 mlprec/mld_cprecaply.f90 mlprec/mld_d_prec_type.f90 mlprec/mld_s_prec_type.f90 mlprec/mld_z_prec_type.f90 Inconsistent interface in precaply. --- mlprec/mld_c_prec_type.f90 | 2 +- mlprec/mld_cprecaply.f90 | 4 ++-- mlprec/mld_d_prec_type.f90 | 2 +- mlprec/mld_s_prec_type.f90 | 2 +- mlprec/mld_z_prec_type.f90 | 2 +- 5 files changed, 6 insertions(+), 6 deletions(-) diff --git a/mlprec/mld_c_prec_type.f90 b/mlprec/mld_c_prec_type.f90 index a02da19a..0bf7205c 100644 --- a/mlprec/mld_c_prec_type.f90 +++ b/mlprec/mld_c_prec_type.f90 @@ -133,7 +133,7 @@ module mld_c_prec_type import mld_cprec_type type(psb_desc_type),intent(in) :: desc_data type(mld_cprec_type), intent(in) :: prec - complex(psb_spk_),intent(in) :: x(:) + complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: y(:) integer, intent(out) :: info character(len=1), optional :: trans diff --git a/mlprec/mld_cprecaply.f90 b/mlprec/mld_cprecaply.f90 index 8cfe9035..76ef041a 100644 --- a/mlprec/mld_cprecaply.f90 +++ b/mlprec/mld_cprecaply.f90 @@ -81,8 +81,8 @@ subroutine mld_cprecaply(prec,x,y,desc_data,info,trans,work) ! Arguments type(psb_desc_type),intent(in) :: desc_data type(mld_cprec_type), intent(in) :: prec - complex(psb_spk_),intent(inout) :: x(:) - complex(psb_spk_),intent(inout) :: y(:) + complex(psb_spk_),intent(inout) :: x(:) + complex(psb_spk_),intent(inout) :: y(:) integer, intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) diff --git a/mlprec/mld_d_prec_type.f90 b/mlprec/mld_d_prec_type.f90 index a6e8ac94..fb66de6e 100644 --- a/mlprec/mld_d_prec_type.f90 +++ b/mlprec/mld_d_prec_type.f90 @@ -133,7 +133,7 @@ module mld_d_prec_type import mld_dprec_type type(psb_desc_type),intent(in) :: desc_data type(mld_dprec_type), intent(in) :: prec - real(psb_dpk_),intent(in) :: x(:) + real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: y(:) integer, intent(out) :: info character(len=1), optional :: trans diff --git a/mlprec/mld_s_prec_type.f90 b/mlprec/mld_s_prec_type.f90 index a2977d9c..c0d24213 100644 --- a/mlprec/mld_s_prec_type.f90 +++ b/mlprec/mld_s_prec_type.f90 @@ -133,7 +133,7 @@ module mld_s_prec_type import mld_sprec_type type(psb_desc_type),intent(in) :: desc_data type(mld_sprec_type), intent(in) :: prec - real(psb_spk_),intent(in) :: x(:) + real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: y(:) integer, intent(out) :: info character(len=1), optional :: trans diff --git a/mlprec/mld_z_prec_type.f90 b/mlprec/mld_z_prec_type.f90 index 307246cc..fc6ca2e6 100644 --- a/mlprec/mld_z_prec_type.f90 +++ b/mlprec/mld_z_prec_type.f90 @@ -133,7 +133,7 @@ module mld_z_prec_type import mld_zprec_type type(psb_desc_type),intent(in) :: desc_data type(mld_zprec_type), intent(in) :: prec - complex(psb_dpk_),intent(in) :: x(:) + complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: y(:) integer, intent(out) :: info character(len=1), optional :: trans