sub load_landing_marker_coods {
 @marker_coods = ();
 @marker_coods = qw(
-82.563073,35.593016
-82.5496,35.5951
-82.55331,35.59767
-82.554224,35.59911
-82.554224,35.59911
-82.594537,35.578710
-82.7848703,36.9034079
-82.463386,36.9435094
-82.580242,36.977428
-82.3106209,36.9039605
-81.8039463,36.4742955
-81.519045,36.8330364
-79.958942,37.264354
-78.886651,38.066062
-78.1919708,38.91821
-78.4617847,38.6652834
-80.271387,36.6418965
-79.872318,36.691683
-82.181638,35.627706
-82.1810452,35.6283736
-82.680168,35.795463
-82.008388,35.684433
-82.1811233,35.6285741
-82.247084,35.439311
-82.4597136,35.3162945
-82.2490532,35.4398396
-82.225924,35.433769
-81.957092,35.36808
-81.863619,35.333531
-81.684475,36.218989
-81.49242,36.40231
-81.4957521,36.3782332
-81.492555,36.40182
-81.381378,36.346176
-81.151977,36.148297
-81.146643,36.160514
-80.851479,36.244696
-81.1214822,36.5069006
-81.5385798,35.9116091
-81.340888,35.732487
-81.557223,35.742031
-81.2540497,35.4725646
-82.778728,35.357609
-83.100508,35.5178228
-82.9863139,35.4857699
-83.252370,35.369270
-83.261963,35.371319
-83.81895,35.044221
 ); # end array 

	%marker_coods = (); 
    foreach $word (@marker_coods) { 
		($marker_long,$marker_lat) = split /,/,$word;
       $long_dist =  abs($marker_long) - abs($me_long);  if ($long_dist > 0) { $long_dir = "W"; } else { $long_dir = "E"; }   $long_dist = substr(abs($long_dist),0,4);
       $lat_dist =  $marker_lat - $me_lat;  if ($lat_dist > 0) { $lat_dir = "N"; } else { $lat_dir = "S"; }  $lat_dist = substr(abs($lat_dist),0,4);
       $hyp_leg = substr(sqrt (($long_dist * $long_dist) + ($lat_dist * $lat_dist)),0,4);



#		print "long_dist = $long_dist ** lat_dist = $lat_dist **  hyp_leg = $hyp_leg","\n";
#         print "\n";
# 		print "Early Exit","\n";                
#  		exit(0);
#		print "  NW direction = ",$direction_ct{"NW"},"   hyp_legs = ",$direction_dist{"NW"},"<br>";
#		print "  NE direction = ",$direction_ct{"NE"},"   hyp_leg = ",$direction_dist{"NE"},"<br>";
#		print "  SE direction = ",$direction_ct{"SE"},"   hyp_leg = ",$direction_dist{"SE"},"<br>";
#		print "  SW direction = ",$direction_ct{"SW"},"   hyp_leg = ",$direction_dist{"SW"},"<br>";
#         print "<br>"; 
# 		print "Early Exit","\n";                
#  		exit(0);




    }
}  # end sub