#!/usr/bin/perl

#
$file=@ARGV[0];
#print $file,"\n";

binmode INFILE;
binmode OUTFILE;

open (OUTFILE,">dale.sat");

open (INFILE,"<$file");

read (INFILE,$WMOheader,26);
#print $WMOheader,"\n";

read (INFILE,$ProdHeader1,16);

($source,$satellite,$sector,$channel,$numRec,$numBytes,$yy,$mon,$dd,$hh,$min,$sec,$hun,$projection)=unpack("ccccnncccccccc",$ProdHeader1);

print "source  : $source    \n";
print "satellite  : $satellite    \n";
print "sector  : $sector    \n";
print "channel  : $channel    \n";
print "numRec  : $numRec    \n";
print "numBytes  : $numBytes    \n";
print "yy  : $yy    \n";
print "mon  : $mon    \n";
print "dd  : $dd    \n";
print "hh  : $hh    \n";
print "min  : $min    \n";
print "sec  : $sec    \n";
print "hun  : $hun    \n";
print "projection  : $projection    \n";

#print "ProdHeader1  : $ProdHeader1    \n";
#print  $ProdHeader1 ;


read (INFILE,$ProdHeader2,32);


($Nx,$Ny,$hiLat,$loLat,$hiLon,$loLon,$reserved,$hiLov,$loLov,$hiDx,$loDx,$hiDy,$loDy,$projflag,$mode,$loLatin,$hiLatin,$resolution,$compression,$version,$octets,$calibration)=unpack("nncncnccncncncccncccnc",$ProdHeader2);

$Lat = (65536*$hiLat + $loLat)/10000;
$Lon = (65536*$hiLon + $loLon)/10000;

print "Nx  : $Nx    \n";
print "Ny  : $Ny    \n";

print "Lat  : $Lat    \n";
print "Lon  : $Lon    \n";
print "version  : $version    \n";

read (INFILE,$head,464);

print OUTFILE <INFILE>;
close (INFILE);