Télécharger DECHE.INC

Retour à la liste

Numérotation des lignes :

  1. * segment deroulant le mcheml
  2. SEGMENT,DECHE
  3. INTEGER INDEC
  4. INTEGER IMADEC, IELDEC, IFODEC
  5. CHARACTER*8 NOMDEC
  6. CHARACTER*16 TYPDEC
  7. LOGICAL TYPREE
  8. CHARACTER*(LCONMO) CONDEC
  9. INTEGER INFDEC(N3)
  10. ENDSEGMENT
  11. POINTEUR DEC1.DECHE,DEC2.DECHE
  12. * INDEC : indice du MCHELM
  13. * CONDEC : constituant
  14. * PHADEC : phase (CONDEC(16:24))
  15. * IMADEC : pointeur maillage
  16. * IELDEC : pointeur melval
  17. * IFODEC : CORRESPOND A IFOCHE (voir MCHAML)
  18. * INFDEC : CORRESPOND A INFCHE (voir MCHAML)
  19. * NOMDEC : nom de composante
  20. * TYPDEC : type du champ
  21. * TYPREE : Vrai si typdec real
  22.  
  23.  
  24. * segment des types de composantes relatives a un champ physique
  25. SEGMENT NOTYPE
  26. CHARACTER*16 TYPE(NBTYPE)
  27. ENDSEGMENT
  28.  
  29. * segment des adresses des deche associes a un NOMID
  30. segment pilnec
  31. integer pilobl(mobl,mran),pilfac(mfac,mran)
  32. endsegment
  33.  
  34. * le contenu de l'ancien domdec: jnomid et jilnec est directement dans liluc
  35. * segment des pointeurs sur nomid et pilnec
  36. * (les indices se referent au DATA LISMOT ci-dessous)
  37. segment liluc(iiluc,2)
  38. * pile des deche concernes par un modele elementaire
  39. segment lilcon(iilcon)
  40. * pile de tous les deche correspondant aux melvals vus par l utilisateur
  41. segment lilmel(iimel)
  42.  
  43.  
  44. C liste de reference identifiant les champs
  45. PARAMETER (NMOT=25)
  46. CHARACTER*8 LISMOT(NMOT),MOT
  47. DATA LISMOT / 'NOEUD ', 'GRAVITE ', 'RIGIDITE', 'MASSE ',
  48. 1 'STRESSES', 'DEPLACEM', 'FORCES ', 'REACTUAL',
  49. 1 'FVOLUMIQ', 'GRADIENT', 'CONTRAIN', 'DEFORMAT',
  50. 1 'MATERIAU', 'CARACTER', 'TEMPERAT', 'PRINCIPA',
  51. 1 'MAHOOKE ', 'HOTANGEN', 'DILATATI', 'VARINTER',
  52. 1 'GRAFLEXI', 'VONMISES', 'VINMETAL', 'DEFINELA',
  53. 1 'PARAMEXT'/
  54.  
  55. * segments pour passer les informations au point d integration
  56.  
  57. * donnees brutes en entree de COMP, completees par les valeurs calculees
  58. SEGMENT WRK52
  59. * temps initial, final
  60. REAL*8 temp0, tempf
  61. *
  62. REAL*8 scal0(nsca), scalf(nsca)
  63. * deplacements
  64. REAL*8 depl0(ndep), deplf(ndep)
  65. * forces
  66. REAL*8 forc0(nfor), forcf(nfor)
  67. * gradients
  68. REAL*8 grad0(ngra), gradf(ngra)
  69. * contraintes
  70. REAL*8 SIG0(NSTRS), SIGF(NSTRS),DSIGT(NSTRS)
  71. * deformations totales
  72. REAL*8 epst0(NDEFO),DEPST(NDEFO),epstf(NDEFO)
  73. * caracteristiques materiau
  74. REAL*8 xmat0(ncara),XMAT(NCARA),xmatf(NCARA),
  75. & VALMAT(NCARA),valma0(ncara)
  76. c type et nom de composantes relatifs a VALMAT et valma0
  77. CHARACTER tyval(ncara)*16, commat(ncara)*8
  78. c pointeur sur les melval de caracteristiques materiau a l etat final
  79. INTEGER ivalma(ncara)
  80. * caracteristiques geometriques
  81. REAL*8 xcar0(ncarb),XCARB(NCARB),xcarbf(NCARB),VALCAR(NCARB)
  82. c type et nom de composantes pour les caracteristiques
  83. CHARACTER tycar(ncarb)*16,comcar(ncarb)*8
  84. * temperatures
  85. REAL*8 ture0(ntur), turef(ntur)
  86. * contraintes principales
  87. REAL*8 prin0(npri), prinf(npri)
  88. * matrices de hook
  89. REAL*8 maho0(nmah), mahof(nmah)
  90. * matrices hook tangent
  91. REAL*8 hota0(nhot), hotaf(nhot)
  92. * variables internes
  93. REAL*8 VAR0(NVARI),VARF(NVARI)
  94. * gradients flexion
  95. REAL*8 graf0(ngrf), graff(ngrf)
  96. *
  97. REAL*8 rhas0(nrhi), rhasf(nrhi)
  98. * deformations inelastiques
  99. REAL*8 DEFP(NDEIN),EPIN0(NDEIN),EPINF(NDEIN)
  100. * parametres externes
  101. REAL*8 PAREX0(NPAREX),PAREXF(NPAREX)
  102. * fourre tout pour les comp non prevues et/ou munies d un autre constituant
  103. CHARACTER*16 typexo(nexo)
  104. CHARACTER*8 nomexo(nexo)
  105. CHARACTER*(lconmo) conexo(nexo)
  106. REAL*8 exova0(nexo),exova1(nexo)
  107. ENDSEGMENT
  108. segment wrk522
  109. * temps initial, final
  110. integer mkktp0, mkktpf
  111. *
  112. integer mkkal0(nsca), mkklaf(nsca),mkkalz
  113. * deplacements
  114. integer mkkpl0(ndep), mkkplf(ndep),mkkplz
  115. * forces
  116. integer mkkrc0(nfor), mkkrcf(nfor),mkkrcz
  117. * gradients
  118. integer mkkad0(ngra), mkkadf(ngra),mkkadz
  119. * contraintes
  120. integer mkkIG0(NSTRS), mkkIGF(NSTRS),mkkIGT(NSTRS),mkkigz
  121. * deformations totales
  122. integer mkkst0(NDEFO),mkkPST(NDEFO),mkkstf(NDEFO),mkkstz
  123. * caracteristiques materiau
  124. integer mkkat0(ncara),mkkMAT(NCARA),mkkatf(NCARA),
  125. & mkkVAT(NCARA),mkkva0(ncara),mkkatz
  126. c pointeur sur les melval de caracteristiques materiau a l etat final
  127. INTEGER mkklma(ncara)
  128. * caracteristiques geometriques
  129. integer mkkar0(ncarb),mkkARB(NCARB),mkkrbf(NCARB),mkkVCR(NCARB)
  130. integer mblcar,mkkarz
  131. * temperatures
  132. integer mkkre0(ntur), mkkref(ntur),mkkrez
  133. * contraintes principales
  134. integer mkkin0(npri), mkkinf(npri),mkkinz
  135. * matrices de hook
  136. integer mkkho0(nmah), mkkhof(nmah),mkkhoz
  137. * matrices hook tangent
  138. integer mkkta0(nhot), mkktaf(nhot),mkktaz
  139. * variables internes
  140. integer mkkVR0(NVARI),mkkVRF(NVARI),mkkvrz
  141. * gradients flexion
  142. integer mkkaf0(ngrf), mkkaff(ngrf),mkkafz
  143. *
  144. integer mkkas0(nrhi), mkkasf(nrhi),mkkasz
  145. * deformations inelastiques
  146. integer mkkEFP(NDEIN),mkkPN0(NDEIN),mkkPNF(NDEIN),mkkpnz
  147. * parametres externes
  148. integer mkkEX0(NPAREX),mkkEXF(NPAREX),mkkexz
  149. * fourre tout pour les comp non prevues et/ou munies d un autre constituant
  150. integer mkkvx0(nexo),mkkvx1(nexo),mkkvxz
  151. ENDSEGMENT
  152. *
  153. * quelques donnees pratiques
  154. SEGMENT WRK53
  155. INTEGER MATE,INPLAS,MELE,IPMAIL,NPINT,NBNN2,NBELEM2
  156. INTEGER NFOR,NMAT,NUMAT,NUCAR,NMATR,NCARF
  157. INTEGER MFR,NBG,NBGS,NSTRS,LRE,LW,LW2,LHOOK,LHOO2,IPORE,NBNO
  158. INTEGER NVART,NMATT,NCARR,JECHER,ISTEP,NBINT,JNOID
  159. INTEGER NBPTEL,NEL,N2PTEL,N2EL,KERRE
  160. INTEGER ITHHER
  161. CHARACTER*8 CMATE
  162. CHARACTER*(lconmo) CONM
  163. LOGICAL LOGSUC,LOGVIS,LUNI1,LUNI2,LOGRE,LOGIN
  164. REAL*8 PRECIS,SECT,COB,XMOB,EPAIST
  165. REAL*8 BID(6),BID2(6)
  166. REAL*8 COORGA(3),LCARAC
  167. ENDSEGMENT
  168. * MATE : numero de materiau
  169. * INPLAS : numero loi de comportement
  170. * MELE : numero element fini
  171. * IPMAIL : pointeur maillage
  172. * NPINT : nombre points d integration coque
  173. * NBNN2 : nombre de noeuds
  174. * NBELEM2 : nombre d elements
  175. * MFR : numero formulation
  176. * NBPTEL : nombre de points d integrations
  177. * NEL : nombre d elements
  178. * KERRE : indicateur d erreur
  179. * CMATE : description comportement
  180. * CONM : constituant du modele
  181. * PRECIS : precision
  182. * SECT : section
  183. * EPAIST : epaisseur
  184. * COORGA(3) : coordonnees cartesiennes du point d'integration courant
  185. * LCARAC : longueur caracteristique de l'element courant
  186.  
  187. * tableaux intermediaires
  188. SEGMENT WRK54
  189. REAL*8 DDHOOK(LHOOK,LHOOK)
  190. REAL*8 DDAUX(LHOOK,LHOOK)
  191. REAL*8 TXR(IDIM,IDIM),DDHOMU(LHOOK,LHOOK)
  192. REAL*8 XLOC(3,3),XGLOB(3,3)
  193. REAL*8 D1HOOK(LHOOK,LHOOK),ROTHOO(LHOOK,LHOOK)
  194. CHARACTER*16 TYMAT(NCXMAT)
  195. REAL*8 XMAT1(NCXMAT),XMAT2(NCXMAT)
  196. ENDSEGMENT
  197. *
  198. *Pour la metallurgie (par T.LINDECKER en mai 2018)
  199. SEGMENT WRKMET
  200. CHARACTER*4 PHASES(NBPHAS)
  201. CHARACTER*4 REACTI(NBREAC)
  202. CHARACTER*4 PRODUI(NBREAC)
  203. CHARACTER*4 TYPES(NBREAC)
  204. ENDSEGMENT
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.  

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