From a59c79a2f803682b956518ec1f3f89bf351ba660 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 7 Feb 2020 10:38:37 +0000 Subject: [PATCH] *** empty log message *** --- base/internals/psi_graph_fnd_owner.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/base/internals/psi_graph_fnd_owner.F90 b/base/internals/psi_graph_fnd_owner.F90 index 2ea02f75..21f5abc5 100644 --- a/base/internals/psi_graph_fnd_owner.F90 +++ b/base/internals/psi_graph_fnd_owner.F90 @@ -303,7 +303,8 @@ contains ! ! ns_in == 0 means that on the outside we figure there's ! nothing left, but we are here because we have to synchronize. - ! Make sure we sweep through the entire vector immediately + ! Make sure we sweep through the entire vector immediately. + ! But also make sure we do not overrun tsmpl ! if (ns == 0) ns = nv ns = min(ns,size(tsmpl))