Télécharger idva10.eso

Retour à la liste

Numérotation des lignes :

idva10
  1. C IDVA10 SOURCE FANDEUR 10/02/01 21:15:30 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 IFOU 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 FACTULTATIVES
  21. C=======================================================================
  22.  
  23. SUBROUTINE IDVA10 (MATEPL,MFR,MELE,IFOUR,NPINT,IPCOMP,
  24. . NBROBL,NBRFAC)
  25.  
  26. IMPLICIT INTEGER(I-N)
  27. IMPLICIT REAL*8 (A-H,O-Z)
  28.  
  29. SEGMENT NOMID
  30. CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  31. ENDSEGMENT
  32.  
  33. NBROBL=0
  34. NBRFAC=0
  35. IPCOMP=0
  36. NOMID=0
  37.  
  38. C 1 - MODELE VISK2
  39. C ==================
  40. IF (MATEPL.NE.82) RETURN
  41. C =====
  42. C 1.1 - Element MASSIF
  43. C =====
  44. IF (MFR.EQ.1.OR.MFR.EQ.31.OR.MFR.EQ.33) THEN
  45. C= 1.1.1 - Cas des CONTRAINTES PLANES ou DEFORMATIONS PLANES ou
  46. C= DEFORMATIONS PLANES GENERALISEES
  47. IF (IFOUR.EQ.-2.OR.IFOUR.EQ.-1.OR.IFOUR.EQ.-3) THEN
  48. NBROBL=9
  49. SEGINI,NOMID
  50. LESOBL(1)='EPSE'
  51. LESOBL(2)='SPXX'
  52. LESOBL(3)='SPYY'
  53. LESOBL(4)='SPZZ'
  54. LESOBL(5)='SPXY'
  55. LESOBL(6)='SVXX'
  56. LESOBL(7)='SVYY'
  57. LESOBL(8)='SVZZ'
  58. LESOBL(9)='SVXY'
  59. C= 1.1.2 - Cas AXISYMETRIQUE
  60. ELSE IF (IFOUR.EQ.0) THEN
  61. NBROBL=9
  62. SEGINI,NOMID
  63. LESOBL(1)='EPSE'
  64. LESOBL(2)='SPRR'
  65. LESOBL(3)='SPZZ'
  66. LESOBL(4)='SPTT'
  67. LESOBL(5)='SPRZ'
  68. LESOBL(6)='SVRR'
  69. LESOBL(7)='SVZZ'
  70. LESOBL(8)='SVTT'
  71. LESOBL(9)='SVRZ'
  72. C= 1.1.3 - Cas des series de FOURIER
  73. ELSE IF (IFOUR.EQ.1) THEN
  74. NBROBL=13
  75. SEGINI,NOMID
  76. LESOBL( 1)='EPSE'
  77. LESOBL( 2)='SPRR'
  78. LESOBL( 3)='SPZZ'
  79. LESOBL( 4)='SPTT'
  80. LESOBL( 5)='SPRZ'
  81. LESOBL( 6)='SPRT'
  82. LESOBL( 7)='SPZT'
  83. LESOBL( 8)='SVRR'
  84. LESOBL( 9)='SVZZ'
  85. LESOBL(10)='SVTT'
  86. LESOBL(11)='SVRZ'
  87. LESOBL(12)='SVRT'
  88. LESOBL(13)='SVZT'
  89. C= 1.1.4 - Cas TRIDIMENSIONNEL
  90. ELSE IF (IFOUR.EQ.2) THEN
  91. NBROBL=13
  92. SEGINI,NOMID
  93. LESOBL( 1)='EPSE'
  94. LESOBL( 2)='SPXX'
  95. LESOBL( 3)='SPYY'
  96. LESOBL( 4)='SPZZ'
  97. LESOBL( 5)='SPXY'
  98. LESOBL( 6)='SPXZ'
  99. LESOBL( 7)='SPYZ'
  100. LESOBL( 8)='SVXX'
  101. LESOBL( 9)='SVYY'
  102. LESOBL(10)='SVZZ'
  103. LESOBL(11)='SVXY'
  104. LESOBL(12)='SVXZ'
  105. LESOBL(13)='SVYZ'
  106. C= 1.1.5 - Modes de calcul UNIDIMENSIONNELS (1D) PLAN
  107. ELSE IF (IFOUR.GE.3.AND.IFOUR.LE.11) THEN
  108. NBROBL=7
  109. SEGINI,NOMID
  110. LESOBL(1)='EPSE'
  111. LESOBL(2)='SPXX'
  112. LESOBL(3)='SPYY'
  113. LESOBL(4)='SPZZ'
  114. LESOBL(5)='SVXX'
  115. LESOBL(6)='SVYY'
  116. LESOBL(7)='SVZZ'
  117. C= 1.1.6.- Modes de calcul UNDIMENSIONNELs (1D) AXIS et SPHE
  118. ELSE IF (IFOUR.GE.12.AND.IFOUR.LE.15) THEN
  119. NBROBL=7
  120. SEGINI,NOMID
  121. LESOBL(1)='EPSE'
  122. LESOBL(2)='SPRR'
  123. LESOBL(3)='SPZZ'
  124. LESOBL(4)='SPTT'
  125. LESOBL(5)='SVRR'
  126. LESOBL(6)='SVZZ'
  127. LESOBL(7)='SVTT'
  128. ENDIF
  129. ENDIF
  130.  
  131. IPCOMP=NOMID
  132. IF (IPCOMP.EQ.0) THEN
  133. CALL ERREUR(896)
  134. ELSE
  135. SEGDES,NOMID
  136. ENDIF
  137.  
  138. RETURN
  139. END
  140.  
  141.  
  142.  

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