%
%
%
%
%
fclose all;

fid=fopen(fi);

line=1;
data=[];
c24=[];
for i=1:10^5
   line=fgetl(fid);
   if line==-1
       break
   end
   dat1=textscan(line,'%s%f%f%f%f%f%f%f%f%f%f%f%f%f%f%f%f%f%f%f%f%f%s');
   %I DON'T KNOW WHAT THE FIRST 4 COLUMNS ARE
   %the first is a string (not saved)
   %columns 2:4 are saved in c24
   dat2=dat1(2:22);
   dat3=cell2mat(dat2);
   
   wvl=dat3(4:2:end);
   dat4=dat3(5:2:end);
   
   data=[data;dat4];
   dat5=dat3(1:3)
   c24=[c24;dat5];
   
end
fclose(fid);

wvl;
BB9=data;

clearvars dat* line i fid;

