#!/opt/perl/bin/perl
use warnings;
use strict;
#use lib "$ENV{GPS_HOME_DIR}/bin/pm";
use GPS::DATES;

die "Usage: pbo-stats postfit.log.Z\n" unless @ARGV;

my $f = shift || "postfit.log";
my $date = "";
my $type = "a";

my $site;
my $cat = "gzip -dc ";
$cat = "cat " if $f !~ /\.(Z|gz)$/;
my @lines =`$cat $f`;
my ($gps,$mu,$sig,$pts,$mean,$rms,$n,$i,$var);
$n=0;
$i=0;$var=0;
my @s;
foreach my $l ( @lines ) {
   $l =~ s/^\s+//;
   $l =~ s/\s+/ /g;
   next if $l =~ /\*+/;
   $i++ if $l =~ /DATA/ ;
   next if $i < 3; 
   last if $i > 3;
   next if $l !~ /^120 /;
   ($gps,$site,$mu,$sig,$pts)  = split(' ',$l);
   #print "$gps,$site,$mu,$sig,$pts\n"; 
   $rms=sprintf("  %s  %-5d     %5.1f\n",$site,$pts,$sig*1e6);
   print $rms;

}



