SUBROUTINE  domaine( comm3d )
      USE numerics
      IMPLICIT  NONE
      INTEGER,  INTENT(IN)    ::  comm3d
      END  SUBROUTINE  domaine