#!/usr/bin/perl -w

use strict;

(@ARGV==1) || die "Usage: $0 <gagefile>\n";

my %af;
open(TXT , "<$ARGV[0]") || die "Cannot open file $ARGV[0]\n";
while (my $line = <TXT>)
{
   chomp $line;
   my ($gage,$date,$cfs) = split("\t",$line);
   ($gage eq 'RRCCPLCO') || next;
   ($date =~ /^(\d\d\d\d)-(\d\d)-(\d\d)/) || die "Invalid date $date\n";
   $af{"$1$2"} += $cfs*1.9834711;
}
close(TXT);

foreach my $mo (sort keys %af)
{
   printf "$mo   %4d\n" , int($af{$mo}+0.5);
}
