From 7df7b6ffcecd33eae17f14faba935b4b1ec3fa15 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 23 Jun 2020 11:28:37 +0200 Subject: [PATCH] Set adjacncy list during build of halo_index for all maps. --- base/internals/psi_bld_tmphalo.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/base/internals/psi_bld_tmphalo.f90 b/base/internals/psi_bld_tmphalo.f90 index f7143f18..dc13b7c2 100644 --- a/base/internals/psi_bld_tmphalo.f90 +++ b/base/internals/psi_bld_tmphalo.f90 @@ -104,6 +104,7 @@ subroutine psi_bld_tmphalo(desc,info) call desc%indxmap%l2gip(helem(1:nh),info) if (info == psb_success_) call desc%indxmap%fnd_owner(helem(1:nh),hproc,info) if (info == psb_success_) call desc%indxmap%set_halo_owner(hproc,info) + if (info == psb_success_) call desc%indxmap%xtnd_p_adjcncy(hproc) if (info /= psb_success_) then call psb_errpush(psb_err_from_subroutine_,name,a_err='fnd_owner')