
!         CONSTANTS include file
!         Astrophysical and other constants

       DOUBLE PRECISION RSUN, MSUN, LSUN, ASUN,VSUN

       PARAMETER (RSUN = 6.9599D08)
       PARAMETER (MSUN = 1.989D30)
       PARAMETER (LSUN = 3.826D26)
       PARAMETER (ASUN = 3.6311D19)
       PARAMETER (VSUN = 1.4122D27)

!

       DOUBLE PRECISION DAYSEC, KPC

       PARAMETER (DAYSEC = 24.D0 * 3600.D0)
       PARAMETER (KPC = 3.085678D+19)

!

       DOUBLE PRECISION BIGG, CLIGHT, BSIGMA

       PARAMETER (BIGG = 6.67D-11)
       PARAMETER (CLIGHT = 2.997925D8)
       PARAMETER (BSIGMA = 5.66956D-08)

!         CONSTANTS end include

