X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMinimuf.pm;h=88d2be64c6c7ebdf65c771a5576545d8737b2e7c;hb=2b58ccdf81685a1167a43c38705a0d84b9d8d661;hp=e911663c5ca3daa86917d7767ad64bc630d24601;hpb=c961a6af6d9aec8eba4d58803f890fc514a109cc;p=spider.git

diff --git a/perl/Minimuf.pm b/perl/Minimuf.pm
index e911663c..88d2be64 100644
--- a/perl/Minimuf.pm
+++ b/perl/Minimuf.pm
@@ -4,6 +4,8 @@
 #
 # Translated and modified for my own purposes by Dirk Koopman G1TLH
 #
+# as fixed by Steve Franke K9AN
+#
 # Copyright (c) 1999 Dirk Koopman G1TLH
 #
 # The original copyright:-
@@ -43,6 +45,13 @@ require Exporter;
             $noise);
 
 use strict;
+
+use vars qw($VERSION $BRANCH);
+$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ ) || 0;
+$main::build += $VERSION;
+$main::branch += $BRANCH;
+
 use vars qw($pi $d2r $r2d $halfpi $pi2 $VOFL $R $hE $hF $GAMMA $LN10
 		    $MINBETA $BOLTZ $NTEMP $DELTAF $MPATH $GLOSS $SLOSS
             $noise);
@@ -253,7 +262,7 @@ sub ion
 		# Calculate the E-layer critical frequency and MUF.
 		 
 		$fcE = 0;
-		$psi = zenith($dist, $lat1, $lon1, $b2, $b1, $lats, $lons);
+		$psi = zenith($dist, $lat1, $lon1, $b1, $b2, $lats, $lons);
 		$ftemp = cos($psi);
 		$fcE = .9 * pow((180. + 1.44 * $ssn) * $ftemp, .25) if ($ftemp > 0);
 		$fcE = .005 * $ssn if ($fcE < .005 * $ssn);
@@ -471,7 +480,7 @@ sub ds
 	$s = 0 if $s < 0;
     my $plus = (($l / 6) >= $s + 0.5) ? '+' : ' ';
 	
-    return "$c2\S$s$plus";
+    return "$c2". "S$s$plus";
 }		
 
 1;