Télécharger idvflo.eso

Retour à la liste

Numérotation des lignes :

  1. C IDVFLO SOURCE FANDEUR 10/02/01 21:15:53 6603
  2.  
  3. C=======================================================================
  4. * RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES
  5. * --------------------------------------------------------
  6. *
  7. * ENTREES :
  8. * ---------
  9. * MATEPL NUMERO DU MATERIAU PLASTIQUE
  10. * MFR NUMERO DE FORMULATION
  11. * IFOUR VALEUR DE IFOUR DANS CCOPTIO
  12. * NPINT NOMBRE DE POINTS D'INTEGRATION DANS L'EPAISSEUR
  13. * POUR LES ELEMENTS DE COQUE INTEGRES
  14. *
  15. * SORTIES :
  16. * ---------
  17. * IPCOMP POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES
  18. * OBLIGATOIRES ET FACULTATIVES
  19. * NBROBL NOMBRE DE COMPOSANTES OBLIGATOIRES
  20. * NBRFAC NOMBRE DE COMPOSANTES FACULTATIVES
  21. C=======================================================================
  22.  
  23. SUBROUTINE IDVFLO (MATEPL,MFR,IFOUR,NPINT,IPCOMP,NBROBL,NBRFAC)
  24.  
  25. IMPLICIT INTEGER(I-N)
  26. IMPLICIT REAL*8 (A-H,O-Z)
  27.  
  28. SEGMENT NOMID
  29. CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  30. ENDSEGMENT
  31.  
  32. NBROBL=0
  33. NBRFAC=0
  34. NOMID=0
  35.  
  36. * ELEMENT MASSIF
  37. ******************
  38. IF (MFR.EQ.1.OR.MFR.EQ.31.OR.MFR.EQ.33) THEN
  39. * CAS CONTRAINTES PLANES OU DEFORMATIONS PLANES ou
  40. * DEFORMATIONS PLANES GENERALISEES
  41. IF (IFOUR.EQ.-1.OR.IFOUR.EQ.-2.OR.IFOUR.EQ.-3) THEN
  42. NBROBL=16
  43. SEGINI,NOMID
  44. LESOBL( 1)='EPSE'
  45. LESOBL( 2)='EPSP'
  46. LESOBL( 3)='EPSS'
  47. LESOBL(12)='MARK'
  48. LESOBL( 4)='PXY '
  49. LESOBL( 5)='VNXX'
  50. LESOBL( 6)='VNYY'
  51. LESOBL( 7)='VNZZ'
  52. LESOBL( 8)='VNXY'
  53. LESOBL( 9)='EPCE'
  54. LESOBL(10)='EPSH'
  55. LESOBL(11)='LL '
  56. LESOBL(13)='ECXX'
  57. LESOBL(14)='ECYY'
  58. LESOBL(15)='ECZZ'
  59. LESOBL(16)='ECXY'
  60. * CAS AXISYMETRIQUE
  61. ELSE IF (IFOUR.EQ.0) THEN
  62. NBROBL=16
  63. SEGINI,NOMID
  64. LESOBL( 1)='EPSE'
  65. LESOBL( 2)='EPSP'
  66. LESOBL( 3)='EPSS'
  67. LESOBL(12)='MARK'
  68. LESOBL( 4)='PRZ '
  69. LESOBL( 5)='VNRR'
  70. LESOBL( 6)='VNZZ'
  71. LESOBL( 7)='VNTT'
  72. LESOBL( 8)='VNRZ'
  73. LESOBL( 9)='EPCE'
  74. LESOBL(10)='EPSH'
  75. LESOBL(11)='LL '
  76. LESOBL(13)='ECRR'
  77. LESOBL(14)='ECZZ'
  78. LESOBL(15)='ECTT'
  79. LESOBL(16)='ECRZ'
  80. * CAS SERIE DE FOURIER
  81. ELSE IF (IFOUR.EQ.1) THEN
  82. NBROBL=22
  83. SEGINI,NOMID
  84. LESOBL( 1)='EPSE'
  85. LESOBL( 2)='EPSP'
  86. LESOBL( 3)='EPSS'
  87. LESOBL(12)='MARK'
  88. LESOBL( 4)='PRZ '
  89. LESOBL( 5)='PRT '
  90. LESOBL( 6)='PZT '
  91. LESOBL( 7)='VNRR'
  92. LESOBL( 8)='VNZZ'
  93. LESOBL( 9)='VNTT'
  94. LESOBL(10)='VNRZ'
  95. LESOBL(11)='VNRT'
  96. LESOBL(13)='EPCE'
  97. LESOBL(14)='EPSH'
  98. LESOBL(15)='LL '
  99. LESOBL(16)='EPSE'
  100. LESOBL(17)='ECRR'
  101. LESOBL(18)='ECZZ'
  102. LESOBL(19)='ECTT'
  103. LESOBL(20)='ECRZ'
  104. LESOBL(21)='ECRT'
  105. LESOBL(22)='ECZT'
  106. * CAS TRIDIMENSIONNEL
  107. ELSE IF (IFOUR.EQ.2) THEN
  108. NBROBL=22
  109. SEGINI,NOMID
  110. LESOBL( 1)='EPSE'
  111. LESOBL( 2)='EPSP'
  112. LESOBL( 3)='EPSS'
  113. LESOBL(12)='MARK'
  114. LESOBL( 4)='PXY '
  115. LESOBL( 5)='PYZ '
  116. LESOBL( 6)='PZX '
  117. LESOBL( 7)='VNXX'
  118. LESOBL( 8)='VNYY'
  119. LESOBL( 9)='VNZZ'
  120. LESOBL(10)='VNXY'
  121. LESOBL(11)='VNYZ'
  122. LESOBL(13)='EPCE'
  123. LESOBL(14)='EP '
  124. LESOBL(15)='LL '
  125. LESOBL(16)='EPST'
  126. LESOBL(17)='ECXX'
  127. LESOBL(18)='ECYY'
  128. LESOBL(19)='ECZZ'
  129. LESOBL(20)='ECXY'
  130. LESOBL(21)='ECYZ'
  131. LESOBL(22)='ECZX'
  132. * CAS UNIDIMENSIONNEL (1D) PLAN
  133. ELSE IF (IFOUR.GE.3.AND.IFOUR.LE.11) THEN
  134. NBROBL=13
  135. SEGINI,NOMID
  136. LESOBL( 1)='EPSE'
  137. LESOBL( 2)='EPSP'
  138. LESOBL( 3)='EPSS'
  139. LESOBL(12)='MARK'
  140. LESOBL( 4)='VNXX'
  141. LESOBL( 5)='VNYY'
  142. LESOBL( 6)='VNZZ'
  143. LESOBL( 7)='EPCE'
  144. LESOBL( 8)='EPSH'
  145. LESOBL( 9)='LL '
  146. LESOBL(10)='ECXX'
  147. LESOBL(11)='ECYY'
  148. LESOBL(13)='ECZZ'
  149. * CAS UNIDIMENSIONNEL (1D) AXISYMETRIQUES OU SPHERIQUE
  150. ELSE IF (IFOUR.GE.12.AND.IFOUR.LE.15) THEN
  151. NBROBL=13
  152. SEGINI,NOMID
  153. LESOBL( 1)='EPSE'
  154. LESOBL( 2)='EPSP'
  155. LESOBL( 3)='EPSS'
  156. LESOBL(12)='MARK'
  157. LESOBL( 4)='VNRR'
  158. LESOBL( 5)='VNZZ'
  159. LESOBL( 6)='VNTT'
  160. LESOBL( 7)='EPCE'
  161. LESOBL( 8)='EPSH'
  162. LESOBL( 9)='LL '
  163. LESOBL(10)='ECRR'
  164. LESOBL(11)='ECZZ'
  165. LESOBL(13)='ECTT'
  166. ENDIF
  167.  
  168. * ELEMENT COQUE
  169. *****************
  170. C* ELSE IF (MFR.EQ.3) THEN
  171.  
  172. * ELEMENT COQUE EPAISSE
  173. *************************
  174. C* ELSE IF (MFR.EQ.5) THEN
  175.  
  176. * ELEMENTS POUTRE ET TUYAU
  177. ****************************
  178. C* ELSE IF (MFR.EQ.7.OR.MFR.EQ.13) THEN
  179.  
  180. * ELEMENT COQUE CISAILLEMENT TRANSVERSE
  181. *****************************************
  182. C* ELSE IF (MFR.EQ.9) THEN
  183.  
  184. * FORMULATION MEMBRANE
  185. ************************
  186. C* ELSE IF (MFR.EQ.25) THEN
  187.  
  188. * FORMULATION UNIAXIALE
  189. *************************
  190. ELSE IF (MFR.EQ.27) THEN
  191. NBROBL=7
  192. SEGINI,NOMID
  193. LESOBL(1)='PEFX'
  194. LESOBL(2)='NEFX'
  195. LESOBL(3)='EPCE'
  196. LESOBL(4)='EPSH'
  197. LESOBL(5)='LL '
  198. LESOBL(6)='EPSE'
  199. LESOBL(7)='EEFX'
  200. ENDIF
  201.  
  202. IPCOMP=NOMID
  203. SEGDES,NOMID
  204.  
  205. RETURN
  206. END
  207.  
  208.  
  209.  

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