From 6f92a78096582fa6f9b2173f9c9d855dbf1dbdcc Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Sat, 8 Feb 2020 10:55:10 +0000
Subject: [PATCH] Fix borderline case with graph_fnd_owner

---
 base/internals/psi_graph_fnd_owner.F90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/base/internals/psi_graph_fnd_owner.F90 b/base/internals/psi_graph_fnd_owner.F90
index 3b5e85bf..7bb0d66a 100644
--- a/base/internals/psi_graph_fnd_owner.F90
+++ b/base/internals/psi_graph_fnd_owner.F90
@@ -142,6 +142,7 @@ subroutine psi_graph_fnd_owner(idx,iprc,idxmap,info)
   tmpv(1) = nadj
   tmpv(2) = nrest_max
   call psb_max(ictxt,tmpv)
+  nrest_max = tmpv(2)    
   if ((tmpv(1) > 0).and.(tmpv(2) >0)) then
     !
     ! Do a preliminary run on the user-defined adjacency lists