Télécharger idva12.eso

Retour à la liste

Numérotation des lignes :

  1. C IDVA12 SOURCE LJ1 14/11/13 21:15:49 8248
  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. * BCN
  23. * New source: four material models added:
  24. * MRS-Lade (MATEPL=111)
  25. * J2 (MATEPL=112)
  26. * Rounded Hyperbolic Mohr-Coulomb (MATEPL=113)
  27. * von Mises - Tresca FeFp (MATEPL=114)
  28. * RH Mohr-Coulomb FeFp (MATEPL=115)
  29. * Powder model FeFp (MATEPL=116)
  30. * Powder cap model FeFp (MATEPL=117)
  31. C=======================================================================
  32.  
  33. SUBROUTINE IDVA12 (MATEPL,MFR,MELE,IFOUR,NPINT,IPCOMP,
  34. . NBROBL,NBRFAC)
  35.  
  36. IMPLICIT INTEGER(I-N)
  37. IMPLICIT REAL*8 (A-H,O-Z)
  38.  
  39. SEGMENT NOMID
  40. CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  41. ENDSEGMENT
  42.  
  43. NBROBL=0
  44. NBRFAC=0
  45. NOMID=0
  46.  
  47. C 1 - MODELE MRS-Lade
  48. C =====================
  49. C= EPSE : cone internal variable
  50. C= KCAP : cap internal variable
  51. C= LCON : cone d(plastic multiplier) (for Consistent Tangent Matrix)
  52. C= LCAP : cap d(plastic multiplier) (for Consistent Tangent Matrix)
  53. C= NSAC : number of substeps of the last iteration
  54. C= SSII : relative size of the last substep of each iteration
  55. IF (MATEPL.EQ.111) THEN
  56. NBROBL=6
  57. SEGINI,NOMID
  58. LESOBL(1)='EPSE'
  59. LESOBL(2)='KCAP'
  60. LESOBL(3)='LCON'
  61. LESOBL(4)='LCAP'
  62. LESOBL(5)='NSST'
  63. LESOBL(6)='SSII'
  64.  
  65. C 2 - MODELES J2 et Rounded Hyperbolic Mohr-Coulomb
  66. C ===================================================
  67. C= EPSE :
  68. C= AUX1 : auxiliary variable (for Consistent Tangent Matrix),
  69. C= used without substepping
  70. C= NSAC : number of substeps of the last iteration
  71. C= SSII : relative size of the last substep of each iteration
  72. ELSE IF (MATEPL.EQ.112.OR.MATEPL.EQ.113) THEN
  73. NBROBL=4
  74. SEGINI,NOMID
  75. LESOBL(1)='EPSE'
  76. LESOBL(2)='AUX1'
  77. LESOBL(3)='NSST'
  78. LESOBL(4)='SSII'
  79.  
  80. C 3 - VMT_FEFP, RHMC_FEFP, RHMCrho_FEFP, POWDER_FEFP, POWDERCAP_FEFP
  81. C ====================================================================
  82. C= EPSE :
  83. C= AUX1 : plastic multiplier / equal to -1 means elastic step
  84. C= NITE : number of iterations
  85. C= XDEN : relative density (used in Update Lagrangian formulation)
  86. ELSE IF (MATEPL.EQ.114.OR.MATEPL.EQ.115.OR.
  87. . MATEPL.EQ.116.OR.MATEPL.EQ.117) THEN
  88. NBROBL=4
  89. SEGINI,NOMID
  90. LESOBL(1)='EPSE'
  91. LESOBL(2)='AUX1'
  92. LESOBL(3)='NITE'
  93. LESOBL(4)='XDEN'
  94. c
  95. c modele de liaison acier-beton (LIAISON_ACBE)
  96. c
  97. ELSE IF (MATEPL.EQ.161) THEN
  98. NBROBL = 6
  99. SEGINI,NOMID
  100. LESOBL(1)='GDEP'
  101. LESOBL(2)='TDEP'
  102. LESOBL(3)='GDEN'
  103. LESOBL(4)='TDEN'
  104. LESOBL(5)='KPEN'
  105. LESOBL(6)='EPSE'
  106. c cccccc
  107. C Par DEFAUT : SEGMENT VIDE
  108. C ===========================
  109. ELSE
  110. SEGINI,NOMID
  111. ENDIF
  112.  
  113. IPCOMP=NOMID
  114. SEGDES,NOMID
  115.  
  116. RETURN
  117. END
  118.  
  119.  
  120.  
  121.  

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