From 2944299aa7d6a86e6aece5198cf4e0a06e5b2f52 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
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)