!
! common specifique a chaque thread
!
       COMMON / comthd / mythd, kmin, kmax
!$OMP THREADPRIVATE ( /comthd/ )
!
       INTEGER  ::  mythd
       INTEGER  ::  kmin, kmax
!