Télécharger TMATOP1.INC

Retour à la liste

Numérotation des lignes :

  1. C***********************************************************************
  2. C NOM : TMATOP1.INC
  3. C DESCRIPTION : Regroupement de tous les includes définissant des
  4. C segments, utilisés pour le mailleur topologique, d'après les
  5. C travaux de T. Coupez et al.
  6. C
  7. C Voir aussi TMATOP2.INC pour l'include définissant les variables
  8. C globales (COMMON).
  9. C
  10. C Bibliographie :
  11. C
  12. C@article{doi:10.1080/12506559.2000.10511454,
  13. C author = {Coupez, Thierry},
  14. C title = {Génération de maillage et adaptation de maillage par
  15. C optimisation locale},
  16. C journal = {Revue Européenne des Éléments Finis},
  17. C volume = {9},
  18. C number = {4},
  19. C pages = {403-423},
  20. C year = {2000},
  21. C doi = {10.1080/12506559.2000.10511454},
  22. C URL = {http://www.tandfonline.com/doi/abs/10.1080/12506559.2000.10511454}}
  23. C
  24. C
  25. C@PhdThesis{,
  26. C author = {Cyril Gruau},
  27. C title = {Génération de métriques pour adaptation anisotrope
  28. C de maillage, application à la mise en forme des matériaux},
  29. C school = {ENSMP},
  30. C year = {2004},
  31. C month = {10 dec}}
  32. C
  33. C@article{Gruau20054951,
  34. C title = "3D tetrahedral, unstructured and anisotropic mesh
  35. C generation with adaptation to natural and multidomain metric",
  36. C journal = "Computer Methods in Applied Mechanics and Engineering",
  37. C volume = "194",
  38. C number = "48 - 49",
  39. C pages = "4951 - 4976",
  40. C year = "2005",
  41. C issn = "0045-7825",
  42. C doi = "10.1016/j.cma.2004.11.020",
  43. C url = "http://www.sciencedirect.com/science/article/pii/S0045782505000745",
  44. C author = "Cyril Gruau and Thierry Coupez",
  45. C keywords = "Topology and shape optimization",
  46. C keywords = "Elliptic interpolation",
  47. C keywords = "Thickness detection and curvature treatment",
  48. C keywords = "Interface refinement"}
  49. C
  50. C @article{Coupez20112391,
  51. C title = "Metric construction by length distribution tensor and
  52. C edge based error for anisotropic adaptive meshing",
  53. C journal = "Journal of Computational Physics",
  54. C volume = "230",
  55. C number = "7",
  56. C pages = "2391 - 2405",
  57. C year = "2011",
  58. C issn = "0021-9991",
  59. C doi = "10.1016/j.jcp.2010.11.041",
  60. C url = "http://www.sciencedirect.com/science/article/pii/S002199911000656X",
  61. C author = "T. Coupez",
  62. C keywords = "Metric",
  63. C keywords = "Length distribution tensor",
  64. C keywords = "Anisotropic meshing",
  65. C keywords = "Interpolation error",
  66. C keywords = "Edge error estimate"}
  67. C
  68. C
  69. C
  70. C LANGAGE : ESOPE
  71. C AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SEMT/LTA)
  72. C mél : gounand@semt2.smts.cea.fr
  73. C***********************************************************************
  74. C VERSION : v1, 31/03/2021, version initiale
  75. C HISTORIQUE : v1, 31/03/2021, création
  76. C HISTORIQUE :
  77. C HISTORIQUE :
  78. C
  79. C***********************************************************************
  80.  
  81. C***********************************************************************
  82. C NOM : SMELEMX.INC
  83. C DESCRIPTION :
  84. C
  85. C Segment maillage de travail (simple un seul type d'éléments)
  86. C extensible. Inspiré de MELEME et de TRAVJ
  87. C
  88. C
  89. C LANGAGE : ESOPE
  90. C AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SEMT/LTA)
  91. C mél : gounand@semt2.smts.cea.fr
  92. C***********************************************************************
  93. C VERSION : v1, 30/10/2017, version initiale
  94. C HISTORIQUE : v1, 30/10/2017, création
  95. C HISTORIQUE :
  96. C HISTORIQUE :
  97. C
  98. C***********************************************************************
  99. C
  100. C Segment MELEMX
  101. C Description :
  102. C
  103. SEGMENT MELEMX
  104.  
  105. INTEGER NLINI,NNINI,NLCOU,NNCOU
  106. * ,NLMAX,NNMAX
  107. INTEGER ITYPEX
  108. INTEGER NUMX(NNMAX,NLMAX)
  109. ENDSEGMENT
  110. C
  111. C End of include MELEMX
  112. C
  113. C***********************************************************************
  114. C NOM : SMETRIQ.INC
  115. C DESCRIPTION :
  116. C
  117. * Segment stockant la métrique à chaque noeud
  118. * On pourrait s'en servir pour stocker aussi les coordonnées des
  119. * noeuds
  120. *
  121. C
  122. C
  123. C LANGAGE : ESOPE
  124. C AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SEMT/LTA)
  125. C mél : gounand@semt2.smts.cea.fr
  126. C***********************************************************************
  127. C VERSION : v1, 23/11/2017, version initiale
  128. C HISTORIQUE : v1, 23/11/2017, création
  129. C HISTORIQUE :
  130. C HISTORIQUE :
  131. C
  132. C***********************************************************************
  133. C
  134. SEGMENT METRIQ
  135. REAL*8 XIN(NNIN,NNNOE)
  136. ENDSEGMENT
  137. *
  138. C
  139. C End of include SMETRIQ
  140. C
  141. C***********************************************************************
  142. C NOM : SMLENTX.INC
  143. C DESCRIPTION :
  144. C
  145. C Segment liste d'entiers extensible
  146. C extensible. Inspiré de MLENTI et de MELEMX
  147. C
  148. C
  149. C LANGAGE : ESOPE
  150. C AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SEMT/LTA)
  151. C mél : gounand@semt2.smts.cea.fr
  152. C***********************************************************************
  153. C VERSION : v1, 20/12/2017, version initiale
  154. C HISTORIQUE : v1, 20/12/2017, création
  155. C HISTORIQUE :
  156. C HISTORIQUE :
  157. C
  158. C***********************************************************************
  159. C
  160. C Segment MLENTX
  161. C Description :
  162. C
  163. SEGMENT MLENTX
  164. INTEGER JGINI,JGCOU
  165. INTEGER LECTX(JGMAX)
  166. ENDSEGMENT
  167. C
  168. C End of include MLENTX
  169. C
  170. C***********************************************************************
  171. C NOM : STOPINV.INC
  172. C DESCRIPTION :
  173. C
  174. *
  175. * Segment Topologie inverse tel que décrit dans la thèse de Gruau
  176. * p.171
  177. * Le tableau TLC contient des listes chaînées dont le dernier
  178. * élément est un -1
  179. * Le tableau TIC(I) contient un pointeur vers le premier élément de la
  180. * list chaînée (dans le tableau TLC) pour le Ieme noeud ou -1 si la
  181. * liste est vide
  182. * Le tableau TDC(I) contient la longueur de la Ieme liste chaînée
  183. * pour une liste vide). Ce dernier tableau ne serait pas obligatoire
  184. * d'après Gruau.
  185. * LDGT est l'index courant-1 dans TLC (normalement LDGT est un
  186. * multiple de IDIMP)
  187. *
  188. C
  189. C
  190. C LANGAGE : ESOPE
  191. C AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SEMT/LTA)
  192. C mél : gounand@semt2.smts.cea.fr
  193. C***********************************************************************
  194. C VERSION : v1, 03/10/2017, version initiale
  195. C HISTORIQUE : v1, 03/10/2017, création
  196. C HISTORIQUE :
  197. C HISTORIQUE :
  198. C
  199. C***********************************************************************
  200. C
  201. SEGMENT TOPINV
  202. INTEGER LDGT
  203. INTEGER TLC(IDIMP*NBELEM)
  204. INTEGER TIC(NBPTS)
  205. INTEGER TDC(NBPTS)
  206. ENDSEGMENT
  207. *
  208. C
  209. C End of include STOPINV
  210. C
  211. C***********************************************************************
  212. C NOM : STRAVJ.INC
  213. C DESCRIPTION :
  214. C
  215. C Segment de travail en numérotation locale avec des segments
  216. C extensibles.
  217. C
  218. C
  219. C LANGAGE : ESOPE
  220. C AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SEMT/LTA)
  221. C mél : gounand@semt2.smts.cea.fr
  222. C***********************************************************************
  223. C VERSION : v1, 11/10/2017, version initiale
  224. C HISTORIQUE : v1, 11/10/2017, création
  225. C HISTORIQUE :
  226. C HISTORIQUE :
  227. C
  228. C***********************************************************************
  229. C
  230. C Description :
  231. C
  232. * NVZER sert à compter le nombre d'elements nul que l'on introduit
  233. * en vue de déclencher un nettoyage (voir topdif)
  234. SEGMENT TRAVJ
  235. INTEGER NVINI,NPINI,NVCOU,NPCOU,NVMAX,NPMAX,NVZER
  236. * PVIRT est le noeud virtuel dans la numérotation locale
  237. * POINTEUR JCOORD.MCOORD
  238. * POINTEUR JNMETR.MOTS*4(NNIN).MLMOTS
  239. * POINTEUR JCMETR.XIN(NNIN,NPMAX).METRIQ
  240. * POINTEUR JTOPO.MELEME
  241. * POINTEUR JTOPI.TOPINV
  242. * POINTEUR JNBL(NVMAX).MLENTI
  243. * POINTEUR JNNO(NPMAX-NPINI).MLENTI
  244. INTEGER PVIRT
  245. INTEGER COORD
  246. INTEGER NMETR
  247. INTEGER CMETR
  248. INTEGER TOPO
  249. INTEGER TOPI
  250. INTEGER NBL
  251. INTEGER NNO
  252.  
  253. ** INTEGER NBL(NBELEM)
  254. ENDSEGMENT
  255. C
  256. C End of include STRAVJ
  257. C
  258. C***********************************************************************
  259. C NOM : STRAVL.INC
  260. C DESCRIPTION :
  261. C
  262. C Segment de travail en numérotation locale avec des segments
  263. C extensibles.
  264. C
  265. C
  266. C LANGAGE : ESOPE
  267. C AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SEMT/LTA)
  268. C mél : gounand@semt2.smts.cea.fr
  269. C***********************************************************************
  270. C VERSION : v1, 11/10/2017, version initiale
  271. C HISTORIQUE : v1, 11/10/2017, création
  272. C HISTORIQUE :
  273. C HISTORIQUE :
  274. C
  275. C***********************************************************************
  276. C
  277. C Segment TRAVL
  278. C Description :
  279. C
  280. * NVZER sert à compter le nombre d'elements nul que l'on introduit
  281. * en vue de déclencher un nettoyage (voir topdif)
  282. SEGMENT TRAVL
  283. INTEGER NCINI,NCCOU,NCMAX,NVOCOU,NINDI,NINDJ
  284. * POINTEUR LMCANS.MELEMX
  285. * POINTEUR LIDXCA(NCMAX+1).MLENTI
  286. * POINTEUR LOKVOL(NCMAX).MLENTI,NVOCOU
  287. * POINTEUR LQUALS(NLMAX).MLREEL,NLCOU
  288. * POINTEUR LNQUAL(NCMAX).MLENTI
  289. * POINTEUR LINDI(NCMAX),NINDI
  290. * POINTEUR LINDJ(NCMAX),NINDJ
  291. INTEGER MCANS
  292. INTEGER IDXCA
  293. INTEGER OKVOL
  294. INTEGER QUALS
  295. INTEGER NQUAL
  296. INTEGER INDI
  297. INTEGER INDJ
  298. *
  299. * POINTEUR IPBTL.MELEMX
  300. INTEGER PBTL
  301. *
  302.  
  303.  
  304. ** INTEGER NBL(NBELEM)
  305. ENDSEGMENT
  306. C
  307. C End of include STRAVL
  308. C
  309.  

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