C S3INVE    SOURCE    CHAT      05/01/13    03:10:45     5004
C
C
      SUBROUTINE S3INVE( N, ITRNOE, ITRTRI )
C     ************************************************************
C     OBJET :  INVERSE L'ORIENTATION D'UN ELEMENT 3D
C
C     EN ENTREE:
C      N      :  (2..4) NOMBRE DE NOEUDS DE L'ELEMENT
C      ITRNOE:  LES NOEUDS DU TRIANGLES
C      ITRTRI:  LES VOISINS DU TRIANGLES
C     EN SORTIE:
C      ITRTRI :  MIS A JOUR
C      ITRNOE :  MIS A JOUR
C     CONDITION D'APPLICATION : TETRAEDRE
C
C     REMARQUE : PERMUTER LES NOEUDS (I,J) REVIENT A PERMUTER LES
C                FACE (I,J) ET A INVERSER LE SENS DE TOUTES LES
C                FACES
C     ************************************************************
      IMPLICIT INTEGER(I-N)
      INTEGER   N, ITRNOE(N), ITRTRI(N)
C
      INTEGER   ITRNO1, ITRTR1
C
      IF( N.EQ.4 )THEN
          ITRNO1 = ITRNOE(3)
          ITRNOE(3) = ITRNOE(2)
          ITRNOE(2) = ITRNO1
          ITRTR1 = ITRTRI(3)
          ITRTRI(3) = ITRTRI(2)
          ITRTRI(2) = ITRTR1
      ENDIF
      END