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

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