 yer1=1999;
for i=22:251
   j=i+282;
   
   if j<=366
      day=j;
      yer=2000;
   else
      day=j-366;
      yer=2001;
   end;
   
   if day<10
   	name2=sprintf('%g00%g',yer,day);
	end;
   
   if day< 100& day >9
      name2=sprintf('%g0%g',yer,day);
   end;
   
	if day>=100 
      name2=sprintf('%g%g',yer,day);
   end;
   
   if i<100
      name1=sprintf('%g0%g',yer1,i);
   else
      name1=sprintf('%g%g',yer1,i);
   end;
   
   
   
   old=sprintf('I:\\eqpac\\deployments\\200010\\Fall\\ep2\\TimeCor\\%s',name1);
   new=sprintf('I:\\eqpac\\deployments\\200010\\Fall\\ep2\\TimeCor\\%s',name2);
   fid=fopen(old);
   
   fid2=fopen(new,'wt');
   A=fscanf(fid,'%f',[52 inf]);
   fclose(fid);
   A(1,:)=((A(1,:)-floor(A(1,:)))+day)+.7139;
   A=A';
   A=sortrows(A,[1]);
   A=A';
   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;

Ep2TimeCorFinish

   