Set adjacncy list during build of halo_index for all maps.

5 years ago · 7df7b6ffce
parent e3649e1cb6
commit 7df7b6ffce
1 changed files with 1 additions and 0 deletions
--- 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')