.nminterp.linear
changeset 39 56bdfe65a697
parent 30 1a1a12d5edc1
--- a/.nminterp.linear
+++ b/.nminterp.linear
@@ -1,9 +1,9 @@
 #======================================================================
 #                    . N M I N T E R P . L I N E A R 
 #                    doc: Wed Nov 22 21:01:09 2000
-#                    dlm: Thu Jan 23 13:39:13 2014
+#                    dlm: Fri Aug 30 13:26:58 2019
 #                    (c) 2000 A.M. Thurnherr
-#                    uE-Info: 19 61 NIL 0 0 72 2 2 4 NIL ofnI
+#                    uE-Info: 101 9 NIL 0 0 72 0 2 4 NIL ofnI
 #======================================================================
 
 # linear interpolation for [fillgaps]
@@ -96,6 +96,9 @@
 			if ($xf>=0 && equal($ants_[$cr][$xf],$ants_[$nvr[$f]][$xf])) ||
 			   ($xf<0 && $cr==$nvr[$f]);
 	
+		if ($xf < 0) {
+			die("$nvr[$f] - $lvr") unless ($nvr[$f] - $lvr > 0);
+        }
 		my($sc) = ($xf >= 0)
 				? ($ants_[$cr][$xf] - $ants_[$lvr][$xf]) / ($ants_[$nvr[$f]][$xf] - $ants_[$lvr][$xf])
 				: ($cr - $lvr) / ($nvr[$f] - $lvr);