PRO iniqlfil,qlunits

; This procedure opens all file units needed to hold quick-look
; data for a day of Polar Camera observations.  The logical unit
; numbers are returned in the 'qlunits' array.  Files are opened
; for all ten camera/filter combinations, even though not all
; combinations were used.  The files are not date-specific at this
; point, since they may need to be concatenated with other files
; for the same date.

; Set up OS-specific items
@isitdos

qlunits=INTARR(10)

CD,qlroot

FOR ic=0,1 DO $
    FOR ifilt=0,4 DO BEGIN
	fn=STRING(ic,ifilt,FORMAT='("tmp",2I1,".ql")')
	OPENW,qlu,fn,/GET_LUN
	qlunits(5*ic+ifilt)=qlu
	ENDFOR

CD,root
RETURN
END