;====================================================================
;
;                          EXELECINFO.PRO
;  Example of interface level 2 to ELECTRON constant informatin
;
;  A.Fedorov, Oct., 30, 1998
;====================================================================
;
; The Instrument has 12 modes. So each array of constant information has
; a sige = 12 on last dimension.

   E= dblarr(32,12)           ; Values of energy steps depending on Mode
   Ebound = dblarr(33,12)     ; Values of energy steps bounds depending on Mode.
                              ; Used for graphical purposes only.
   DelT = dblarr(12)          ; The time whole spectra accumulation. Used for
                              ; graphical purposes only.
   AccT = dblarr(12)          ; The exposition time of one step depending on Mode

   ID = long(-1)              ; Electron DataBase ID. Set -1 to open DataBase. 
               
   DDLIB = getenv('DDLIB')    ; Get environment variable to find right path
                              ; to procedure 
                
; Receiving the data. Funcion returns negative error ID in case of mistake.
      
err = call_external(DDLIB+'getelec.so','GetInfo', $
                     ID,                          $
                     E,                           $
                     Ebound,                      $
                     DelT,                        $
                     AccT)

; Close the DataBase

   error = call_external(DDLIB+'DD_idl.so','CloseID',ID)
   
; Printing the Energies for Mode 8 

  print, 'Energies of Mode 0 : ',E(*,8)     
   
  end
;==============================================================================