RDI_Utils.pl
changeset 52 5b07a9b89aee
parent 49 8f4fbdaf0102
child 60 890e267a2d98
--- a/RDI_Utils.pl
+++ b/RDI_Utils.pl
@@ -1,9 +1,9 @@
 #======================================================================
 #                    R D I _ U T I L S . P L 
 #                    doc: Wed Feb 12 10:21:32 2003
-#                    dlm: Wed Jun 26 09:05:05 2019
+#                    dlm: Mon Apr 13 14:07:54 2020
 #                    (c) 2003 A.M. Thurnherr
-#                    uE-Info: 300 27 NIL 0 0 72 0 2 4 NIL ofnI
+#                    uE-Info: 68 53 NIL 0 0 72 0 2 4 NIL ofnI
 #======================================================================
 
 # miscellaneous RDI-specific utilities
@@ -65,9 +65,12 @@
 #					- disable %-good screening with $min_pctg == 0
 # 	Jun 26, 2019: - increased short-gap in mk_prof from 5s to 6s to allow processing
 #					of RTi test file with 5s ensembles
+#	Apr 13, 2020: - added $RDI_Utils::No_Gap_Warnings
 
 use strict;
 
+$RDI_Utils::No_Gap_Warnings = 0;		# set to 1 to suppress gap warnings
+
 #======================================================================
 # fake_BT_RANGE(dta ptr)
 #======================================================================
@@ -514,7 +517,7 @@
 		} elsif ($dt > 15) {
 	       	printf(STDERR "WARNING: long-ish w gap at ens#%d-%d (dt=%.1fs)\n",
 				$dta->{ENSEMBLE}[$lastgood+1]->{NUMBER},$dta->{ENSEMBLE}[$e-1]->{NUMBER},$dt)
-					unless defined($ENV{NO_GAP_WARNINGS});
+					unless defined($ENV{NO_GAP_WARNINGS}) || $RDI_Utils::No_Gap_Warnings;
 		}
 	
 		$dta->{ENSEMBLE}[$e]->{DEPTH} = $z;