hurricane='fran';
files=dir(['C:\Documents and Settings\sylvie lorsolo\My Documents\research\',hurricane,'\fran_wave2_rmvd\*.asc']); 
for fil=1:length(files)
    sweepfile=files(fil).name;
    fid=fopen(['C:\Documents and Settings\sylvie lorsolo\My Documents\research\',hurricane,'\fran_wave2_rmvd\',sweepfile],'r');
    
    eofstat=feof(fid);
    temp2=[];
    fscanf(fid,'%s \n',18)
    az=[];
    vel=[];
    meanless=[];
    number_of_rays=str2num(fscanf(fid,'%s \n',1));
    number_of_bins=str2num(fscanf(fid,'%s \n',1))-2;
    fscanf(fid,'%s \n',7)
    for i=1:number_of_rays
        ray=[];
        temp=fscanf(fid,'%s \n',1);
        az=[az str2num(temp)];
        fscanf(fid,'%s \n',2);
        for j=1:number_of_bins
            temp=fscanf(fid,'%s \n',1);
            ray=[ray;str2num(temp)];
        end
        vel(:,i)=ray;
        ray=[];
        for j=1:number_of_bins
            temp=fscanf(fid,'%s \n',1);
            ray=[ray;str2num(temp)];
        end
        meanless(:,i)=ray;
        fscanf(fid,'%s \n',1);
    end
    fclose(fid);
    u_NaN=find(vel==-200);
    vel(u_NaN)=NaN;
    u_zeros=find(vel==0.0);
    meanless(u_zeros)=NaN;
    save(['C:\Documents and Settings\sylvie lorsolo\My Documents\research\fran\data\modified\original\',sweepfile(1:23),'_EV.dat'],'vel','az','-ascii')
    save(['C:\Documents and Settings\sylvie lorsolo\My Documents\research\fran\data\modified\meanless\',sweepfile(1:23),'_EV.dat'],'meanless','az','-ascii')

end
        
        
    
