SUBROUTINE  domaine(  nbdims,  dims,  coords  )
      USE numerics
      IMPLICIT  NONE
      INTEGER,                        INTENT(IN)   ::  nbdims
      INTEGER,  DIMENSION(1:nbdims),  INTENT(IN)   ::  dims
      INTEGER,  DIMENSION(1:nbdims),  INTENT(IN)   ::  coords
      END  SUBROUTINE  domaine