From 6bc5f0a05c72b6905cfcc2b8e4121a295bc8f577 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 31 Mar 2022 08:54:43 +0200 Subject: [PATCH] Minor changes to halo_fnd_owner --- base/internals/psi_graph_fnd_owner.F90 | 3 +-- base/internals/psi_indx_map_fnd_owner.F90 | 1 - base/modules/desc/psb_indx_map_mod.f90 | 5 +++++ 3 files changed, 6 insertions(+), 3 deletions(-) diff --git a/base/internals/psi_graph_fnd_owner.F90 b/base/internals/psi_graph_fnd_owner.F90 index c565498c..ee7bece3 100644 --- a/base/internals/psi_graph_fnd_owner.F90 +++ b/base/internals/psi_graph_fnd_owner.F90 @@ -255,8 +255,7 @@ subroutine psi_graph_fnd_owner(idx,iprc,ladj,idxmap,info) n_answers = n_answers + nlansw nqries = nv - n_answers ! - ! 3. Extract the resulting adjacency list and add it to the - ! indxmap; + ! 3. Extract the resulting adjacency list ? AND ADD IT TO THE EXISTING ONE ? ! ladj = tprc(1:nlansw) call psb_msort_unique(ladj,nadj) diff --git a/base/internals/psi_indx_map_fnd_owner.F90 b/base/internals/psi_indx_map_fnd_owner.F90 index 3efcbe59..31c4d51f 100644 --- a/base/internals/psi_indx_map_fnd_owner.F90 +++ b/base/internals/psi_indx_map_fnd_owner.F90 @@ -200,7 +200,6 @@ subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info) else call psi_graph_fnd_owner(idx,iprc,ladj,idxmap,info) end if - call idxmap%xtnd_p_adjcncy(ladj) end if diff --git a/base/modules/desc/psb_indx_map_mod.f90 b/base/modules/desc/psb_indx_map_mod.f90 index d4ce78f1..5c8785ac 100644 --- a/base/modules/desc/psb_indx_map_mod.f90 +++ b/base/modules/desc/psb_indx_map_mod.f90 @@ -1558,6 +1558,11 @@ contains nr = idxmap%local_rows nc = min(idxmap%local_cols, (nr+psb_size(idxmap%halo_owner))) sz = min(size(xin),size(xout)) + if (.not.allocated(idxmap%halo_owner)) then + xout = -1 + return + end if + do i = 1, sz xout(i) = -1 if ((nr