Esope source files

   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 ---
  48 :    30 CALL S3INVE(N,ITRNOE,ITRTRI)
  49 :       GOTO 999            
  50 : C
  51 :   999 END
  52 :  
  53 :