C+
C NAME:
C	planet
C PURPOSE:
C	Parameters for several planets and Moon
C CATEGORY:
C	gen/for/h
C CALLING SEQUENCE:
C	include 'planet.h'
C MODIFICATION HISTORY:
C	MAY-2006, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	double precision PLANET__REARTH_EQUATOR
	parameter	(PLANET__REARTH_EQUATOR = 6378.136d0)	! in km

	double precision PLANET__REARTH_POLAR
	parameter	(PLANET__REARTH_POLAR = 6356.753d0)	! in km

	double precision PLANET__REARTH_MEAN
	parameter	(PLANET__REARTH_MEAN = 6371.000d0)	! in km

	double precision PLANET__RMOON
	parameter	(PLANET__RMOON = 1738.2d0)		! in km

	double precision PLANET__EARTH_MOON_MASS_RATIO
	parameter	(PLANET__EARTH_MOON_MASS_RATIO = 81.36d0)! 81.301d0

	double precision PLANET__EARTH_JULIAN_YEAR
	parameter	(PLANET__EARTH_JULIAN_YEAR = 365.25d0)	! in days