;+
; A routine that returns the Del Zanna modified EIS effective area for
; a given observation time and wavelength. The result is in square cm.
;
; For details see
;   http://adsabs.harvard.edu/abs/2013A%26A...555A..47D
;
; For example,
;
; IDL> print,eis_ea_gdz('01-JAN-2012',195)
;      0.300727
;
; This routine is a wrapper to *eis_ltds* written by Giulio Del
; Zanna. See that routine for more details.
;
; :History:
;   27-AUG-2013: HPW : Documented version.  
;   10-OCT-2013: HPW : Added undecay keyword.
;
; $Id: eis_ea_gdz.pro 3060 2013-10-20 12:29:19Z hwarren $:
;-
function eis_ea_gdz,date,wave,undecay=undecay

  nWave  = n_elements(wave) 
  ea_out = fltarr(nWave)

  for i=0,nWave-1 do begin
    correction = eis_ltds(date,wave[i],effa_sw=effa_sw,effa_lw=effa_lw,lw_corr=lw_corr,$
                          undecay=undecay)
    ea_out[i]  = eis_ea(wave[i])/correction[0]
  endfor

  if nWave eq 1 then ea_out = ea_out[0]

return,ea_out
end