Télécharger la plaquette Cast3M


fr en

Télécharger sinvor.eso

Retour à la liste

Numérotation des lignes : 

sinvor

  1. C SINVOR    SOURCE    CHAT      05/01/13    03:19:55     5004
  2. C
  3.  
  4. C
  5.       SUBROUTINE SINVOR(II, N, IDE, ITRNOE, ITRTRI )
  6. C     ************************************************************
  7. C     OBJET :  INVERSE L'ORIENTATION D'UN ELEMENT
  8. C
  9. C     EN ENTREE:
  10. C      II     :   (OBSOLET)
  11. C      N      :  (2..4) NOMBRE DE NOEUDS DE L'ELEMENT
  12. C                 ARETE(2),TRIANGLE(3),QUADR(4),TETRA(4)
  13. C      IDE    :  (1..3) DIMENSION DE L'ELEMENT
  14. C                 ARETE(1),TRIANGLE(2),TETRA(3)
  15. C      ITRNOE:  LES NOEUDS DU TRIANGLES
  16. C      ITRTRI:  LES VOISINS DU TRIANGLES
  17. C     EN SORTIE:
  18. C      ITRTRI :  MIS A JOUR
  19. C      ITRNOE :  MIS A JOUR
  20. C     CONDITION D'APPLICATION : ARETE, TRIANGLE, QUADRANGLE, TETRA
  21. C     ************************************************************
  22.       IMPLICIT INTEGER(I-N)
  23.       INTEGER   II, N, IDE, ITRNOE(N), ITRTRI(N)
  24. C
  25.       INTEGER   I, ITRNO1, ITRTR1
  26. C
  27. C      IF((II.GT.N).OR.(II.LT.1))GOTO 999
  28.       GOTO(10,20,30) IDE
  29.       GOTO 999
  30. C     --- CAS 1D ---
  31.    10 ITRNO1   = ITRNOE(1)
  32.       ITRNOE(1) = ITRNOE(2)
  33.       ITRNOE(2) = ITRNO1
  34.       ITRTR1   = ITRTRI(1)
  35.       ITRTRI(1) = ITRTRI(2)
  36.       ITRTRI(2) = ITRTR1
  37.       GOTO 999
  38. C     --- CAS 2D ---
  39.    20 ITRNO1   = ITRNOE(N)
  40.       ITRNOE(N) = ITRNOE(2)
  41.       ITRNOE(2) = ITRNO1
  42.       DO 25 I=1,(N/2)
  43.         ITRTR1       = ITRTRI(I)
  44.         ITRTRI(I)     = ITRTRI(N-I+1)
  45.         ITRTRI(N-I+1) = ITRTR1
  46.    25 CONTINUE
  47.       GOTO 999
  48. C     --- CAS 3D ---
  49.    30 CALL S3INVE(N,ITRNOE,ITRTRI)
  50.       GOTO 999
  51. C
  52.   999 END
  53.  
  54.  
  55.  

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