PRO read_twin_red, w, t, s

; define the wavelength scale
define_logw, 5786.76, 0.5548, 1981, w

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

read_frame, 'twin', '220502', 'PG1605_R0001', w, t, s
read_frame, 'twin', '220502', 'PG1605_R0002', w, t, s
read_frame, 'twin', '220502', 'PG1605_R0003', w, t, s
read_frame, 'twin', '220502', 'PG1605_R0004', w, t, s
read_frame, 'twin', '220502', 'PG1605_R0005', w, t, s
read_frame, 'twin', '220502', 'PG1605_R0006', w, t, s
read_frame, 'twin', '220502', 'PG1605_R0007', w, t, s
read_frame, 'twin', '220502', 'PG1605_R0008', w, t, s
read_frame, 'twin', '220502', 'PG1605_R0009', w, t, s
read_frame, 'twin', '220502', 'PG1605_R0010', w, t, s
read_frame, 'twin', '220502', 'PG1605_R0012', w, t, s
read_frame, 'twin', '220502', 'PG1605_R0013', w, t, s
read_frame, 'twin', '220502', 'PG1605_R0014', w, t, s
read_frame, 'twin', '220502', 'PG1605_R0016', w, t, s
read_frame, 'twin', '220502', 'PG1605_R0017', w, t, s
read_frame, 'twin', '220502', 'PG1605_R0018', w, t, s

read_frame, 'twin', '230502', 'PG1605_R0022', w, t, s
read_frame, 'twin', '230502', 'PG1605_R0023', w, t, s
read_frame, 'twin', '230502', 'PG1605_R0024', w, t, s
read_frame, 'twin', '230502', 'PG1605_R0026', w, t, s
read_frame, 'twin', '230502', 'PG1605_R0027', w, t, s
  ;; read_frame, 'twin', '230502', 'PG1605_R0028', w, t, s  ;; slow drift
read_frame, 'twin', '230502', 'PG1605_R0030', w, t, s
read_frame, 'twin', '230502', 'PG1605_R0031', w, t, s
read_frame, 'twin', '230502', 'PG1605_R0032', w, t, s
read_frame, 'twin', '230502', 'PG1605_R0036', w, t, s
read_frame, 'twin', '230502', 'PG1605_R0037', w, t, s
read_frame, 'twin', '230502', 'PG1605_R0038', w, t, s
read_frame, 'twin', '230502', 'PG1605_R0041', w, t, s
read_frame, 'twin', '230502', 'PG1605_R0042', w, t, s
read_frame, 'twin', '230502', 'PG1605_R0043', w, t, s
read_frame, 'twin', '230502', 'PG1605_R0045', w, t, s

END