function [index,distance]=nearxy(lat,lon,lat0,lon0,dist);
%function [index,distance]=nearxy(lat,lon,lat0,lon0,dist);
distance=60*1852*sqrt(((lon-lon0)*.75).^2+(lat-lat0).^2);
index=find(distance<=dist);
distance=distance(index);
