Télécharger la plaquette Cast3M


fr en

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