Esope source files

   1 : C IDVA12    SOURCE    CHAT      05/01/13    00:30:56     5004           
   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 : 
  95 : C  Par DEFAUT : SEGMENT VIDE
  96 : C ===========================
  97 :       ELSE
  98 :         SEGINI,NOMID
  99 :       ENDIF
 100 : 
 101 :       IPCOMP=NOMID
 102 :       SEGDES,NOMID
 103 : 
 104 :       RETURN
 105 :       END
 106 :  
 107 :