Télécharger fcar8.eso

Retour à la liste

Numérotation des lignes :

  1. C FCAR8 SOURCE CHAT 05/01/12 23:57:16 5004
  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 )
  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 = NNOAR
  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.  

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