From a2632b0317a2eb6aad9a7429ac71b5289a71987e Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 7 Apr 2017 15:39:20 +0000 Subject: [PATCH] psblas3: prec/psb_c_base_prec_mod.f90 prec/psb_d_base_prec_mod.f90 prec/psb_s_base_prec_mod.f90 prec/psb_z_base_prec_mod.f90 Fix intent in precbld --- prec/psb_c_base_prec_mod.f90 | 2 +- prec/psb_d_base_prec_mod.f90 | 2 +- prec/psb_s_base_prec_mod.f90 | 2 +- prec/psb_z_base_prec_mod.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/prec/psb_c_base_prec_mod.f90 b/prec/psb_c_base_prec_mod.f90 index d23eeb3c..25731b81 100644 --- a/prec/psb_c_base_prec_mod.f90 +++ b/prec/psb_c_base_prec_mod.f90 @@ -131,7 +131,7 @@ module psb_c_base_prec_mod Implicit None type(psb_cspmat_type), intent(in), target :: a - type(psb_desc_type), intent(in), target :: desc_a + type(psb_desc_type), intent(inout), target :: desc_a class(psb_c_base_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_c_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_d_base_prec_mod.f90 b/prec/psb_d_base_prec_mod.f90 index 041a4720..4bc18ec0 100644 --- a/prec/psb_d_base_prec_mod.f90 +++ b/prec/psb_d_base_prec_mod.f90 @@ -131,7 +131,7 @@ module psb_d_base_prec_mod Implicit None type(psb_dspmat_type), intent(in), target :: a - type(psb_desc_type), intent(in), target :: desc_a + type(psb_desc_type), intent(inout), target :: desc_a class(psb_d_base_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_d_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_s_base_prec_mod.f90 b/prec/psb_s_base_prec_mod.f90 index d4a4c13c..46ff49fd 100644 --- a/prec/psb_s_base_prec_mod.f90 +++ b/prec/psb_s_base_prec_mod.f90 @@ -131,7 +131,7 @@ module psb_s_base_prec_mod Implicit None type(psb_sspmat_type), intent(in), target :: a - type(psb_desc_type), intent(in), target :: desc_a + type(psb_desc_type), intent(inout), target :: desc_a class(psb_s_base_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_s_base_sparse_mat), intent(in), optional :: amold diff --git a/prec/psb_z_base_prec_mod.f90 b/prec/psb_z_base_prec_mod.f90 index 6440c945..05e37358 100644 --- a/prec/psb_z_base_prec_mod.f90 +++ b/prec/psb_z_base_prec_mod.f90 @@ -131,7 +131,7 @@ module psb_z_base_prec_mod Implicit None type(psb_zspmat_type), intent(in), target :: a - type(psb_desc_type), intent(in), target :: desc_a + type(psb_desc_type), intent(inout), target :: desc_a class(psb_z_base_prec_type),intent(inout) :: prec integer(psb_ipk_), intent(out) :: info class(psb_z_base_sparse_mat), intent(in), optional :: amold