Télécharger la plaquette Cast3M


fr en

Télécharger s3inve.eso

Retour à la liste

Numérotation des lignes : 

s3inve

  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.  
  37.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales