C+
C NAME:
C	hos_e9
C PURPOSE:
C	Parameter constant for manipulating Helios photometer data
C PROCEDURE:
C-
	integer		 HOS__NULL
	parameter	(HOS__NULL	=      0)		! Used by iHOSRead to read record specified in arg iR

	integer		 HOS__AA
	parameter	(HOS__AA	=      1)		! Bit 0
	integer		 HOS__BB
	parameter	(HOS__BB	=      2)		! Bit 1

	integer		 HOS__OS_VMS
	parameter	(HOS__OS_VMS	=      4)		! Bit 2
	integer		 HOS__OS_DOS
	parameter	(HOS__OS_DOS	=      8)		! Bit 3
	integer		 HOS__OS_UNIX
	parameter	(HOS__OS_UNIX	=     16)		! Bit 4

	integer		 HOS__P_1
	parameter	(HOS__P_1	=     32)		! Bit 5
	integer		 HOS__P_2
	parameter	(HOS__P_2	=     64)		! Bit 6
	integer		 HOS__P_3
	parameter	(HOS__P_3	=    128)		! Bit 7

	integer		 HOS__C_1
	parameter	(HOS__C_1	=    256)		! Bit 8
	integer		 HOS__C_2
	parameter	(HOS__C_2	=    512)		! Bit 9
	integer		 HOS__C_3
	parameter	(HOS__C_3	=   1024)		! Bit 10

	integer		 HOS__F_1
	parameter	(HOS__F_1	=   2048)		! Bit 11
	integer		 HOS__F_2
	parameter	(HOS__F_2	=   4096)		! Bit 12
	integer		 HOS__F_3
	parameter	(HOS__F_3	=   8192)		! Bit 13
	integer		 HOS__F_4
	parameter	(HOS__F_4	=  16384)		! Bit 14
	integer		 HOS__F_5
	parameter	(HOS__F_5	=  32768)		! Bit 15

	integer		 HOS__NONORM
	parameter	(HOS__NONORM	=  65536)		! Bit 16

	integer		 HOS__NOT
	parameter	(HOS__NOT	= 131072)		! Bit 17

	integer		 HOS__SWAP_SECT
	parameter	(HOS__SWAP_SECT	= 262144)		! Bit 18

	integer		 HOS__SINGLE
	parameter	(HOS__SINGLE	= 524288)		! Bit 19

	integer		 HOS__AB
	parameter	(HOS__AB	= HOS__AA+HOS__BB)

	integer		 HOS__P_12
	parameter	(HOS__P_12	= HOS__P_1+HOS__P_2)
	integer		 HOS__P_13
	parameter	(HOS__P_13	= HOS__P_1+HOS__P_3)
	integer		 HOS__P_23
	parameter	(HOS__P_23	= HOS__P_2+HOS__P_3)
	integer		 HOS__P_123
	parameter	(HOS__P_123	= HOS__P_1+HOS__P_2+HOS__P_3)
	integer		 HOS__P_ALL
	parameter	(HOS__P_ALL	= HOS__P_123)

	integer		 HOS__C_12
	parameter	(HOS__C_12	= HOS__C_1+HOS__C_2)
	integer		 HOS__C_13
	parameter	(HOS__C_13	= HOS__C_1+HOS__C_3)
	integer		 HOS__C_23
	parameter	(HOS__C_23	= HOS__C_2+HOS__C_3)
	integer		 HOS__C_123
	parameter	(HOS__C_123	= HOS__C_1+HOS__C_2+HOS__C_3)
	integer		 HOS__C_ALL
	parameter	(HOS__C_ALL	= HOS__C_123)

	integer		 HOS__C_U
	parameter	(HOS__C_U	= HOS__C_1)
	integer		 HOS__C_B
	parameter	(HOS__C_B	= HOS__C_2)
	integer		 HOS__C_V
	parameter	(HOS__C_V	= HOS__C_3)
	integer		 HOS__C_UB
	parameter	(HOS__C_UB	= HOS__C_U+HOS__C_B)
	integer		 HOS__C_UV
	parameter	(HOS__C_UV	= HOS__C_U+HOS__C_V)
	integer		 HOS__C_BV
	parameter	(HOS__C_BV	= HOS__C_B+HOS__C_V)
	integer		 HOS__C_UBV
	parameter	(HOS__C_UBV	= HOS__C_U+HOS__C_B+HOS__C_V)

	integer		 HOS__F_POL
	parameter	(HOS__F_POL	= HOS__F_1+HOS__F_2+HOS__F_3)
	integer		 HOS__F_CLR
	parameter	(HOS__F_CLR	= HOS__F_4)
	integer		 HOS__F_PB
	parameter	(HOS__F_PB	= HOS__F_5)
	integer		 HOS__F_CLRPB
	parameter	(HOS__F_CLRPB	= HOS__F_CLR+HOS__F_PB)
	integer		 HOS__F_ALL
	parameter	(HOS__F_ALL	= HOS__F_1+HOS__F_2+HOS__F_3+HOS__F_4+HOS__F_5)

	integer		 HOS__PCF_ALL
	parameter	(HOS__PCF_ALL	= HOS__P_ALL+HOS__C_ALL+HOS__F_ALL)

	integer		 HOS__OS_ALL
	parameter	(HOS__OS_ALL	= HOS__OS_VMS+HOS__OS_DOS+HOS__OS_UNIX)