SUBROUTINE  voisinage(  comm3d,  voisin  )
      USE MPI
      USE numerics
      IMPLICIT  NONE
      INTEGER,  PARAMETER              ::  NB_VOISINS  =  6
      INTEGER,  PARAMETER              ::  N=1,  E=2,   S=3
      INTEGER,  PARAMETER              ::  W=4,  AV=5,  AR=6
      INTEGER,  DIMENSION(NB_VOISINS),  INTENT(OUT)  ::  voisin
      INTEGER,  INTENT(IN)  ::  comm3d
      END  SUBROUTINE  voisinage