Changeset 10383 in ntrip for trunk/BNC/scripts/Bnc.pm

Timestamp:

Mar 11, 2024, 12:52:02 PM (4 months ago)

Author:

stuerze

Message:

minor changes

File:

• trunk/BNC/scripts/Bnc.pm (modified) (6 diffs)

trunk/BNC/scripts/Bnc.pm

@@ -493 +493 @@
     my $epochSec     = 0;
     my $epochDiff    = 0;
-    my ( @hlp, @N, @E, @U, %SATNUM, @TRPs, @CLKs,   @OFF_GLOs, @OFF_GALs, @OFF_BDSs);
-    my ( @EPOCHs, @EPOCHs_CLK, @EPOCHs_OFF_GLO, @EPOCHs_OFF_GAL, @EPOCHs_OFF_BDS );
+    my ( @hlp, @N, @E, @U, %SATNUM, @TRP, @CLK, @OFF_GLO, @OFF_GAL, @OFF_BDS);
+    my ( @EPOCH, @EPOCH_CLK, @EPOCH_OFF_GLO, @EPOCH_OFF_GAL, @EPOCH_OFF_BDS );
     my ( %AMB,        %RES,            %ELE,            %ION, %BIA );
     my ( $station,    $lki,            $sys,            $sat, $amb );
@@ -530 +530 @@
 
         if ( $ln =~ /\bdN\b/ ) {
-            push ( @EPOCHs, $epochSec );    # besser $epo ?
+            push ( @EPOCH, $epochSec );    # besser $epo ?
             $old_epochSec = $epochSec;
 
-#2015-08-27_13:59:50.000 DIEP1 X = 3842152.9054 +- 0.0242 Y = 563402.0331 +- 0.0176 Z = 5042888.5182 +- 0.0319 dN = 0.0130 +- 0.0193 dE = -0.0032 +- 0.0178 dU = -0.0248 +- 0.0349
+            #2015-08-27_13:59:50.000 DIEP1 X = 3842152.9054 +- 0.0242 Y = 563402.0331 +- 0.0176 Z = 5042888.5182 +- 0.0319 dN = 0.0130 +- 0.0193 dE = -0.0032 +- 0.0178 dU = -0.0248 +- 0.0349
             $station = $hlp[1];
 
@@ -585 +585 @@
         }
         elsif ( $ln =~ /\bREC_CLK\b/ ) {
-            push ( @EPOCHs_CLK, $epochSec );
-            push ( @CLKs,       $hlp[2] + $hlp[3] );
+            push ( @EPOCH_CLK, $epochSec );
+            push ( @CLK,       $hlp[2] + $hlp[3] );
         }
         elsif ( $ln =~ /\bOFF_GLO\b/ ) {                # 2015-08... OFF_GLO 52.6806 -3.8042 +- 9.0077
-            push ( @EPOCHs_OFF_GLO, $epochSec );
-            push ( @OFF_GLOs,       $hlp[2] + $hlp[3] );
+            push ( @EPOCH_OFF_GLO, $epochSec );
+            push ( @OFF_GLO,       $hlp[2] + $hlp[3] );
         }
         elsif ( $ln =~ /\bOFF_GAL\b/ ) {                # 2015-08... OFF_GAL 52.6806 -3.8042 +- 9.0077
-            push ( @EPOCHs_OFF_GAL, $epochSec );
-            push ( @OFF_GALs,       $hlp[2] + $hlp[3] );
+            push ( @EPOCH_OFF_GAL, $epochSec );
+            push ( @OFF_GAL,       $hlp[2] + $hlp[3] );
         }
         elsif ( $ln =~ /\bOFF_BDS\b/ ) {                # 2015-08... OFF_BDS 52.6806 -3.8042 +- 9.0077
-            push ( @EPOCHs_OFF_BDS, $epochSec );
-            push ( @OFF_BDSs,       $hlp[2] + $hlp[3] );
+            push ( @EPOCH_OFF_BDS, $epochSec );
+            push ( @OFF_BDS,       $hlp[2] + $hlp[3] );
         }
         elsif ( $ln =~ /\bSATNUM\b/ ) {     # 2015-09... SATNUM G  8
@@ -604 +604 @@
         }
         elsif ( $ln =~ /\bTRP\b/ ) {        # 2015-08... TRP  2.3803 +0.1009 +- 0.0324
-            push ( @TRPs, $hlp[2] + $hlp[3] );
+            push ( @TRP, $hlp[2] + $hlp[3] );
         }
     }    # -----  next line  -----
