X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconvkeps.pl;h=4c05d05a04d2b49d6970fcd3e350d40ad85d4a96;hb=a6d0720c825ae5d7233025c96e0f04ac48d5b811;hp=65e53f40728779ca146748c878e17b2bbe20c8fc;hpb=46960c1b50c3937c073a65422313925f78007a2b;p=spider.git

diff --git a/perl/convkeps.pl b/perl/convkeps.pl
index 65e53f40..4c05d05a 100755
--- a/perl/convkeps.pl
+++ b/perl/convkeps.pl
@@ -107,8 +107,8 @@ while (<$f>) {
 			$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";
 			
 			$state = 3;
 		} else {
@@ -152,6 +152,7 @@ close(OUT);
 sub genenum
 {
 	my ($sign, $frac, $esign, $exp) = unpack "aa5aa", shift;
+	$esign = '+' if $esign eq ' ';
 	my $n = $sign . "." . $frac . 'e' . $esign . $exp;
 	return $n - 0;
 }