for i=22:251
   name=sprintf('1999%g',i)
   
   if i<100
      daycor=sprintf('0%g',i)
      name = sprintf('1999%s',daycor)
   end
      
   
   forj=304:534
   
   if j<367
      day=j
      yer=2000
   else
      day=j-366
      yer=2001
   end
   name2=sprintf('%g%g',yer,day);
   	
   dirn=sprintf('I:\\eqpac\\deployments\\200010\\TempExtract\\ep22001\\specprr\\%s',name2);
   fid=fopen(name);
   
   fid2=fopen(dirn,'wt');
   A=fscanf(fid,'%f',[52 inf]);
   fclose(fid);
   A(1,:)=((A(1,:)-floor(A(1,:)))+j)+.7319
   fprintf(fid2,' %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f %2.6f \n',A(:));
   fclose(fid2);
   clear A;
end;

   