From 71293a2b2ab2cfa7d49365ecd887a24765ab8ba7 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 6 Apr 2022 13:13:22 +0200 Subject: [PATCH] Fix INTENT of idxmap --- base/internals/psi_graph_fnd_owner.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/base/internals/psi_graph_fnd_owner.F90 b/base/internals/psi_graph_fnd_owner.F90 index ee7bece3..e5eed8c6 100644 --- a/base/internals/psi_graph_fnd_owner.F90 +++ b/base/internals/psi_graph_fnd_owner.F90 @@ -96,8 +96,8 @@ subroutine psi_graph_fnd_owner(idx,iprc,ladj,idxmap,info) #endif integer(psb_lpk_), intent(in) :: idx(:) integer(psb_ipk_), allocatable, intent(out) :: iprc(:), ladj(:) - class(psb_indx_map), intent(inout) :: idxmap - integer(psb_ipk_), intent(out) :: info + class(psb_indx_map), intent(in) :: idxmap + integer(psb_ipk_), intent(out) :: info integer(psb_lpk_), allocatable :: tidx(:) @@ -369,7 +369,7 @@ contains integer(psb_ipk_), intent(in) :: n_samples integer(psb_ipk_), intent(inout) :: iprc(:), n_answers integer(psb_ipk_), intent(in) :: adj(:) - class(psb_indx_map), intent(inout) :: idxmap + class(psb_indx_map), intent(in) :: idxmap ! type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: ipnt, ns_in, ns_out, n_rem, me, np, isw, n_reml,iend, nv