module comsaison_h

       implicit none

!       integer,save :: isaison
!       logical,save :: callsais
!!$OMP THREADPRIVATE(isaison,callsais)

       real,save :: dist_star   ! Distance Star-Planet in UA
       real,save :: declin      ! Solar declination (rad)
       real,save :: right_ascen ! Right ascension (rad)
!$OMP THREADPRIVATE(dist_star,declin,right_ascen)

       real, allocatable, dimension(:) :: mu0,fract
!$OMP THREADPRIVATE(mu0,fract)

       end module comsaison_h