1. protect against PC41s with field[3] == field[2]

[spider.git] / perl / Minimuf.pm

diff --git a/perl/Minimuf.pm b/perl/Minimuf.pm
index e911663c5ca3daa86917d7767ad64bc630d24601..e5ab130f20f1f9e6664f867cacc0e9f32598d5e2 100644 (file)
--- 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:-
@@ -253,7 +255,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 +473,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;