push @out, sprintf("%-30.30s %-18s %3.0f", $a->name, DXBearing::lltos($lat2*$r2d, -$lon2*$r2d), $b2 * $r2d);
my $head = "UT LT MUF Zen";
for ($i = 0; $i < $nfreq; $i++) {
push @out, sprintf("%-30.30s %-18s %3.0f", $a->name, DXBearing::lltos($lat2*$r2d, -$lon2*$r2d), $b2 * $r2d);
my $head = "UT LT MUF Zen";
for ($i = 0; $i < $nfreq; $i++) {