!..include comorbit.h

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

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