PRO read_twin_blue, w, t, s

; define the wavelength scale
define_logw, 3853.4, 0.5561, 1991, w

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

read_frame, 'twin', '220502', 'PG1605_B0001', w, t, s
read_frame, 'twin', '220502', 'PG1605_B0002', w, t, s
read_frame, 'twin', '220502', 'PG1605_B0003', w, t, s
read_frame, 'twin', '220502', 'PG1605_B0004', w, t, s
read_frame, 'twin', '220502', 'PG1605_B0005', w, t, s
read_frame, 'twin', '220502', 'PG1605_B0007', w, t, s
read_frame, 'twin', '220502', 'PG1605_B0008', w, t, s
read_frame, 'twin', '220502', 'PG1605_B0009', w, t, s
read_frame, 'twin', '220502', 'PG1605_B0010', w, t, s
read_frame, 'twin', '220502', 'PG1605_B0012', w, t, s
read_frame, 'twin', '220502', 'PG1605_B0013', w, t, s
read_frame, 'twin', '220502', 'PG1605_B0014', w, t, s
read_frame, 'twin', '220502', 'PG1605_B0016', w, t, s
read_frame, 'twin', '220502', 'PG1605_B0017', w, t, s

read_frame, 'twin', '230502', 'PG1605_B0022', w, t, s
read_frame, 'twin', '230502', 'PG1605_B0023', w, t, s
read_frame, 'twin', '230502', 'PG1605_B0024', w, t, s
read_frame, 'twin', '230502', 'PG1605_B0026', w, t, s
read_frame, 'twin', '230502', 'PG1605_B0027', w, t, s
read_frame, 'twin', '230502', 'PG1605_B0030', w, t, s
read_frame, 'twin', '230502', 'PG1605_B0031', w, t, s
read_frame, 'twin', '230502', 'PG1605_B0032', w, t, s
read_frame, 'twin', '230502', 'PG1605_B0036', w, t, s
read_frame, 'twin', '230502', 'PG1605_B0037', w, t, s
read_frame, 'twin', '230502', 'PG1605_B0038', w, t, s
read_frame, 'twin', '230502', 'PG1605_B0041', w, t, s
read_frame, 'twin', '230502', 'PG1605_B0042', w, t, s
read_frame, 'twin', '230502', 'PG1605_B0045', w, t, s
read_frame, 'twin', '230502', 'PG1605_B0046', w, t, s
read_frame, 'twin', '230502', 'PG1605_B0047', w, t, s

END