%BB2F processing script.  
function [dat]=rd_BB2F(fnam)

fid=fopen(fnam,'r')

i=1;
while(feof(fid)==0)
      junk=fscanf(fid,'%f',[6]);
      if (length(junk)<6)
          break
      end
      dat1([1:4])=junk([2,4:1:6]);
      dat(i,:)=dat1;
      i=i+1;
end
fclose(fid);%input filename of whole data


