C+
C NAME:
C	e1_hos	
C PURPOSE:
C	Define data structures for Helios plasma experiment E1
C OUTPUTS:
C	L_OUT	integer*4	(defined in data statement)
C		Maximum record length (in 4 byte words) allowed for the
C		universal files. This number must be large enough to contain
C		the data structure HDM1 (the largest of the four structures).
C	CSEQ(2) character*1	(defined in character statement)
C		CSEQ(1) = 'A' is used to identify the parameter structure GEN
C		CSEQ(2) = 'B' is used to identify the raw data structures 
C CALLING SEQUENCE:
C	include		'e1_hos.h'
C COMMON BLOCKS:
C	common	/ALL/	GEN
C	common	/ALL0/	NDM
C	common	/ALL1/	HDM1
C	common	/ALL2/	HDM2
C PROCEDURE:
C	Structure GEN is updated by:
C	CLR_GEN		clears all entries
C	MK_GEN		fills the structure with data read from 1 dim. parameter tape
C	FAKE_GEN	fills the structure with data read from Sorted Data tape
C	MK_NDM		only GEN.I2A_B and GEN.AzShift entries
C	MK_HDM1		only GEN.AzShift entry
C	MK_HDM2		only GEN.AzShift entry
C
C	Structure NDM  is updated by:	MK_NDM
C	Structure HDM1 is updated by:	MK_HDM1
C	Structure HDM2 is updated by:	MK_HDM2
C MODIFICATION HISTORY:
C	FEB/MAR-1992, Rainer Schwenn (MPAE)/Paul Hick (UCSD)
C-
	structure /GEN_STRUCT/
	    character*8	mSec		! Milli seconds on day
	    character*1 seq		! Sequence character 'A'

	    byte	Year		! Year-1900  e.g. 74
	    integer*2	DOY		! Day of year

	    byte	Helios		! S/C ID (1 or 2)
	    byte	Mode		! 0=NDM,1=HDM1;10=NDM,11=HDM; >10 = no raw data
	    integer*2	BitRate		! Bitrate (bps)
	    byte	Format		! Format (0,..,6)
	    byte	DisMod		! Distribution mode (0,...,7)
	    byte	Shift		! 0=No shift, 1=Shift
	    byte	AzShift		! Azimuth shift (0=No shift,1=Shift)
	    byte	I1A_3		! 1=I1A on; 2=I3 on; 0=both off
	    byte	I2A_B		! 1=I2A on; 2=I2B on

	    real*4	SpinRate	! Average spin rate (1/s)
	    real*4	Pitch		! Pitch angle (deg)
	    real*4	Aspect		! Solar aspect angle (deg)

	    real*4	HelLngAsc	! Heliographic longitude (from ascending node)
	    real*4	HelDisSun	! Distance Helios - Sun (AU)
	    real*4	HelVrad		! Radial velocity Helios (AU/day)
	    real*4	HelVnorm	! Normal velocity Helios (AU/day)
	    real*4	HelCarLng	! Carrington longitude Helios
	    real*4	HelCarLat	! Heliographic latitude
	    integer*2	HelCarRot	! Carrington rotation number Helios

	    real*4	EarDisSun	! Distance Earth - Sun (AU)
	    real*4	EarCarLng	! Carrington longitude Helios
	    real*4	EarCarLat	! Heliographic latitude Earth
	    integer*2	EarCarRot	! Carrington rotation number Helios

	    real*4	HSEangle	! Helios-Sun-Earth angle

	    real*4	Vp_I1A		! Proton velocity (km/s)
	    real*4	Tp_I1A		! Proton temperature (K)
	    real*4	Np_I1A		! Proton density (cm^-3)
	    real*4	AZp_I1A		! Azimuth of flow angle (deg)
	    real*4	ELp_I1A		! Elevation of flow angle (deg)

	    real*4	Valpha		! Helium velocity (km/s)
	    real*4	Talpha		! Helium temperature (K)
	    real*4	Nalpha		! Helium density (cm^-3)

	    real*4	ZeroRate_I1A	! Average zero count rate

	    real*4	Vp_I1B		! Proton velocity (km/s)
	    real*4	Tp_I1B		! Proton temperature (K)
	    real*4	Np_I1B		! Proton density (cm^-3)

	    real*4	ZeroRate_I1B	! Average zero count rate
	    real*4	ZeroVar_I1B	! Variation of zero count rate

	    real*4	Bx		! X-comp magnetic field (.01 Gamma)
	    real*4	By		! Y-comp magnetic field (.01 Gamma)
	    real*4	Bz		! Z-comp magnetic field (.01 Gamma)

	    real*4	BxSig		! Sigma X-comp magnetic field (.01 Gamma)
	    real*4	BySig		! Sigma Y-comp magnetic field (.01 Gamma)
	    real*4	BzSig		! Sigma Z-comp magnetic field (.01 Gamma)

	    real*4	I1Aint(5)	! Finger print for raw data (from ...
	    real*4	I1B(5)		! .. 1 dim. parameter tape)

	end structure			! 198 bytes

	structure /NDM_STRUCT/		! Used when GEN.Mode = 0
	    character*8	mSec		! Milli seconds on day
	    character*1 seq		! Sequence character 'B'
	    integer*4	Init(8)		! Initial data quality words
	    integer*4	Qw(5)		! Instrument quality words
	    byte	MaxEl		! Elevation index of max
	    byte	MaxAz		! Azimuth index of max
	    byte	MaxEn		! Energy index of max
	    byte	Mass		! Index MASS channel ?
	    real*4	I1B(32)
	    real*4	I1Aint(32)
	    integer*4	I2AB(8,16)	! Electron data (instrument I2)
	    real*4	I1A_3(5,5,9)	! Proton data (instruments I1A and I3)
	end structure			! 1733 bytes

	structure /HDM1_STRUCT/		! Used when GEN.Mode=1, GEN.Format=1,5
	    character*8	mSec		! Milli seconds on day (Time of EDF 1)
	    character*1 seq		! Sequence character 'B'
	    integer*4	mSecE(2:4)	! Times of EDF 2,3 and 4
	    integer*4	Init(8,4)	! Initial data quality words
	    integer*4	Qw(5,4)		! Instrument quality words
	    byte	MaxEl(4)	! Elevation index of max
	    byte	MaxAz(4)	! Azimuth index of max
	    byte	MaxEn(4)	! Energy index of max
	    byte	Mass(4)		! MASS channel
	    real*4	I1B(32)
	    real*4	I1Aint(32)
	    integer*4	I2AB(8,32)	! Electron data (instrument I2)
	    real*4	I1A_3(7,7,32)
	end structure			! 7798 bytes

	structure /HDM2_STRUCT/		! Used when GEN.Mode=1, GEN.Format=2,3
	    character*8	mSec		! Milli seconds on day (Time of EDF 1)
	    character*1 seq		! Sequence character 'B'
	    integer*4	mSecE(2:4)	! Times of EDF 2,3 and 4
	    integer*4	Init(8,4)	! Initial data quality words
	    integer*4	Qw(5,4)		! Instrument quality words
	    byte	MaxEl(4)	! Elevation index of max
	    byte	MaxAz(4)	! Azimuth index of max
	    byte	MaxEn(4)	! Energy index of max
	    byte	Mass(4)		! MASS channel
	    real*4	I1B(32)
	    real*4	I1Aint(32)
	    integer*4	I2AB(8,32)	! Electron data (instrument I2)
	    real*4	I1A_3(6,7,32)
	end structure			! 7573 bytes

	record /GEN_STRUCT/	GEN
	record /NDM_STRUCT/	NDM
	record /HDM1_STRUCT/	HDM1
	record /HDM2_STRUCT/	HDM2

	common	/ALL/	GEN
	common	/ALL0/	NDM
	common	/ALL1/	HDM1
	common	/ALL2/	HDM2

	data		L_OUT	/1950/		! Max record length
	character	CSEQ(2)*1 /'A','B'/,
     &			KEY_MSEC*9