c-----------------------------------------------------------------------
c INCLUDE 'comorbit.h'

      COMMON/comorbit/aphelie,periheli,year_day,
     $       peri_day,timeperi,obliquit,
     $       e_elips,p_elips,unitastr,pi

      REAL aphelie,periheli,year_day,
     $  peri_day,timeperi,obliquit,
     $  e_elips,p_elips,unitastr,pi

c-----------------------------------------------------------------------