Check sizes in graph_fnd_owner sampling code.

2026-10-16 10:52:08 +00:00 · 2020-02-07 10:32:45 +00:00
parent d031ef0763
commit 2944299aa7
1 changed files with 1 additions and 0 deletions
@@ -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)