;+
; NAME:
;	E1_DEFINE
; PURPOSE:
;	Define structures used to store HELIOS plasma data
; CALLING SEQUENCE:
;	E1_DEFINE
; COMMON BLOCKS: (shared with E1_READ only)
;	common E1_setup, gen, ndm, hdm1, hdm2
; PROCEDURE:
;   	The common block E1_setup passes the structure layout needed to read
;	the data files
; MODIFICATION HISTORY:
;	1992, Tom Davidson (UCSD)
;-

pro E1_DEFINE

common E1_setup, gen, ndm, hdm1, hdm2

GEN={GEN_STRUCT,         $		; Create the structure to store the data
   mSec		: '01234567', $
   seq		: ' ', $
   year		: 0B,  $
   DOY		: 0,   $
   Helios	: 0B,  $
   Mode		: 0B,  $
   BitRate	: 0,  $
   Format	: 0B,  $
   DisMod	: 0B,  $
   Shift	: 0B,  $
   AzShift	: 0B,  $
   I1A_3	: 0B,  $
   I2A_B	: 0B,  $

   SpinRate	: 0., $
   Pitch	: 0., $
   Aspect	: 0., $

   HelLngAsc	: 0., $
   HelDisSun	: 0., $
   HelVrad	: 0., $
   HelVnorm	: 0., $
   HelCarLng	: 0., $
   HelCarLat	: 0., $
   HelCarRot	: 0,  $

   EarDisSun	: 0., $
   EarCarLng	: 0., $
   EarCarLat	: 0., $
   EarCarRot	: 0,  $

   HSEangle 	: 0., $

   Vp_I1A   	: 0., $
   Tp_I1A   	: 0., $
   Np_I1A   	: 0., $
   AZp_I1A  	: 0., $
   ELp_I1A  	: 0., $

   Valpha  	: 0., $
   Talpha	: 0., $
   Nalpha	: 0., $

   ZeroRate_I1A	: 0., $

   Vp_I1B  	: 0., $
   Tp_I1B  	: 0., $
   Np_I1B  	: 0., $

   ZeroRate_I1B	: 0., $
   ZeroVar_I1B	: 0., $

   Bx   	: 0., $
   By   	: 0., $
   Bz   	: 0., $

   BxSig  	: 0., $
   BySig  	: 0., $
   BzSig  	: 0., $

   I1Aint  	: fltarr(5), $
   I1B  	: fltarr(5) $
}

NDM={NDM_STRUCT, $			; Used when GEN.Mode = 0
   mSec		: '        ', $		; Milli seconds on day
   seq		: ' ', $		; Sequence character 'B'
   Init		: lonarr(8),  $		; Initial data quality words
   Qw		: lonarr(5),  $		; Instrument quality words
   MaxEl	: 0B,  $		; Elevation index of max
   MaxAz	: 0B,  $		; Azimuth index of max
   MaxEn	: 0B,  $		; Energy index of max
   Mass		: 0B,  $		; Index MASS channel ?
   I1B		: fltarr(32), $
   I1Aint	: fltarr(32), $
   I2AB		: lonarr(8,16), $	; Electron data (instrument I2)
   I1A_3	: fltarr(5,5,9) $	; Proton data (instruments I1A and I3)
  }					; 1733 bytes

HDM1={HDM1_STRUCT,       $			; Used when GEN.Mode=1, GEN.Format=1,5
   mSec		: '01234567', $		; Milli seconds on day (Time of EDF 1)
   seq		: ' ', $		; Sequence character 'B'
   mSecE	: fltarr(3), $		; Times of EDF 2,3 and 4
   Init		: lonarr(8,4), $	; Initial data quality words
   Qw		: lonarr(5,4), $	; Instrument quality words
   MaxEl	: bytarr(4), $		; Elevation index of max
   MaxAz	: bytarr(4), $		; Azimuth index of max
   MaxEn	: bytarr(4), $		; Energy index of max
   Mass		: bytarr(4),$ 		; MASS channel
   I1B		: fltarr(32), $
   I1Aint	: fltarr(32), $
   I2AB		: lonarr(8,32), $	; Electron data (instrument I2)
   I1A_3	: fltarr(7,7,32) $
  }					; 7798 bytes

HDM2={HDM2_STRUCT,       $		; Used when GEN.Mode=1, GEN.Format=2,3
   mSec		: '01234567', $		; Milli seconds on day (Time of EDF 1)
   seq		: ' ', $		; Sequence character 'B'
   mSecE	: fltarr(3), $		; Times of EDF 2,3 and 4
   Init		: lonarr(8,4), $	; Initial data quality words
   Qw		: lonarr(5,4), $	; Instrument quality words
   MaxEl	: bytarr(4), $		; Elevation index of max
   MaxAz	: bytarr(4), $		; Azimuth index of max
   MaxEn	: bytarr(4), $		; Energy index of max
   Mass		: bytarr(4), $ 		; MASS channel
   I1B		: fltarr(32), $
   I1Aint	: fltarr(32), $
   I2AB		: lonarr(8,32), $	; Electron data (instrument I2)
   I1A_3	: fltarr(6,7,32) $
  }				  	; 7573 bytes

return  &  end