Check sizes in graph_fnd_owner sampling code.

5 years ago · 2944299aa7
parent d031ef0763
commit 2944299aa7
1 changed files with 1 additions and 0 deletions
--- 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)