function sp = read_spectrum(file);
% read_spectrum
%	General use function for reading in a spectrum from one of the files 
%	written by DOASDATA, e.g. EU99ZP50.083

% Open file:
fid = fopen(file, 'r');
% Skip first three lines of header information:
for i = 1:1:3
   fgetl(fid);
end
% Read in data:
i = 0;
while ~feof(fid)
   i = i + 1;
   temp(i) = fscanf(fid,'%10f',1);
   fgetl(fid);
end
% Close the file:
fclose(fid);
% Output the result:
sp = temp;