@@ -611 +611 @@
     close $fh;
 
-    my $nof_epochs = scalar @EPOCHs;
+    my $nof_epochs = scalar @EPOCH;
     DEBUG(   "$station: epochs:$nof_epochs, North displac.: "
            . scalar @N
@@ -618 +618 @@
            . ", Up displac.: "
            . scalar @U
-           . ", TRPs:"
-           . scalar @TRPs
+           . ", TRP:"
+           . scalar @TRP
            );
-    if ( $nof_epochs != scalar @N )                                { LOGDIE "number of epochs and residuals not equal\n" }
-    if ( $nof_epochs != scalar @TRPs )                             { LOGDIE "number of epochs and TRPs not equal\n" }
-    if ( @CLKs     && scalar @EPOCHs_CLK != scalar @CLKs )         { LOGDIE "number of epochs and CLKs not equal\n" }
-    if ( @OFF_GLOs && scalar @EPOCHs_OFF_GLO != scalar @OFF_GLOs ) { LOGDIE "number of epochs and OFF_GLOs not equal\n" }
-    if ( @OFF_GALs && scalar @EPOCHs_OFF_GAL != scalar @OFF_GALs ) { LOGDIE "number of epochs and OFF_GALs not equal\n" }
-    if ( @OFF_BDSs && scalar @EPOCHs_OFF_BDS != scalar @OFF_BDSs ) { LOGDIE "number of epochs and OFF_BDSs not equal\n" }
+    if ( $nof_epochs != scalar @N )                              { LOGDIE "number of epochs and residuals not equal\n" }
+    if ( $nof_epochs != scalar @TRP )                            { LOGDIE "number of epochs and TRP not equal\n" }
+    if ( @CLK     && scalar @EPOCH_CLK     != scalar @CLK )      { LOGDIE "number of epochs and CLK not equal\n" }
+    if ( @OFF_GLO && scalar @EPOCH_OFF_GLO != scalar @OFF_GLO )  { LOGDIE "number of epochs and OFF_GLO not equal\n" }
+    if ( @OFF_GAL && scalar @EPOCH_OFF_GAL != scalar @OFF_GAL )  { LOGDIE "number of epochs and OFF_GAL not equal\n" }
+    if ( @OFF_BDS && scalar @EPOCH_OFF_BDS != scalar @OFF_BDS )  { LOGDIE "number of epochs and OFF_BDS not equal\n" }
 
     if ( !$station ) { WARN "could not grep stationname from file: $file\n" }
 
     my %data = (
-                 EPOCHS     => \@EPOCHs,
-                 N          => \@N,
-                 E          => \@E,
-                 U          => \@U,
-                 SATNUM     => \%SATNUM,
-                 TRPs       => \@TRPs,
-                 CLKs      => \@CLKs,
-                 OFF_GLOs  => \@OFF_GLOs,
-                 OFF_GALs  => \@OFF_GALs,
-                 OFF_BDSs  => \@OFF_BDSs,
-                 RES        => \%RES,
-                 AMB        => \%AMB,
-                 ELE        => \%ELE,
-                 ION        => \%ION,
-                 BIA        => \%BIA,
+                 EPOCH   => \@EPOCH,
+                 N       => \@N,
+                 E       => \@E,
+                 U       => \@U,
+                 SATNUM  => \%SATNUM,
+                 TRP     => \@TRP,
+                 CLK     => \@CLK,
+                 OFF_GLO => \@OFF_GLO,
+                 OFF_GAL => \@OFF_GAL,
+                 OFF_BDS => \@OFF_BDS,
+                 RES     => \%RES,
+                 AMB     => \%AMB,
+                 ELE     => \%ELE,
+                 ION     => \%ION,
+                 BIA     => \%BIA,
     );