$ref->{mm2} = genenum($mm2);
$ref->{bstar} = genenum($bstar);
$ref->{elset} = $elset - 0;
$ref->{mm2} = genenum($mm2);
$ref->{bstar} = genenum($bstar);
$ref->{elset} = $elset - 0;
-# print "$id $number $epoch $decay $mm2 $bstar $elset\n";
-# print "mm2: $ref->{mm2} bstar: $ref->{bstar}\n";
+ #print "$id $number $epoch $decay $mm2 $bstar $elset\n";
+ #print "mm2: $ref->{mm2} bstar: $ref->{bstar}\n";
sub genenum
{
my ($sign, $frac, $esign, $exp) = unpack "aa5aa", shift;
sub genenum
{
my ($sign, $frac, $esign, $exp) = unpack "aa5aa", shift;