function eit_temp_resp,wave,pressure=pressure,temp=temp
;
; +
; NAME:
; eit_temp_resp
; PURPOSE
; Compute EIT temperature response (EM=1.e26 cm^-5) for each filter
; Useful on its own as well an example of calling EIT_FLUX
; CALLING SEQUENCE:
; response = eit_temp_resp(wavelngth,pressure=pressure,temp=temp)
; INPUT:
; wavelength
; pressure (used only for level population calculations - not
; sensitive to this)
; OUTPUT:
; response
; temperature array
; HISTORY
; created 8-Dec-1997 J. Newmark
; 1999-May-11 J. Newmark New data file
; -
defsysv,'!xuvtop',exist=yes_chianti
if not yes_chianti then ssw_packages,/chianti,/prepend
if n_elements(pressure) eq 0 then pressure = 1.e15
;specs = [1e8,5e8,1e9,5e9,1e10,5e10,1e11]
;spec_choice = where(specs eq eldens)
restore,concat_dir(getenv('SSW_EIT_RESPONSE'),'chianti_spec.save')
;stat = execute("inspec = "+ 'spec'+strtrim(spec_choice(0),2))
response = eit_flux(wave,temp,pressure=pressure,dem_name='unit',inspec=spec0,$
inwave=waves)
return,response
end
Last revised: - Wed May 9 21:45:04 2007- F. Auchère