From d9b7abda2aa1fd8d386b3b74f42dde3a1c5f1559 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 4 Nov 2011 11:08:55 +0000 Subject: [PATCH] psblas3: Fix inconsistent INTENT, revealed by NAG compiler. psb_cspsm.f90 psb_dspsm.f90 psb_sspsm.f90 psb_zspsm.f90 --- base/psblas/psb_cspsm.f90 | 2 +- base/psblas/psb_dspsm.f90 | 6 +++--- base/psblas/psb_sspsm.f90 | 6 +++--- base/psblas/psb_zspsm.f90 | 2 +- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/base/psblas/psb_cspsm.f90 b/base/psblas/psb_cspsm.f90 index a06bbe33..5ff943ef 100644 --- a/base/psblas/psb_cspsm.f90 +++ b/base/psblas/psb_cspsm.f90 @@ -559,7 +559,7 @@ subroutine psb_cspsv_vect(alpha,a,x,beta,y,desc_a,info,& complex(psb_spk_), intent(in) :: alpha, beta type(psb_c_vect_type), intent(inout) :: x type(psb_c_vect_type), intent(inout) :: y - type(psb_cspmat_type), intent(in) :: a + type(psb_cspmat_type), intent(inout) :: a type(psb_desc_type), intent(in) :: desc_a integer, intent(out) :: info type(psb_c_vect_type), intent(inout), optional :: diag diff --git a/base/psblas/psb_dspsm.f90 b/base/psblas/psb_dspsm.f90 index 96ac0a2f..8317196f 100644 --- a/base/psblas/psb_dspsm.f90 +++ b/base/psblas/psb_dspsm.f90 @@ -559,9 +559,9 @@ subroutine psb_dspsv_vect(alpha,a,x,beta,y,desc_a,info,& real(psb_dpk_), intent(in) :: alpha, beta type(psb_d_vect_type), intent(inout) :: x type(psb_d_vect_type), intent(inout) :: y - type(psb_dspmat_type), intent(in) :: a - type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + type(psb_dspmat_type), intent(inout) :: a + type(psb_desc_type), intent(in) :: desc_a + integer, intent(out) :: info type(psb_d_vect_type), intent(inout), optional :: diag real(psb_dpk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans, scale diff --git a/base/psblas/psb_sspsm.f90 b/base/psblas/psb_sspsm.f90 index 85e9d242..08d1d6d2 100644 --- a/base/psblas/psb_sspsm.f90 +++ b/base/psblas/psb_sspsm.f90 @@ -559,9 +559,9 @@ subroutine psb_sspsv_vect(alpha,a,x,beta,y,desc_a,info,& real(psb_spk_), intent(in) :: alpha, beta type(psb_s_vect_type), intent(inout) :: x type(psb_s_vect_type), intent(inout) :: y - type(psb_sspmat_type), intent(in) :: a - type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + type(psb_sspmat_type), intent(inout) :: a + type(psb_desc_type), intent(in) :: desc_a + integer, intent(out) :: info type(psb_s_vect_type), intent(inout), optional :: diag real(psb_spk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans, scale diff --git a/base/psblas/psb_zspsm.f90 b/base/psblas/psb_zspsm.f90 index 4e0b209a..10855016 100644 --- a/base/psblas/psb_zspsm.f90 +++ b/base/psblas/psb_zspsm.f90 @@ -559,7 +559,7 @@ subroutine psb_zspsv_vect(alpha,a,x,beta,y,desc_a,info,& complex(psb_dpk_), intent(in) :: alpha, beta type(psb_z_vect_type), intent(inout) :: x type(psb_z_vect_type), intent(inout) :: y - type(psb_zspmat_type), intent(in) :: a + type(psb_zspmat_type), intent(inout) :: a type(psb_desc_type), intent(in) :: desc_a integer, intent(out) :: info type(psb_z_vect_type), intent(inout), optional :: diag