Télécharger lire_med_01.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : lire_med_01.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. * Presentation : Ce cas-test permet de 'LIRE' des fichiers au format MED
  6. * fournis par le LGLS pour validation
  7. * - v3.0.7
  8. * - v3.2.1
  9. *
  10. * Ameliorations a prevoir :
  11. * - 'LIRE' les MCHAML aux points d'intégration
  12. *
  13. * Creation : 11/03/2014
  14. * Createur : C. BERTHINIER
  15. *
  16. * Modifications :
  17. * CB215821 26/06/2015 : Passage à la lecture dans une TABLE pour les
  18. * noms à plus de 8 caractères
  19. * CB215821 01/02/2018 : Passage a la version 3.2.1 de MED
  20. * Ajout de la lecture des CHPOINT (Statiques & Temporels)
  21. * Ajout de la lecture des MCHAML (Statiques & Temporels)
  22. ************************************************************************
  23.  
  24. opti trac PSC;
  25.  
  26.  
  27. ***********************************************************************
  28. * Lecture de MAILLAGES Statiques avec plusieurs types d'éléments
  29. * Version 3.0.7
  30. ***********************************************************************
  31. FIC1 = 'CHAI' 'v3.0.7/Mesh_2D_biquadratic_arc.med';
  32. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  33. TAB1 = 'LIRE' 'MED' FIC2 ;
  34. list TAB1 ;
  35. TAB2 = INDE TAB1;
  36. REPE SURDIM (DIME TAB1);
  37. OBJLU = TAB1.(TAB2. &SURDIM);
  38. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  39. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  40. TRAC 'CACH' OBJLU 'TITR' Tit1;
  41. FINS;
  42. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  43. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  44. FINS;
  45. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  46. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  47. 'LIST' 'RESU' MCH;
  48. * Incompatible avec éléments 'TRI7' et 'QUA9'
  49. * MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  50. * 'TRAC' MOCH MCH 'TITR' Tit1;
  51. FINS;
  52. FIN SURDIM;
  53.  
  54. FIC1 = 'CHAI' 'v3.0.7/Mesh_2D_quadratic.med';
  55. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  56. TAB1 = 'LIRE' 'MED' FIC2 ;
  57. list TAB1 ;
  58. TAB2 = INDE TAB1;
  59. REPE SURDIM (DIME TAB1);
  60. OBJLU = TAB1.(TAB2. &SURDIM);
  61. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  62. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  63. TRAC 'CACH' OBJLU 'TITR' Tit1;
  64. FINS;
  65. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  66. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  67. FINS;
  68. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  69. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  70. 'LIST' 'RESU' MCH;
  71. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  72. 'TRAC' MOCH MCH 'TITR' Tit1;
  73. FINS;
  74. FIN SURDIM;
  75.  
  76. FIC1 = 'CHAI' 'v3.0.7/Mesh_2D_quadratic_arc.med';
  77. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  78. TAB1 = 'LIRE' 'MED' FIC2 ;
  79. list TAB1 ;
  80. TAB2 = INDE TAB1;
  81. REPE SURDIM (DIME TAB1);
  82. OBJLU = TAB1.(TAB2. &SURDIM);
  83. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  84. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  85. TRAC 'CACH' OBJLU 'TITR' Tit1;
  86. FINS;
  87. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  88. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  89. FINS;
  90. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  91. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  92. 'LIST' 'RESU' MCH;
  93. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  94. 'TRAC' MOCH MCH 'TITR' Tit1;
  95. FINS;
  96. FIN SURDIM;
  97.  
  98. FIC1 = 'CHAI' 'v3.0.7/Mesh_plan_3D.med';
  99. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  100. TAB1 = 'LIRE' 'MED' FIC2 ;
  101. list TAB1 ;
  102. TAB2 = INDE TAB1;
  103. REPE SURDIM (DIME TAB1);
  104. OBJLU = TAB1.(TAB2. &SURDIM);
  105. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  106. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  107. TRAC 'CACH' OBJLU 'TITR' Tit1;
  108. FINS;
  109. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  110. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  111. FINS;
  112. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  113. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  114. 'LIST' 'RESU' MCH;
  115. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  116. 'TRAC' MOCH MCH 'TITR' Tit1;
  117. FINS;
  118. FIN SURDIM;
  119.  
  120. FIC1 = 'CHAI' 'v3.0.7/Mesh_mechanic_tetra.med';
  121. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  122. TAB1 = 'LIRE' 'MED' FIC2 ;
  123. list TAB1 ;
  124. TAB2 = INDE TAB1;
  125. REPE SURDIM (DIME TAB1);
  126. OBJLU = TAB1.(TAB2. &SURDIM);
  127. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  128. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  129. TRAC 'CACH' OBJLU 'TITR' Tit1;
  130. FINS;
  131. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  132. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  133. FINS;
  134. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  135. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  136. 'LIST' 'RESU' MCH;
  137. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  138. 'TRAC' MOCH MCH 'TITR' Tit1;
  139. FINS;
  140. FIN SURDIM;
  141.  
  142. FIC1 = 'CHAI' 'v3.0.7/Mesh_mechanic_t_quad_arc.med';
  143. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  144. TAB1 = 'LIRE' 'MED' FIC2 ;
  145. list TAB1 ;
  146. TAB2 = INDE TAB1;
  147. REPE SURDIM (DIME TAB1);
  148. OBJLU = TAB1.(TAB2. &SURDIM);
  149. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  150. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  151. TRAC 'CACH' OBJLU 'TITR' Tit1;
  152. FINS;
  153. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  154. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  155. FINS;
  156. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  157. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  158. 'LIST' 'RESU' MCH;
  159. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  160. 'TRAC' MOCH MCH 'TITR' Tit1;
  161. FINS;
  162. FIN SURDIM;
  163.  
  164. FIC1 = 'CHAI' 'v3.0.7/Mesh_mechanic_t_quad.med';
  165. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  166. TAB1 = 'LIRE' 'MED' FIC2 ;
  167. list TAB1 ;
  168. TAB2 = INDE TAB1;
  169. REPE SURDIM (DIME TAB1);
  170. OBJLU = TAB1.(TAB2. &SURDIM);
  171. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  172. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  173. TRAC 'CACH' OBJLU 'TITR' Tit1;
  174. FINS;
  175. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  176. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  177. FINS;
  178. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  179. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  180. 'LIST' 'RESU' MCH;
  181. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  182. 'TRAC' MOCH MCH 'TITR' Tit1;
  183. FINS;
  184. FIN SURDIM;
  185.  
  186. FIC1 = 'CHAI' 'v3.0.7/Mesh_pyramids.med';
  187. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  188. TAB1 = 'LIRE' 'MED' FIC2 ;
  189. list TAB1 ;
  190. TAB2 = INDE TAB1;
  191. REPE SURDIM (DIME TAB1);
  192. OBJLU = TAB1.(TAB2. &SURDIM);
  193. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  194. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  195. TRAC 'CACH' OBJLU 'TITR' Tit1;
  196. FINS;
  197. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  198. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  199. FINS;
  200. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  201. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  202. 'LIST' 'RESU' MCH;
  203. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  204. 'TRAC' MOCH MCH 'TITR' Tit1;
  205. FINS;
  206. FIN SURDIM;
  207.  
  208. FIC1 = 'CHAI' 'v3.0.7/Mesh_pyramids_quadratic.med';
  209. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  210. TAB1 = 'LIRE' 'MED' FIC2 ;
  211. list TAB1 ;
  212. TAB2 = INDE TAB1;
  213. REPE SURDIM (DIME TAB1);
  214. OBJLU = TAB1.(TAB2. &SURDIM);
  215. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  216. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  217. TRAC 'CACH' OBJLU 'TITR' Tit1;
  218. FINS;
  219. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  220. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  221. FINS;
  222. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  223. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  224. 'LIST' 'RESU' MCH;
  225. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  226. 'TRAC' MOCH MCH 'TITR' Tit1;
  227. FINS;
  228. FIN SURDIM;
  229.  
  230. FIC1 = 'CHAI' 'v3.0.7/Mesh_sphere_hexa.med';
  231. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  232. TAB1 = 'LIRE' 'MED' FIC2 ;
  233. list TAB1 ;
  234. TAB2 = INDE TAB1;
  235. REPE SURDIM (DIME TAB1);
  236. OBJLU = TAB1.(TAB2. &SURDIM);
  237. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  238. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  239. TRAC 'CACH' OBJLU 'TITR' Tit1;
  240. FINS;
  241. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  242. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  243. FINS;
  244. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  245. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  246. 'LIST' 'RESU' MCH;
  247. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  248. 'TRAC' MOCH MCH 'TITR' Tit1;
  249. FINS;
  250. FIN SURDIM;
  251.  
  252. FIC1 = 'CHAI' 'v3.0.7/Mesh_sphere_h_quad_arc.med';
  253. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  254. TAB1 = 'LIRE' 'MED' FIC2 ;
  255. list TAB1 ;
  256. TAB2 = INDE TAB1;
  257. REPE SURDIM (DIME TAB1);
  258. OBJLU = TAB1.(TAB2. &SURDIM);
  259. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  260. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  261. TRAC 'CACH' OBJLU 'TITR' Tit1;
  262. FINS;
  263. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  264. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  265. FINS;
  266. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  267. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  268. 'LIST' 'RESU' MCH;
  269. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  270. 'TRAC' MOCH MCH 'TITR' Tit1;
  271. FINS;
  272. FIN SURDIM;
  273.  
  274. ***********************************************************************
  275. * Lecture de MAILLAGES Statiques avec plusieurs types d'éléments
  276. * - MAILLAGES avec plusieurs groupes par famille
  277. ***********************************************************************
  278. FIC1 = 'CHAI' 'v3.0.7/Mesh_structelem.med';
  279. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  280. TAB1 = 'LIRE' 'MED' FIC2 ;
  281. list TAB1 ;
  282. TAB2 = INDE TAB1;
  283. REPE SURDIM (DIME TAB1);
  284. OBJLU = TAB1.(TAB2. &SURDIM);
  285. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  286. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  287. TRAC 'CACH' OBJLU 'TITR' Tit1;
  288. FINS;
  289. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  290. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  291. FINS;
  292. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  293. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  294. 'LIST' 'RESU' MCH;
  295. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  296. 'TRAC' MOCH MCH 'TITR' Tit1;
  297. FINS;
  298. FIN SURDIM;
  299.  
  300. ***********************************************************************
  301. * Lecture de CHPOINT Statiques
  302. * -MAILLAGES
  303. * -CHPOINT
  304. ***********************************************************************
  305. FIC1 = 'CHAI' 'v3.0.7/testNodeFieldOnAll.med';
  306. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  307. TAB1 = 'LIRE' 'MED' FIC2 ;
  308. list TAB1 ;
  309. TAB2 = INDE TAB1;
  310. REPE SURDIM (DIME TAB1);
  311. OBJLU = TAB1.(TAB2. &SURDIM);
  312. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  313. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  314. TRAC 'CACH' OBJLU 'TITR' Tit1;
  315. FINS;
  316. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  317. TRAC OBJLU TAB1.'mesh' 'TITR' Tit1;
  318. FINS;
  319. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  320. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  321. 'LIST' 'RESU' MCH;
  322. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  323. 'TRAC' MOCH MCH 'TITR' Tit1;
  324. FINS;
  325. FIN SURDIM;
  326.  
  327. FIC1 = 'CHAI' 'v3.0.7/testNodeFieldOnPart.med';
  328. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  329. TAB1 = 'LIRE' 'MED' FIC2 ;
  330. list TAB1 ;
  331. TAB2 = INDE TAB1;
  332. REPE SURDIM (DIME TAB1);
  333. OBJLU = TAB1.(TAB2. &SURDIM);
  334. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  335. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  336. TRAC 'CACH' OBJLU 'TITR' Tit1;
  337. FINS;
  338. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  339. TRAC OBJLU TAB1.'mesh' 'TITR' Tit1;
  340. FINS;
  341. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  342. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  343. 'LIST' 'RESU' MCH;
  344. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  345. 'TRAC' MOCH MCH 'TITR' Tit1;
  346. FINS;
  347. FIN SURDIM;
  348.  
  349.  
  350.  
  351.  
  352. ***********************************************************************
  353. * Lecture de MAILLAGES Statiques avec plusieurs types d'éléments
  354. * Version 3.2.1
  355. ***********************************************************************
  356. FIC1 = 'CHAI' 'v3.2.1/Mesh_2D_biquadratic_arc.med';
  357. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  358. TAB1 = 'LIRE' 'MED' FIC2 ;
  359. list TAB1 ;
  360. TAB2 = INDE TAB1;
  361. REPE SURDIM (DIME TAB1);
  362. OBJLU = TAB1.(TAB2. &SURDIM);
  363. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  364. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  365. TRAC 'CACH' OBJLU 'TITR' Tit1;
  366. FINS;
  367. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  368. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  369. FINS;
  370. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  371. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  372. 'LIST' 'RESU' MCH;
  373. * Incompatible avec éléments 'TRI7' et 'QUA9'
  374. * MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  375. * 'TRAC' MOCH MCH 'TITR' Tit1;
  376. FINS;
  377. FIN SURDIM;
  378.  
  379. FIC1 = 'CHAI' 'v3.2.1/Mesh_2D_quadratic.med';
  380. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  381. TAB1 = 'LIRE' 'MED' FIC2 ;
  382. list TAB1 ;
  383. TAB2 = INDE TAB1;
  384. REPE SURDIM (DIME TAB1);
  385. OBJLU = TAB1.(TAB2. &SURDIM);
  386. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  387. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  388. TRAC 'CACH' OBJLU 'TITR' Tit1;
  389. FINS;
  390. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  391. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  392. FINS;
  393. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  394. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  395. 'LIST' 'RESU' MCH;
  396. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  397. 'TRAC' MOCH MCH 'TITR' Tit1;
  398. FINS;
  399. FIN SURDIM;
  400.  
  401. FIC1 = 'CHAI' 'v3.2.1/Mesh_2D_quadratic_arc.med';
  402. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  403. TAB1 = 'LIRE' 'MED' FIC2 ;
  404. list TAB1 ;
  405. TAB2 = INDE TAB1;
  406. REPE SURDIM (DIME TAB1);
  407. OBJLU = TAB1.(TAB2. &SURDIM);
  408. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  409. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  410. TRAC 'CACH' OBJLU 'TITR' Tit1;
  411. FINS;
  412. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  413. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  414. FINS;
  415. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  416. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  417. 'LIST' 'RESU' MCH;
  418. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  419. 'TRAC' MOCH MCH 'TITR' Tit1;
  420. FINS;
  421. FIN SURDIM;
  422.  
  423. FIC1 = 'CHAI' 'v3.2.1/Mesh_plan_3D.med';
  424. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  425. TAB1 = 'LIRE' 'MED' FIC2 ;
  426. list TAB1 ;
  427. TAB2 = INDE TAB1;
  428. REPE SURDIM (DIME TAB1);
  429. OBJLU = TAB1.(TAB2. &SURDIM);
  430. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  431. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  432. TRAC 'CACH' OBJLU 'TITR' Tit1;
  433. FINS;
  434. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  435. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  436. FINS;
  437. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  438. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  439. 'LIST' 'RESU' MCH;
  440. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  441. 'TRAC' MOCH MCH 'TITR' Tit1;
  442. FINS;
  443. FIN SURDIM;
  444.  
  445. FIC1 = 'CHAI' 'v3.2.1/Mesh_mechanic_tetra.med';
  446. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  447. TAB1 = 'LIRE' 'MED' FIC2 ;
  448. list TAB1 ;
  449. TAB2 = INDE TAB1;
  450. REPE SURDIM (DIME TAB1);
  451. OBJLU = TAB1.(TAB2. &SURDIM);
  452. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  453. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  454. TRAC 'CACH' OBJLU 'TITR' Tit1;
  455. FINS;
  456. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  457. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  458. FINS;
  459. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  460. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  461. 'LIST' 'RESU' MCH;
  462. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  463. 'TRAC' MOCH MCH 'TITR' Tit1;
  464. FINS;
  465. FIN SURDIM;
  466.  
  467. FIC1 = 'CHAI' 'v3.2.1/Mesh_mechanic_t_quad_arc.med';
  468. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  469. TAB1 = 'LIRE' 'MED' FIC2 ;
  470. list TAB1 ;
  471. TAB2 = INDE TAB1;
  472. REPE SURDIM (DIME TAB1);
  473. OBJLU = TAB1.(TAB2. &SURDIM);
  474. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  475. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  476. TRAC 'CACH' OBJLU 'TITR' Tit1;
  477. FINS;
  478. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  479. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  480. FINS;
  481. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  482. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  483. 'LIST' 'RESU' MCH;
  484. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  485. 'TRAC' MOCH MCH 'TITR' Tit1;
  486. FINS;
  487. FIN SURDIM;
  488.  
  489. FIC1 = 'CHAI' 'v3.2.1/Mesh_mechanic_t_quad.med';
  490. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  491. TAB1 = 'LIRE' 'MED' FIC2 ;
  492. list TAB1 ;
  493. TAB2 = INDE TAB1;
  494. REPE SURDIM (DIME TAB1);
  495. OBJLU = TAB1.(TAB2. &SURDIM);
  496. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  497. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  498. TRAC 'CACH' OBJLU 'TITR' Tit1;
  499. FINS;
  500. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  501. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  502. FINS;
  503. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  504. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  505. 'LIST' 'RESU' MCH;
  506. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  507. 'TRAC' MOCH MCH 'TITR' Tit1;
  508. FINS;
  509. FIN SURDIM;
  510.  
  511. FIC1 = 'CHAI' 'v3.2.1/Mesh_pyramids.med';
  512. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  513. TAB1 = 'LIRE' 'MED' FIC2 ;
  514. list TAB1 ;
  515. TAB2 = INDE TAB1;
  516. REPE SURDIM (DIME TAB1);
  517. OBJLU = TAB1.(TAB2. &SURDIM);
  518. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  519. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  520. TRAC 'CACH' OBJLU 'TITR' Tit1;
  521. FINS;
  522. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  523. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  524. FINS;
  525. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  526. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  527. 'LIST' 'RESU' MCH;
  528. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  529. 'TRAC' MOCH MCH 'TITR' Tit1;
  530. FINS;
  531. FIN SURDIM;
  532.  
  533. FIC1 = 'CHAI' 'v3.2.1/Mesh_pyramids_quadratic.med';
  534. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  535. TAB1 = 'LIRE' 'MED' FIC2 ;
  536. list TAB1 ;
  537. TAB2 = INDE TAB1;
  538. REPE SURDIM (DIME TAB1);
  539. OBJLU = TAB1.(TAB2. &SURDIM);
  540. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  541. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  542. TRAC 'CACH' OBJLU 'TITR' Tit1;
  543. FINS;
  544. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  545. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  546. FINS;
  547. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  548. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  549. 'LIST' 'RESU' MCH;
  550. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  551. 'TRAC' MOCH MCH 'TITR' Tit1;
  552. FINS;
  553. FIN SURDIM;
  554.  
  555. FIC1 = 'CHAI' 'v3.2.1/Mesh_sphere_hexa.med';
  556. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  557. TAB1 = 'LIRE' 'MED' FIC2 ;
  558. list TAB1 ;
  559. TAB2 = INDE TAB1;
  560. REPE SURDIM (DIME TAB1);
  561. OBJLU = TAB1.(TAB2. &SURDIM);
  562. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  563. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  564. TRAC 'CACH' OBJLU 'TITR' Tit1;
  565. FINS;
  566. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  567. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  568. FINS;
  569. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  570. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  571. 'LIST' 'RESU' MCH;
  572. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  573. 'TRAC' MOCH MCH 'TITR' Tit1;
  574. FINS;
  575. FIN SURDIM;
  576.  
  577. FIC1 = 'CHAI' 'v3.2.1/Mesh_sphere_h_quad_arc.med';
  578. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  579. TAB1 = 'LIRE' 'MED' FIC2 ;
  580. list TAB1 ;
  581. TAB2 = INDE TAB1;
  582. REPE SURDIM (DIME TAB1);
  583. OBJLU = TAB1.(TAB2. &SURDIM);
  584. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  585. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  586. TRAC 'CACH' OBJLU 'TITR' Tit1;
  587. FINS;
  588. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  589. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  590. FINS;
  591. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  592. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  593. 'LIST' 'RESU' MCH;
  594. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  595. 'TRAC' MOCH MCH 'TITR' Tit1;
  596. FINS;
  597. FIN SURDIM;
  598.  
  599. ***********************************************************************
  600. * Lecture de MAILLAGES Statiques avec plusieurs types d'éléments
  601. * - MAILLAGES avec plusieurs groupes par famille
  602. ***********************************************************************
  603. FIC1 = 'CHAI' 'v3.2.1/Mesh_structelem.med';
  604. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  605. TAB1 = 'LIRE' 'MED' FIC2 ;
  606. list TAB1 ;
  607. TAB2 = INDE TAB1;
  608. REPE SURDIM (DIME TAB1);
  609. OBJLU = TAB1.(TAB2. &SURDIM);
  610. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  611. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  612. TRAC 'CACH' OBJLU 'TITR' Tit1;
  613. FINS;
  614. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  615. TRAC OBJLU TAB1.'Mesh' 'TITR' Tit1;
  616. FINS;
  617. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  618. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  619. 'LIST' 'RESU' MCH;
  620. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  621. 'TRAC' MOCH MCH 'TITR' Tit1;
  622. FINS;
  623. FIN SURDIM;
  624.  
  625. ***********************************************************************
  626. * Lecture de CHPOINT Statiques
  627. * -MAILLAGES
  628. * -CHPOINT
  629. ***********************************************************************
  630. FIC1 = 'CHAI' 'v3.2.1/testNodeFieldOnAll.med';
  631. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  632. TAB1 = 'LIRE' 'MED' FIC2 ;
  633. list TAB1 ;
  634. TAB2 = INDE TAB1;
  635. REPE SURDIM (DIME TAB1);
  636. OBJLU = TAB1.(TAB2. &SURDIM);
  637. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  638. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  639. TRAC 'CACH' OBJLU 'TITR' Tit1;
  640. FINS;
  641. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  642. TRAC OBJLU TAB1.'mesh' 'TITR' Tit1;
  643. FINS;
  644. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  645. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  646. 'LIST' 'RESU' MCH;
  647. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  648. 'TRAC' MOCH MCH 'TITR' Tit1;
  649. FINS;
  650. FIN SURDIM;
  651.  
  652. FIC1 = 'CHAI' 'v3.2.1/testNodeFieldOnPart.med';
  653. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  654. TAB1 = 'LIRE' 'MED' FIC2 ;
  655. list TAB1 ;
  656. TAB2 = INDE TAB1;
  657. REPE SURDIM (DIME TAB1);
  658. OBJLU = TAB1.(TAB2. &SURDIM);
  659. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  660. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  661. TRAC 'CACH' OBJLU 'TITR' Tit1;
  662. FINS;
  663. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  664. TRAC OBJLU TAB1.'mesh' 'TITR' Tit1;
  665. FINS;
  666. SI ('EGA' (TYPE OBJLU) 'MCHAML');
  667. MCH = 'CHAN' 'CONS' OBJLU 'CONS1';
  668. 'LIST' 'RESU' MCH;
  669. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  670. 'TRAC' MOCH MCH 'TITR' Tit1;
  671. FINS;
  672. FIN SURDIM;
  673.  
  674. ***********************************************************************
  675. * Lecture de CHAMPS Temporels
  676. * -MAILLAGES
  677. * -CHPOINT
  678. * -MCHAML
  679. ***********************************************************************
  680. FIC1 = 'CHAI' 'v3.2.1/ForMEDReader10.med';
  681. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  682. TAB1 = 'LIRE' 'MED' FIC2;
  683. list TAB1 ;
  684. TAB2 = INDE TAB1;
  685. DIMT = DIME TAB2;
  686. REPE SURDIM DIMT;
  687. OBJLU = TAB1.(TAB2. &SURDIM);
  688. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  689. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  690. TRAC 'CACH' OBJLU 'TITR' Tit1;
  691. FINS;
  692. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  693. TRAC OBJLU TAB1.'mesh' 'TITR' Tit1;
  694. FINS;
  695. SI ('EGA' (TYPE OBJLU) 'TABLE');
  696. DIM2 = DIME TAB1.(TAB2. &SURDIM).(TAB2. &SURDIM) ;
  697. 'LIST' TAB1.(TAB2. &SURDIM).(TAB2. &SURDIM);
  698. REPE SURJ DIM2;
  699. Tps = TAB1.(TAB2. &SURDIM).'TEMPS'.(&SURJ-1) ;
  700. Tit2='CHAI' Tit1 ' - Temps=' Tps ;
  701. OBJ2=TAB1.(TAB2. &SURDIM).(TAB2. &SURDIM).(&SURJ-1) ;
  702. MOT2=TYPE TAB1.(TAB2. &SURDIM).(TAB2. &SURDIM).(&SURJ-1) ;
  703. SI(EGA ('TYPE' OBJ2) 'CHPOINT');
  704. TRAC TAB1.'mesh' TAB1.(TAB2. &SURDIM).(TAB2. &SURDIM).(&SURJ-1) 'TITR' Tit2;
  705. FINS;
  706. SI ('EGA' ('TYPE' OBJ2) 'MCHAML');
  707. MCH = 'CHAN' 'CONS' OBJ2 'CONS1';
  708. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  709. 'TRAC' MOCH MCH 'TITR' Tit2;
  710. FINS;
  711. FIN SURJ;
  712. FINS;
  713. FIN SURDIM;
  714.  
  715. *TAB1 = 'LIRE' 'MED' '/u2/castem/divers/MED/v3.2.1/ForMEDReader11.med';
  716. * Incompatible actuellement car : Valeurs aux points de Gauss
  717.  
  718. *TAB1 = 'LIRE' 'MED' '/u2/castem/divers/MED/v3.2.1/ForMEDReader13.med';
  719. * Incompatible actuellement car : Type d'élément incompatible:POLYGON & HEXAGON
  720.  
  721. FIC1 = 'CHAI' 'v3.2.1/ForMEDReader17.med';
  722. FIC2 = 'CHAI' '/u2/castem/divers/MED/' FIC1 ;
  723. TAB1 = 'LIRE' 'MED' FIC2;
  724. list TAB1 ;
  725. TAB2 = INDE TAB1;
  726. DIMT = DIME TAB2;
  727. REPE SURDIM DIMT;
  728. OBJLU = TAB1.(TAB2. &SURDIM);
  729. Tit1 = 'CHAI' FIC1 ' : ' (TAB2. &SURDIM) ;
  730. SI ('EGA' (TYPE OBJLU) 'MAILLAGE');
  731. TRAC 'CACH' OBJLU 'TITR' Tit1;
  732. FINS;
  733. SI ('EGA' (TYPE OBJLU) 'CHPOINT');
  734. TRAC OBJLU TAB1.'mesh' 'TITR' Tit1;
  735. FINS;
  736. SI ('EGA' (TYPE OBJLU) 'TABLE');
  737. DIM2 = DIME TAB1.(TAB2. &SURDIM).(TAB2. &SURDIM) ;
  738. 'LIST' TAB1.(TAB2. &SURDIM).(TAB2. &SURDIM);
  739. REPE SURJ DIM2;
  740. Tps = TAB1.(TAB2. &SURDIM).'TEMPS'.(&SURJ-1) ;
  741. Tit2='CHAI' Tit1 ' - Temps=' Tps ;
  742. OBJ2=TAB1.(TAB2. &SURDIM).(TAB2. &SURDIM).(&SURJ-1) ;
  743. MOT2=TYPE TAB1.(TAB2. &SURDIM).(TAB2. &SURDIM).(&SURJ-1) ;
  744. SI(EGA ('TYPE' OBJ2) 'CHPOINT');
  745. TRAC TAB1.'mesh' TAB1.(TAB2. &SURDIM).(TAB2. &SURDIM).(&SURJ-1) 'TITR' Tit2;
  746. FINS;
  747. SI ('EGA' ('TYPE' OBJ2) 'MCHAML');
  748. MCH = 'CHAN' 'CONS' OBJ2 'CONS1';
  749. MOCH = 'MODE' ('EXTR' MCH 'MAILLAGE') 'MECANIQUE' 'CONS' 'CONS1';
  750. 'TRAC' MOCH MCH 'TITR' Tit2;
  751. FINS;
  752. FIN SURJ;
  753. FINS;
  754. FIN SURDIM;
  755.  
  756. *TAB1 = 'LIRE' 'MED' '/u2/castem/divers/MED/v3.2.1/ForMEDReader25.med';
  757. * Incompatible actuellement car : Valeurs aux points de Gauss
  758.  
  759. *TAB1 = 'LIRE' 'MED' '/u2/castem/divers/MED/v3.2.1/ForMEDReader29.med';
  760. * Incompatible actuellement car : Valeurs aux points de Gauss
  761.  
  762. *TAB1 = 'LIRE' 'MED' '/u2/castem/divers/MED/v3.2.1/ForMEDReader33.med';
  763. * Incompatible actuellement car : Type d'élément incompatible:POLYGON
  764.  
  765. FIN;
  766.  
  767.  
  768.  

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