SUBROUTINE tri ( nelt, itab )
      USE numerics
      IMPLICIT NONE
      INTEGER,                      INTENT(IN)     ::  nelt
      INTEGER,  DIMENSION(1:nelt),  INTENT(INOUT)  ::  itab
      END SUBROUTINE tri