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    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