From b3d6a970eea9a39f21062a58ba0f3ce246ee692b Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 22 Oct 2019 07:53:30 +0100 Subject: [PATCH] Add adjncy component --- base/modules/desc/psb_indx_map_mod.f90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/base/modules/desc/psb_indx_map_mod.f90 b/base/modules/desc/psb_indx_map_mod.f90 index 12c8d242..76dadac6 100644 --- a/base/modules/desc/psb_indx_map_mod.f90 +++ b/base/modules/desc/psb_indx_map_mod.f90 @@ -127,7 +127,9 @@ module psb_indx_map_mod integer(psb_ipk_), allocatable :: oracle(:,:) !> Halo owners integer(psb_ipk_), allocatable :: halo_owner(:) - + !> Adjacency list for processes + integer(psb_ipk_), allocatable :: p_adjncy(:) + contains procedure, pass(idxmap) :: get_state => base_get_state