Esope source files

   1 : C S3INVE    SOURCE    CHAT      05/01/13    03:10:45     5004           
   2 : C
   3 : C
   4 :       SUBROUTINE S3INVE( N, ITRNOE, ITRTRI )
   5 : C     ************************************************************
   6 : C     OBJET :  INVERSE L'ORIENTATION D'UN ELEMENT 3D
   7 : C         
   8 : C     EN ENTREE:
   9 : C      N      :  (2..4) NOMBRE DE NOEUDS DE L'ELEMENT 
  10 : C      ITRNOE:  LES NOEUDS DU TRIANGLES
  11 : C      ITRTRI:  LES VOISINS DU TRIANGLES
  12 : C     EN SORTIE: 
  13 : C      ITRTRI :  MIS A JOUR
  14 : C      ITRNOE :  MIS A JOUR
  15 : C     CONDITION D'APPLICATION : TETRAEDRE
  16 : C
  17 : C     REMARQUE : PERMUTER LES NOEUDS (I,J) REVIENT A PERMUTER LES
  18 : C                FACE (I,J) ET A INVERSER LE SENS DE TOUTES LES 
  19 : C                FACES
  20 : C     ************************************************************
  21 :       IMPLICIT INTEGER(I-N)
  22 :       INTEGER   N, ITRNOE(N), ITRTRI(N)
  23 : C     
  24 :       INTEGER   ITRNO1, ITRTR1
  25 : C
  26 :       IF( N.EQ.4 )THEN
  27 :           ITRNO1 = ITRNOE(3)
  28 :           ITRNOE(3) = ITRNOE(2)
  29 :           ITRNOE(2) = ITRNO1
  30 :           ITRTR1 = ITRTRI(3)
  31 :           ITRTRI(3) = ITRTRI(2)
  32 :           ITRTRI(2) = ITRTR1           
  33 :       ENDIF
  34 :       END
  35 :  
  36 :