EIT Software Listings

anal

obsolete

response

util

Previous Routine

Next Routine

Listing of $SSW/soho/eit/idl/obsolete/plot_eit_response.pro

;+
;NAME:
;  plot_eit_response
;PURPOSE:
;  Plot the various EIT response parameters
;CALLING SEQUENCE:
;  .run plot_eit_response
;HISTORY:
;  10-Jun-95, J. R. Lemen (LPARL), Written.
;-

Text = ['Entrance Filter transmission']
Text = [Text,'Combined filter transmissions']
Text = [Text,'Mirror reflectivities']
Text = [Text,'Effective area (cm^2)']
Text = [Text,'Response curves (DN/s for EM=1.e44 cm-3)']
Text = [Text,'To Exit']

if n_elements(ans) eq 0 then ans = 0
if ans eq n_elements(Text)-1 then ans = 0
while ans ne n_elements(Text)-1 do begin
  print,' ' & print,'The following plots may be made:'
  for i=0,n_elements(text)-1 do print,i,'    ',text(i)
  input,'* Enter your selection', ans, ans, 0, n_elements(Text)-1

  hc = 0
  i=0
  repeat begin
    case ans of
      0: plot_eit_entrance,hc=hc
      1: plot_eit_filters, hc=hc
      2: plot_eit_mirror,  hc=hc,noverbose=hc
      3: plot_eit_area,    hc=hc,noverbose=hc
      4: plot_eit_flux,    hc=hc,noverbose=hc
      5: hc=1
    endcase
    if keyword_set(hc) then hc = 0 else $
      yesnox, '* Make a hardcopy of the plot', hc, 'N' 
  endrep until not keyword_set(hc)
endwhile				; ans ne n_elements(Text)-1

end

Last revised: - Wed May 9 21:45:09 2007- F. Auchère