Télécharger la plaquette Cast3M


fr en

Télécharger idva12.eso

Retour à la liste

Numérotation des lignes : 

idva12

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

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