Minor changes to halo_fnd_owner

2026-10-20 21:02:26 +00:00 · 2022-03-31 08:54:43 +02:00
parent affda2596d
commit 6bc5f0a05c
3 changed files with 6 additions and 3 deletions
@@ -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)