Télécharger la plaquette Cast3M


fr en

Télécharger fcar8.eso

Retour à la liste

Numérotation des lignes : 

fcar8

  1. C FCAR8     SOURCE    PV        22/04/25    21:15:07     11344          
  2. C
  3. C
  4.       SUBROUTINE FCAR8(ITYPE,INDONN,IRESUL,NBRESU)
  5. C     **********************************************************************
  6. C     OBJET FCAR8  : RENVOI LES INFO SUR LE CAR8
  7. C        EN ENTREE :
  8. C           ITYPE  : TYPE DES INFORMATION SOUHAITEES
  9. C           INDONN : DONNEES POUR LA REQUETE FORMULEE
  10. C        EN SORTIE :
  11. C          IRESUL  : TABLEAU D'ENTIER CONTENANT LE RESULTAT
  12. C          NBRESU  : NOMBRE D'INFORMATION CONTENU DANS IRESUL
  13. C
  14. C     **********************************************************************
  15.       IMPLICIT INTEGER(I-N)
  16.       INTEGER ITYPE,INDONN(*),IRESUL(*),NBRESU
  17. C
  18. C
  19.       INTEGER NBNO,INDMIN,INDMAX,I
  20. C                  ==========================
  21. C     ------------- DESCRIPTION DE L'ELEMENT --------------------
  22. C                  ==========================
  23.       INTEGER NSOAR,NNOAR,NSOFA,NNOFA,NSOVO,NNOVO,NNOTOT
  24.       PARAMETER ( NSOAR = 8, NNOAR = 9, NSOFA = 6, NNOFA = 1,
  25.      >           NSOVO = 4, NNOVO = 1, NNOTOT = 4 )
  26.       INTEGER ISOAR(NSOAR),INOAR(NNOAR),ISOFA(NSOFA),INOFA(NNOFA)
  27.       INTEGER ISOVO(NSOVO),INOVO(NNOVO),INOTOT(NNOTOT)
  28.       DATA    ISOAR / 1,3,3,5,5,7,7,1 /
  29.       DATA    INOAR /6,7,8,9,10,2,4,6,8/
  30.       DATA    ISOFA / 3,7,1,3,5,7 /
  31.       DATA    INOFA / 0 /
  32.       DATA    ISOVO / 1,3,5,7 /
  33.       DATA    INOVO / 0 /
  34.       DATA    INOTOT /2,4,6,8 /
  35. C     ------------------------------------------------------------
  36. C
  37.       GOTO(10,20,30,40,50,60,70,80,90) ITYPE
  38.     1 NBRESU = 0
  39.       GOTO 9999
  40. C
  41. C     ============================================================
  42. C     1  : LES INDICES DES NOEUDS MILIEU DES SOMMETS (D'UNE ARETE)
  43. C     ============================================================
  44.    10 CONTINUE
  45.       INDMIN = MIN(INDONN(1),INDONN(2))
  46.       INDMAX = MAX(INDONN(1),INDONN(2))
  47.       CALL ELSN2D( INDMIN,INDMAX,8,IRESUL(1) )
  48.       NBNO = 1
  49.       NBRESU = NBNO
  50.       GOTO 9999
  51. C
  52. C     ============================================================
  53. C     2  : LES INDICES DES SOMMETS D'UNE ARETE
  54. C     ============================================================
  55.    20 CONTINUE
  56.       NBRESU = NSOAR
  57.       DO 21 I=1,NBRESU
  58.         IRESUL(I) = ISOAR(I)
  59.    21 CONTINUE
  60.       GOTO 9999
  61. C
  62. C     ============================================================
  63. C     3  : LES INDICES DES NOEUDS MILIEU D'UNE ARETE
  64. C     ============================================================
  65.    30 CONTINUE
  66.       NBRESU = NNOAR
  67.       DO 31 I=1,NBRESU
  68.         IRESUL(I) = INOAR(I)
  69.    31 CONTINUE
  70.       GOTO 9999
  71. C
  72. C     ============================================================
  73. C     4  : LES INDICES DES NOEUDS MILIEU DES SOMMETS (D'UNE FACE)
  74. C     ============================================================
  75.    40 CONTINUE
  76.       NBRESU = 0
  77.       GOTO 9999
  78. C
  79. C     ============================================================
  80. C     5  : LES INDICES DES SOMMETS D'UNE FACE
  81. C     ============================================================
  82.    50 CONTINUE
  83.       NBRESU = NSOFA
  84.       DO 51 I=1,NBRESU
  85.         IRESUL(I) = ISOFA(I)
  86.    51 CONTINUE
  87.       GOTO 9999
  88. C
  89. C     ============================================================
  90. C     6  : LES INDICES DES NOEUDS MILIEU D'UNE FACE
  91. C     ============================================================
  92.    60 CONTINUE
  93.       NBRESU = NNOFA
  94.       DO 61 I=1,NBRESU
  95.         IRESUL(I) = INOFA(I)
  96.    61 CONTINUE
  97.       GOTO 9999
  98. C
  99. C     ============================================================
  100. C     7  : LES INDICES DES NOEUDS DU VOLUME
  101. C     ============================================================
  102.    70 CONTINUE
  103.       NBRESU = NNOVO
  104.       DO 71 I=1,NBRESU
  105.         IRESUL(I) = INOVO(I)
  106.    71 CONTINUE
  107.       GOTO 9999
  108. C
  109. C     ============================================================
  110. C     8  : LES INDICES DES SOMMETS
  111. C     ============================================================
  112.    80 CONTINUE
  113.       NBRESU = NSOVO
  114.       DO 81 I=1,NBRESU
  115.         IRESUL(I) = ISOVO(I)
  116.    81 CONTINUE
  117.       GOTO 9999
  118. C
  119. C     ============================================================
  120. C     9  : LES INDICES DES NOEUDS
  121. C     ============================================================
  122.    90 CONTINUE
  123.       NBRESU = NNOTOT
  124.       DO 91 I=1,NBRESU
  125.         IRESUL(I) = INOTOT(I)
  126.    91 CONTINUE
  127.       GOTO 9999
  128. C
  129.  9999 END
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  

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