pro eit_witness, Sector, wave, reflect
;+
; NAME:
; eit_witness
; PURPOSE:
; Return the product of the reflectivities of the
; primary & secondary witness mirrors
; CALLING SEQUENCE:
; eit_witness, 171, wave, reflect
; eit_witness, 195, wave, reflect
; eit_witness, 284, wave, reflect
; eit_witness, 304, wave, reflect
; INPUTS:
; Sector = 171, 195, 284 or 304
; OUTPUTS:
; wave = Vector of wavelengths
; reflect = Vector of reflectivities
; HISTORY:
; 5-Jun-95, J. R. Lemen and R. C. Catura, Written
;-
;rxxx is the product of reflectivities of the primary and secondary witnesss
;samples for the xxx A EIT quadrant. They have been scaled from graphs
;provided by IAS, but should be good to between 5 and 10 %.
;lxxx is the corresponding wavelength.
l304=[250,270,290,300,305,310,315,320,330,340,350,360,365,370,380,385,390,400]
r304=.0001*[2.4,9.5,70.,210.,310.,300.,210.,120.,22.,3.3,1.2,.25,.16,$
.21,.8,1.2,.93,.27]
l284=[200,205,210,213,215,220,230,240,250,260,270,280,283,290,300,310,$
315,320,325,330,335,340,345,350]
r284=.0001*[.022,.011,.027,.017,.026,.039,.085,.2,.7,4.5,31.,150.,180.,65.,$
.6,.055,.022,.012,.023,.031,.009,.014,.024,.04]
l195=[170,175,180,185,190,195,200,205,210,215,220]
r195=.0001*[.09,.62,4.,57.,370.,550.,310.,78.,32.,13.,11.]
l171=[160,165,170,172,174,176,178,180,182,184,186,188,190,192,194,196,198,$
200,205,210]
r171=.0001*[.21,2.2,57.,180.,380.,580.,750.,600.,400.,150.,50.,24.,9.,$
13.,14.,10.,7.5,5.3,3.,2.]
case Sector of
171: begin & wave = l171 & reflect = r171 & endcase
195: begin & wave = l195 & reflect = r195 & endcase
284: begin & wave = l284 & reflect = r284 & endcase
304: begin & wave = l304 & reflect = r304 & endcase
else: begin
on_error,1 ; Return to caller
message,'Invalid EIT sector specified'
endelse
endcase
end
Last revised: - Wed May 9 21:45:08 2007- F. Auchère