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