C 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