C+
C NAME:
C	e9_hos
C PURPOSE:
C	Defines data structures to handle Helios photometer data
C RESTRICTIONS:
C	Many of the binary Helios file were created on an old VMS VAX, which
C	did not automatically align structures. However, most Fortran compilers
C	will align structures by default. This default behavior must be suppressed
C	when this include files is used. An additional problem that g77 on Linux
C	does not support structures.
C
C	There are functions available to read/write Helios photometer data that do
C	not need these structures (Fortran=HOSRead=, Fortran=HOSWrite=), and will
C	work on VMS, Windows and Linux. These are now the preferred way to read/write
C	photometer data.
C PROCEDURE:
C-
	structure /DATA_STRUCT/
	    real*4     TIME        !Day of year
	    integer*2  PHOTOM      !16 or 31 degree photometer
	    integer*2  COLOR       !+100 if not NODATted
	    integer*2  FILTER      !Filter wheel setting
	    real*4     DISTANCE    !Distance of spacecraft from Sun (AU)
	    real*4     POSITION    !Position of spacecraft w.r.t Sun
	    real*4     INTENS(32)  !Intensities in the 32 sectors
	end structure

	structure /CORE_STRUCT/
	    real*4     TIME        !Day of year
	    integer*2  PHOTOM      !16 or 31 degree photometer
	    integer*2  COLOR       !+100 if not NODATted
	    integer*2  FILTER      !Filter wheel setting
	    real*4     DISTANCE    !Distance of spacecraft from Sun (AU)
	    real*4     POSITION    !Position of spacecraft w.r.t Sun
	end structure 

	structure /DEG90_STRUCT/
	    real*4     TIME        !Day of year
	    integer*2  PHOTOM      !90 degree photometer
	    integer*2  COLOR       !+100 if not NODATted
	    real*4     DISTANCE    !Distance of spacecraft from Sun (AU)
	    real*4     POSITION    !Position of spacecraft w.r.t Sun
	    real*4     INTENS      !Intensity
	    real*4     POLARIZ     !Polarization
	end structure

	record /DATA_STRUCT/ PHOTO_DATA
	record /CORE_STRUCT/ CORE_DATA
	record /DEG90_STRUCT/ DEG90_DATA