Документ взят из кэша поисковой машины. Адрес оригинального документа : http://star.arm.ac.uk/~csj/idl/MSST/read_apo_red.pro Дата изменения: Fri Jul 9 12:20:45 2004 Дата индексирования: Sun Apr 10 05:50:18 2016 Кодировка: Поисковые слова: закон вина

PRO read_apo_red, w, t, s

; define the wavelength scale
; define_logw, 6000, 1.17, 1200, w
define_logw, 6000, 7000, 1000, 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 ;; bright moon
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