1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # L I S T B I N S |
3 # L I S T B I N S |
4 # doc: Fri Aug 25 15:57:05 2006 |
4 # doc: Fri Aug 25 15:57:05 2006 |
5 # dlm: Thu Jun 13 22:17:02 2019 |
5 # dlm: Thu Feb 13 10:36:24 2020 |
6 # (c) 2006 A.M. Thurnherr |
6 # (c) 2006 A.M. Thurnherr |
7 # uE-Info: 75 58 NIL 0 0 72 0 2 4 NIL ofnI |
7 # uE-Info: 133 33 NIL 0 0 72 0 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # Split data file into per-bin time series. |
10 # Split data file into per-bin time series. |
11 |
11 |
12 # HISTORY: |
12 # HISTORY: |
71 # - added -l)ast bin |
71 # - added -l)ast bin |
72 # - activate output files |
72 # - activate output files |
73 # Aug 29, 2018: - added error message on -r decoding failures |
73 # Aug 29, 2018: - added error message on -r decoding failures |
74 # Jun 13, 2018: - adpated to RTI files (disabled BIT error check) |
74 # Jun 13, 2018: - adpated to RTI files (disabled BIT error check) |
75 # - BUG: dn did not have sufficient digits |
75 # - BUG: dn did not have sufficient digits |
|
76 # Feb 13, 2020: - added -z |
76 |
77 |
77 # General Notes: |
78 # General Notes: |
78 # - everything (e.g. beams) is numbered from 1 |
79 # - everything (e.g. beams) is numbered from 1 |
79 # - no support for BT data |
80 # - no support for BT data |
80 |
81 |
115 $antsMinLibVersion = 7.0; |
116 $antsMinLibVersion = 7.0; |
116 ($ANTS) = (`which ANTSlib` =~ m{^(.*)/[^/]*$}); |
117 ($ANTS) = (`which ANTSlib` =~ m{^(.*)/[^/]*$}); |
117 require "$ANTS/ants.pl"; |
118 require "$ANTS/ants.pl"; |
118 require "$ANTS/libconv.pl"; |
119 require "$ANTS/libconv.pl"; |
119 |
120 |
120 die("Usage: $0 [-r)ange <first_ens,last_ens>] [-l)ast <bin>] [-R)enumber ensembles from 1] " . |
121 die("Usage: $0 [-z) progress dots] [-r)ange <first_ens,last_ens>] [-l)ast <bin>] [-R)enumber ensembles from 1] " . |
121 "[-o)utput <redirection[>bin%d.raw]>] " . |
122 "[-o)utput <redirection[>bin%d.raw]>] " . |
122 "[output -a)ll ens (not just those with good vels)] " . |
123 "[output -a)ll ens (not just those with good vels)] " . |
123 "[-M)agnetic <declination>] " . |
124 "[-M)agnetic <declination>] " . |
124 "[-S)oundspeed correction <salin|*,temp|*,depth|*> " . |
125 "[-S)oundspeed correction <salin|*,temp|*,depth|*> " . |
125 "[Instrument -T)ransformation Matrix <file>] " . |
126 "[Instrument -T)ransformation Matrix <file>] " . |
126 "[-P)itch/Roll <bias/bias>] [-B)eamvel <bias/bias/bias/bias>] " . |
127 "[-P)itch/Roll <bias/bias>] [-B)eamvel <bias/bias/bias/bias>] " . |
127 "[require -4)-beam solutions] [-d)iscard <beam#>] " . |
128 "[require -4)-beam solutions] [-d)iscard <beam#>] " . |
128 "[-p)ct-good <min>] " . |
129 "[-p)ct-good <min>] " . |
129 "<RDI file>\n") |
130 "<RDI file>\n") |
130 unless (&getopts("4aB:d:l:M:o:p:r:P:RS:T:") && @ARGV == 1); |
131 unless (&getopts("4aB:d:l:M:o:p:r:P:RS:T:z") && @ARGV == 1); |
|
132 |
|
133 $global::readDataProgress = 10000 if defined($opt_z); |
131 |
134 |
132 ($P{pitch_bias},$P{roll_bias}) = split('[,/]',$opt_P); |
135 ($P{pitch_bias},$P{roll_bias}) = split('[,/]',$opt_P); |
133 ($P{velbias_b1},$P{velbias_b2},$P{velbias_b3},$P{velbias_b4}) = split('[,/]',$opt_B); |
136 ($P{velbias_b1},$P{velbias_b2},$P{velbias_b3},$P{velbias_b4}) = split('[,/]',$opt_B); |
134 |
137 |
135 die("$0: -4 and -d are mutually exclusive\n") |
138 die("$0: -4 and -d are mutually exclusive\n") |