#!/usr/local/bin/perl

require "StrikeProb.pl";
$|=1;
&StrikeProb'StrikeProb("hamilton","junk","erika.dat","locstring",0,0,1,1997.6868169398906048);


print STDERR "1997 9 08 09.00", " ",&StrikeProb'GCDISTANCE(22.3, 63.2, 32.367, 64.667),"\n";
print STDERR "1997 9 08 15.00", " ",&StrikeProb'GCDISTANCE(22.7, 62.9, 32.367, 64.667),"\n";
print STDERR "1997 9 08 21.00", " ",&StrikeProb'GCDISTANCE(23.6, 62.4, 32.367, 64.667),"\n";
print STDERR "1997 9 09 03.00", " ",&StrikeProb'GCDISTANCE(24.6, 61.6, 32.367, 64.667),"\n";
print STDERR "1997 9 09 09.00", " ",&StrikeProb'GCDISTANCE(25.9, 61.3, 32.367, 64.667),"\n";
print STDERR "1997 9 09 15.00", " ",&StrikeProb'GCDISTANCE(27.2, 60.4, 32.367, 64.667),"\n";
print STDERR "1997 9 09 21.00", " ",&StrikeProb'GCDISTANCE(28.6, 59.8, 32.367, 64.667),"\n";
print STDERR "1997 9 10 03.00", " ",&StrikeProb'GCDISTANCE(30.1, 59.2, 32.367, 64.667),"\n";
print STDERR "1997 9 10 09.00", " ",&StrikeProb'GCDISTANCE(31.2, 58.4, 32.367, 64.667),"\n";
print STDERR "1997 9 10 15.00", " ",&StrikeProb'GCDISTANCE(33.2, 58.3, 32.367, 64.667),"\n";
print STDERR "1997 9 10 21.00", " ",&StrikeProb'GCDISTANCE(34.5, 57.5, 32.367, 64.667),"\n";
print STDERR "1997 9 11 03.00", " ",&StrikeProb'GCDISTANCE(35.6, 55.7, 32.367, 64.667),"\n";
print STDERR "\nFORECASTS\n";

print STDERR "1997 9 08 09.00 UT ",&StrikeProb'GCDISTANCE(22.3, 63.2, 32.367, 64.667),"\n";
print STDERR "1997 9 08 18.00 UT ",&StrikeProb'GCDISTANCE(23.2, 63.1, 32.367, 64.667),"\n";
print STDERR "1997 9 09 06.00 UT ",&StrikeProb'GCDISTANCE(25.0, 63.0, 32.367, 64.667),"\n";
print STDERR "1997 9 09 18.00 UT ",&StrikeProb'GCDISTANCE(27.0, 62.7, 32.367, 64.667),"\n";
print STDERR "1997 9 10 06.00 UT ",&StrikeProb'GCDISTANCE(29.3, 62.1, 32.367, 64.667),"\n";
print STDERR "1997 9 10 12.00 UT ",&StrikeProb'GCDISTANCE(30.35, 61.7, 32.367, 64.667),"\n";  # interpolated
print STDERR "1997 9 10 18.00 UT ",&StrikeProb'GCDISTANCE(31.4, 61.3, 32.367, 64.667),"\n";  # interpolated
print STDERR "1997 9 11 00.00 UT ",&StrikeProb'GCDISTANCE(32.45, 60.9, 32.367, 64.667),"\n";  # interpolated
print STDERR "1997 9 11 06.00 UT ",&StrikeProb'GCDISTANCE(33.5, 60.5, 32.367, 64.667),"\n";

exit;