Minor changes to halo_fnd_owner

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)

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
   

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<xin(i)).and.(xin(i) <= nc)) xout(i) = idxmap%halo_owner(xin(i)-nr)