function L = satlan_loc(FileIn)
% SATLAN_LOC - parse the location out of sat_location.txt

% Brian Schlining
% 25 Mar 1999

fid = fopen(FileIn,'rt');
OK = 1;
n = 1;
while ~feof(fid)
   
   S = fgetl(fid);
   D = abs(S);
   j = find(D >= 65 & D <= 90);
   
   if length(S) > j 
      
      S = S((j+1):end);
      X = sscanf(S,'%f %4f-%02f-%02f %02f:%02f:%02f %f %f');
      
      if length(X) >= 9
         L.Date(n,1) = datenum(X(2),X(3),X(4),X(5),X(6),X(7));
         L.Lat(n,1)  = X(8);
         L.Lon(n,1)  = X(9);
         n           = n + 1;
      end
      
   end
end
fclose(fid)