function [dat]=rd_EcoVSF(fnam)
%
%  Program to read DH-4 BB29 file
%
%  INPUTS
%    FNAM = file name to read in.
%
%  OUTPUTS
%    
%  	
%    dat = analog data
%
%
%  Written by Emmanuel Boss, U of Maine, 2004.
%   

fid=fopen(fnam,'r')

%fid=fopen('c:\data\CoBOP99\cobop990521_084025.dat','r')
%skip first line  
%   line=fgetl(fid);
i=1;
while(feof(fid)==0)
      junk=fscanf(fid, '%s',[1]);
      junk=fscanf(fid,'%f',[21]);
      if (length(junk)<21)
          break
      end
      junk2=fscanf(fid, '%s',[1]);
      dat1([1:21])=junk([1:21]);
      dat(i,:)=dat1;
      i=i+1;
end
fclose(fid);