C+
C NAME:
C	sun
C PURPOSE:
C	Defines parameter constants for various solar constants
C-
	double precision SUN__AU
	parameter	(SUN__AU = 1.4959787061d0)! Astronomical unit	10^13 cm

	double precision SUN__I
	parameter	(SUN__I = 7.25d0)	! Angle solar rotation axis to ecliptic (degrees)

	double precision SUN__M
	parameter	(SUN__M = 1.9891d0)	! Solar mass		10^33 gr

	double precision SUN__GM
	parameter	(SUN__GM= 1.32712438d0)	! Grav const x Mass Sun 10^26 cm^3 s^-2

	double precision SUN__MJDtoJD
	parameter	(SUN__MJDtoJD = 2400000.5d0)  ! Conversion MJD to JD

	double precision SUN__OMEGA
	parameter	(SUN__OMEGA = 2.865d0)	! Ang. velocity Sun	10^-6 rad/s

	double precision SUN__R
	parameter	(SUN__R	= 6.9599d0)	! Solar radius		10^10 cm

	double precision SUN__RAU
	parameter	(SUN__RAU= 0.004652406d0)! Solar radius		AU

	double precision SUN__SYNODICP
	parameter	(SUN__SYNODICP = 27.2753d0)! Synodic rot. period	days

	double precision SUN__SIDEREALP
	parameter	(SUN__SIDEREALP = 25.38d0) ! Sidereal rot. period	days

	double precision SUN__SPIRAL
	parameter	(SUN__SPIRAL = 68.2134744988644d0)! Fractional rotation*(km/s)/AU: (50*SUN__AU*SUN__Omega)/MATH__Pi