Changeset 10388 in ntrip for trunk/BNC/scripts/Bnc.pm
- Timestamp:
- Mar 12, 2024, 3:10:17 PM (6 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/BNC/scripts/Bnc.pm
r10385 r10388 493 493 my $epochSec = 0; 494 494 my $epochDiff = 0; 495 my ( @hlp, @N, @E, @U, %SATNUM, @TRP, @CLK, @OFF_G LO, @OFF_GAL, @OFF_BDS);496 my ( @EPOCH, @EPOCH_CLK, @EPOCH_OFF_G LO, @EPOCH_OFF_GAL, @EPOCH_OFF_BDS );495 my ( @hlp, @N, @E, @U, %SATNUM, @TRP, @CLK, @OFF_GPS, @OFF_GLO, @OFF_GAL, @OFF_BDS); 496 my ( @EPOCH, @EPOCH_CLK, @EPOCH_OFF_GPS, @EPOCH_OFF_GLO, @EPOCH_OFF_GAL, @EPOCH_OFF_BDS ); 497 497 my ( %AMB, %RES, %ELE, %ION, %BIA ); 498 498 my ( $station, $lki, $sys, $sat, $amb ); … … 588 588 push ( @CLK, $hlp[2] + $hlp[3] ); 589 589 } 590 elsif ( $ln =~ /\bOFF_GPS\b/ ) { # 2015-08... OFF_GPS 52.6806 -3.8042 +- 9.0077 591 push ( @EPOCH_OFF_GPS, $epochSec ); 592 push ( @OFF_GPS, $hlp[2] + $hlp[3] ); 593 } 590 594 elsif ( $ln =~ /\bOFF_GLO\b/ ) { # 2015-08... OFF_GLO 52.6806 -3.8042 +- 9.0077 591 #push ( @EPOCH_OFF_GLO, $epochSec );595 push ( @EPOCH_OFF_GLO, $epochSec ); 592 596 push ( @OFF_GLO, $hlp[2] + $hlp[3] ); 593 597 } 594 598 elsif ( $ln =~ /\bOFF_GAL\b/ ) { # 2015-08... OFF_GAL 52.6806 -3.8042 +- 9.0077 595 #push ( @EPOCH_OFF_GAL, $epochSec );599 push ( @EPOCH_OFF_GAL, $epochSec ); 596 600 push ( @OFF_GAL, $hlp[2] + $hlp[3] ); 597 601 } 598 602 elsif ( $ln =~ /\bOFF_BDS\b/ ) { # 2015-08... OFF_BDS 52.6806 -3.8042 +- 9.0077 599 #push ( @EPOCH_OFF_BDS, $epochSec );603 push ( @EPOCH_OFF_BDS, $epochSec ); 600 604 push ( @OFF_BDS, $hlp[2] + $hlp[3] ); 601 605 } … … 624 628 if ( $nof_epochs != scalar @TRP ) { LOGDIE "number of epochs and TRP not equal\n" } 625 629 if ( @CLK && scalar @EPOCH_CLK != scalar @CLK ) { LOGDIE "number of epochs and CLK not equal\n" } 626 # if ( @OFF_GLO && scalar @EPOCH_OFF_GLO != scalar @OFF_GLO ) { LOGDIE "number of epochs and OFF_GLO not equal\n" } 627 # if ( @OFF_GAL && scalar @EPOCH_OFF_GAL != scalar @OFF_GAL ) { LOGDIE "number of epochs and OFF_GAL not equal\n" } 628 # if ( @OFF_BDS && scalar @EPOCH_OFF_BDS != scalar @OFF_BDS ) { LOGDIE "number of epochs and OFF_BDS not equal\n" } 630 if ( @OFF_GPS && scalar @EPOCH_OFF_GPS != scalar @OFF_GPS ) { LOGDIE "number of epochs and OFF_GPS not equal\n" } 631 if ( @OFF_GLO && scalar @EPOCH_OFF_GLO != scalar @OFF_GLO ) { LOGDIE "number of epochs and OFF_GLO not equal\n" } 632 if ( @OFF_GAL && scalar @EPOCH_OFF_GAL != scalar @OFF_GAL ) { LOGDIE "number of epochs and OFF_GAL not equal\n" } 633 if ( @OFF_BDS && scalar @EPOCH_OFF_BDS != scalar @OFF_BDS ) { LOGDIE "number of epochs and OFF_BDS not equal\n" } 629 634 630 635 if ( !$station ) { WARN "could not grep stationname from file: $file\n" } … … 638 643 TRP => \@TRP, 639 644 CLK => \@CLK, 645 OFF_GPS => \@OFF_GPS, 640 646 OFF_GLO => \@OFF_GLO, 641 647 OFF_GAL => \@OFF_GAL,
Note:
See TracChangeset
for help on using the changeset viewer.