pro header_arh,filnam,recno,wave,rads,time,relhum,airtemp !path = '~/waynef/idl:'+!path close,1 ;filnam=' ' ;print,' Enter filename ' ;read,filnam ;print,' Enter number of records ' ;read,recno header=fltarr(100) openr,1,filnam,100,/fixed a = assoc(1,fltarr(100)) header=a(0) nwpr=header(35) wnf=header(33) wnl=header(34) dwn=header(32) close,1 openr,1,filnam,nwpr,/fixed a = assoc(1,fltarr(nwpr)) ; ; Find number of records ; recno=0 b=a(recno) while (eof(1) eq 0) do begin recno=recno+1 b=a(recno) endwhile recno=recno+1 rads=fltarr(nwpr-100,recno) wave=findgen(nwpr-100)*dwn + wnf time=fltarr(recno) relhum=fltarr(recno) airtemp=fltarr(recno) ; ; ; for i=0,recno-1 do begin temp=a(i) time(i)=temp(23) relhum(i)=temp(74) airtemp(i)=temp(72) rads(*,i)=temp(100:nwpr-1) endfor hour=long(time/10000) minute=long(time/100)-hour*100 second=time-minute*100.-hour*10000. time=hour+minute/60.+second/3600. relhum=relhum/100. airtemp=airtemp/100. end