PRO read_data data=READ_ASCII('end_day.dat',COUNT=nrec,DELIMITER='=') openw,lun,'end_ddmmyy.dat',/GET_LUN for r=0,nrec-1 do begin CALDAT,data.FIELD1[1,r],mm,dd,yy print,dd,mm,yy,format='(3(1x,i4))' printf,lun,dd,',',mm,',',yy endfor close,lun END