}
$lat2 = $a->{lat};
$lon2 = $a->{long};
-($b2, $d) = DXBearing::bdist($lat1, $lon1, $lat2, $lon2);
-($b1, undef) = DXBearing::bdist($lat2, $lon2, $lat1, $lon1);
+($b1, $d) = DXBearing::bdist($lat1, $lon1, $lat2, $lon2);
+($b2, undef) = DXBearing::bdist($lat2, $lon2, $lat1, $lon1);
# convert stuff into radians
$lat1 *= $d2r;
my ($hr1, $day, $month) = (gmtime($main::systime))[2,3,4];
$month++;
my $flux = Geomag::sfi;
-my $ssn = Geomag::r || Minimuf::spots($flux);
+my $ssn = Minimuf::spots($flux);
my $theta; # path angle (rad)
my ($lats, $lons); # subsolar coordinates (rad)