C+
C NAME:
C	thomson
C PURPOSE:
C	Defines several constants used by the Thomson scattering package
C-
	integer		 HOS__U
	parameter	(HOS__U = 1)
	integer		 HOS__B
	parameter	(HOS__B = 2)
	integer		 HOS__V
	parameter	(HOS__V = 3)

	real		 LOS__TINYELO
	parameter	(LOS__TINYELO = 2.)	! Small elongation (degrees)

	real		 LOS__PINF
	parameter	(LOS__PINF = 9000.)	! ~ 40 AU (Pluto)
	!parameter	(LOS__PINF = 1100.)	! ~  5 AU (Jupiter)