!
! common specifique a chaque thread
!
       COMMON / comthd / mythd, sx, ex, sy, ey, sz, ez
!                        nbdims, dims, periods, coords, &
!                        NB_VOISINS, voisin, N, E, S, W, AV, AR
!
!$OMP THREADPRIVATE ( /comthd/ )
!
!
      INTEGER  ::  mythd
!
      INTEGER  ::  sx,  sy,  sz
      INTEGER  ::  ex,  ey,  ez
!
!     INTEGER,  PARAMETER  ::  nbdims = 3
!     INTEGER,  DIMENSION(1:nbdims)  ::  dims
!     LOGICAL,  DIMENSION(1:nbdims)  ::  periods
!     INTEGER,  DIMENSION(1:nbdims)  ::  coords
!
!     INTEGER,  PARAMETER                  ::  NB_VOISINS  =  6
!
!     INTEGER,  DIMENSION(NB_VOISINS)      ::  voisin
!     INTEGER,  PARAMETER                  ::  N=1,  E=2,   S=3
!     INTEGER,  PARAMETER                  ::  W=4,  AV=5,  AR=6
!