equal
deleted
inserted
replaced
1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # L I S T B T |
3 # L I S T B T |
4 # doc: Sat Jan 18 18:41:49 2003 |
4 # doc: Sat Jan 18 18:41:49 2003 |
5 # dlm: Sun May 23 16:33:33 2010 |
5 # dlm: Sat Aug 21 23:24:42 2010 |
6 # (c) 2003 A.M. Thurnherr |
6 # (c) 2003 A.M. Thurnherr |
7 # uE-Info: 527 42 NIL 0 0 72 11 2 4 NIL ofnI |
7 # uE-Info: 123 56 NIL 0 0 72 11 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # Extract Bottom-Track Data |
10 # Extract Bottom-Track Data |
11 |
11 |
12 # NOTE: NO SOUND-SPEED CORRECTION APPLIED YET!!! |
12 # NOTE: NO SOUND-SPEED CORRECTION APPLIED YET!!! |
118 die("$0: minimum instrument BT amplitude ($dta{BT_MIN_EVAL_AMPLITUDE}) " . |
118 die("$0: minimum instrument BT amplitude ($dta{BT_MIN_EVAL_AMPLITUDE}) " . |
119 "too large for selected criterion (-a $opt_a) --- use -f to override\n") |
119 "too large for selected criterion (-a $opt_a) --- use -f to override\n") |
120 if ($dta{BT_MIN_EVAL_AMPLITUDE} > $opt_a); |
120 if ($dta{BT_MIN_EVAL_AMPLITUDE} > $opt_a); |
121 die("$0: maximum instrument BT error velocity ($dta{BT_MAX_ERROR_VELOCITY}) " . |
121 die("$0: maximum instrument BT error velocity ($dta{BT_MAX_ERROR_VELOCITY}) " . |
122 "too small for selected criterion (-e $opt_e) --- use -f to override\n") |
122 "too small for selected criterion (-e $opt_e) --- use -f to override\n") |
123 if ($dta{BT_MAX_ERROR_VELOCITY} < $opt_e); |
123 if (defined($dta{BT_MAX_ERROR_VELOCITY}) && $dta{BT_MAX_ERROR_VELOCITY} < $opt_e); |
124 } |
124 } |
125 |
125 |
126 require $opt_F if defined($opt_F); # load filter |
126 require $opt_F if defined($opt_F); # load filter |
127 |
127 |
128 print(STDERR "reading $ARGV[0]..."); |
128 print(STDERR "reading $ARGV[0]..."); |