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