From 2944299aa7d6a86e6aece5198cf4e0a06e5b2f52 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 7 Feb 2020 10:32:45 +0000 Subject: [PATCH] Check sizes in graph_fnd_owner sampling code. --- 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 aa49871e..2ea02f75 100644 --- a/base/internals/psi_graph_fnd_owner.F90 +++ b/base/internals/psi_graph_fnd_owner.F90 @@ -306,6 +306,7 @@ contains ! Make sure we sweep through the entire vector immediately ! if (ns == 0) ns = nv + ns = min(ns,size(tsmpl)) ns_out = 0 do while (ipntidx<= nv)