file=pickfile(path='../uwsfc/') data=ddread(file,delimiter=',') recno=n_elements(data)/9 new_data=data(*,0:recno-2) recno=n_elements(new_data)/9 result=where(data(7,*) eq data(7,0)) dummy=fix(new_data(0,*)) julian=fix(new_data(7,*)) time=fix(new_data(8,*)) year=fix(new_data(6,*)) temperature=new_data(2,*)-4.8 openw, 1, file+'_new' for j=0, recno-1 do printf,1,dummy(j),new_data(1,j),temperature(0,j),$ new_data(3,j),new_data(4,j),new_data(5,j),year(0,j),julian(0,j),time(0,j),$ Format='(i3,:,",",f6.1,",",f5.2,",",f4.1,",",f5.2,",",f5.1,",",i4,",",i3,",",i4)' close, 1 end