! CPHYS
      COMMON / CPHYS /  VLIGHT, GRAVCT, GAUSS, GMSUN, &
     &                  GMMOON, SECPAU, REARTH, EFLAT, EMRATO, &
     &                  GAMMA,  GMEARTH, VLIGHT2, VLIGHT3, &
     &                  GMPLANET, AU_meters
      REAL*8            VLIGHT, GRAVCT, GAUSS, GMSUN, &
     &                  GMMOON, SECPAU, REARTH, EFLAT, EMRATO, &
     &                  GAMMA,  GMEARTH, VLIGHT2, VLIGHT3, &
     &                  GMPLANET(7), AU_meters