PRO read_apo_red, w, t, s

; define the wavelength scale
define_logw, 6000, 1.17, 1200, w

; Initialise the data accumulation arrays
IF keyword_set(t) THEN t(0) = -1 

read_frame, 'apo', '140502', 'APO_0002R', w, t, s
read_frame, 'apo', '140502', 'APO_0005R', w, t, s
read_frame, 'apo', '140502', 'APO_0007R', w, t, s
read_frame, 'apo', '140502', 'APO_0011R', w, t, s
read_frame, 'apo', '140502', 'APO_0012R', w, t, s
read_frame, 'apo', '140502', 'APO_0013R', w, t, s
read_frame, 'apo', '140502', 'APO_0014R', w, t, s

;read_frame, 'apo', '150502', 'APO_0084R', w, t, s
;read_frame, 'apo', '150502', 'APO_0085R', w, t, s
;read_frame, 'apo', '150502', 'APO_0086R', w, t, s
;read_frame, 'apo', '150502', 'APO_0087R', w, t, s
;read_frame, 'apo', '150502', 'APO_0091R', w, t, s
;read_frame, 'apo', '150502', 'APO_0092R', w, t, s
;read_frame, 'apo', '150502', 'APO_0095R', w, t, s
;read_frame, 'apo', '150502', 'APO_0096R', w, t, s

;read_frame, 'apo', '180502', 'APO_0113R', w, t, s
;read_frame, 'apo', '180502', 'APO_0115R', w, t, s

END