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. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.0.7/Mesh_2D_biquadratic_arc.med';
  32. list TAB1 ;
  33. TAB2 = INDE TAB1 ;
  34. DIMT = DIME TAB2 ;
  35. REPE SURDIM DIMT ;
  36. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  37. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  38. FINS;
  39. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  40. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  41. FINS;
  42. FIN SURDIM ;
  43.  
  44. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.0.7/Mesh_2D_quadratic.med';
  45. list TAB1 ;
  46. TAB2 = INDE TAB1 ;
  47. DIMT = DIME TAB2 ;
  48. REPE SURDIM DIMT ;
  49. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  50. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  51. FINS;
  52. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  53. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  54. FINS;
  55. FIN SURDIM ;
  56.  
  57. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.0.7/Mesh_2D_quadratic_arc.med';
  58. list TAB1 ;
  59. TAB2 = INDE TAB1 ;
  60. DIMT = DIME TAB2 ;
  61. REPE SURDIM DIMT ;
  62. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  63. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  64. FINS;
  65. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  66. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  67. FINS;
  68. FIN SURDIM ;
  69.  
  70. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.0.7/Mesh_plan_3D.med';
  71. list TAB1 ;
  72. TAB2 = INDE TAB1 ;
  73. DIMT = DIME TAB2 ;
  74. REPE SURDIM DIMT ;
  75. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  76. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  77. FINS;
  78. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  79. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  80. FINS;
  81. FIN SURDIM ;
  82.  
  83.  
  84. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.0.7/Mesh_mechanic_tetra.med';
  85. list TAB1 ;
  86. TAB2 = INDE TAB1 ;
  87. DIMT = DIME TAB2 ;
  88. REPE SURDIM DIMT ;
  89. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  90. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  91. FINS;
  92. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  93. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  94. FINS;
  95. FIN SURDIM ;
  96.  
  97. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.0.7/Mesh_mechanic_t_quad_arc.med';
  98. list TAB1 ;
  99. TAB2 = INDE TAB1 ;
  100. DIMT = DIME TAB2 ;
  101. REPE SURDIM DIMT ;
  102. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  103. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  104. FINS;
  105. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  106. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  107. FINS;
  108. FIN SURDIM ;
  109.  
  110. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.0.7/Mesh_mechanic_t_quad.med';
  111. list TAB1 ;
  112. TAB2 = INDE TAB1 ;
  113. DIMT = DIME TAB2 ;
  114. REPE SURDIM DIMT ;
  115. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  116. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  117. FINS;
  118. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  119. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  120. FINS;
  121. FIN SURDIM ;
  122.  
  123. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.0.7/Mesh_pyramids.med';
  124. list TAB1 ;
  125. TAB2 = INDE TAB1 ;
  126. DIMT = DIME TAB2 ;
  127. REPE SURDIM DIMT ;
  128. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  129. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  130. FINS;
  131. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  132. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  133. FINS;
  134. FIN SURDIM ;
  135.  
  136. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.0.7/Mesh_pyramids_quadratic.med';
  137. list TAB1 ;
  138. TAB2 = INDE TAB1 ;
  139. DIMT = DIME TAB2 ;
  140. REPE SURDIM DIMT ;
  141. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  142. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  143. FINS;
  144. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  145. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  146. FINS;
  147. FIN SURDIM ;
  148.  
  149. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.0.7/Mesh_sphere_hexa.med';
  150. list TAB1 ;
  151. TAB2 = INDE TAB1 ;
  152. DIMT = DIME TAB2 ;
  153. REPE SURDIM DIMT ;
  154. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  155. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  156. FINS;
  157. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  158. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  159. FINS;
  160. FIN SURDIM ;
  161.  
  162. TAB1= LIRE 'MED' '/u2/castem/divers/MED/v3.0.7/Mesh_sphere_h_quad_arc.med';
  163. list TAB1 ;
  164. TAB2 = INDE TAB1 ;
  165. DIMT = DIME TAB2 ;
  166. REPE SURDIM DIMT ;
  167. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  168. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  169. FINS;
  170. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  171. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  172. FINS;
  173. FIN SURDIM ;
  174.  
  175.  
  176. ***********************************************************************
  177. * Lecture de MAILLAGES Statiques avec plusieurs types d'éléments
  178. * - MAILLAGES avec plusieurs groupes par famille
  179. ***********************************************************************
  180. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.0.7/Mesh_structelem.med';
  181. list TAB1 ;
  182. TAB2 = INDE TAB1 ;
  183. DIMT = DIME TAB2 ;
  184. REPE SURDIM DIMT ;
  185. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  186. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  187. FINS;
  188. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  189. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  190. FINS;
  191. FIN SURDIM ;
  192.  
  193.  
  194. ***********************************************************************
  195. * Lecture de CHPOINT Statiques
  196. * -MAILLAGES
  197. * -CHPOINT
  198. ***********************************************************************
  199. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.0.7/testNodeFieldOnAll.med';
  200. list TAB1 ;
  201. TAB2 = INDE TAB1 ;
  202. DIMT = DIME TAB2 ;
  203. REPE SURDIM DIMT ;
  204. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  205. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  206. FINS;
  207. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  208. TRAC TAB1.(TAB2. &SURDIM) TAB1.'mesh';
  209. FINS;
  210. FIN SURDIM ;
  211.  
  212. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.0.7/testNodeFieldOnPart.med';
  213. list TAB1 ;
  214. TAB2 = INDE TAB1 ;
  215. DIMT = DIME TAB2 ;
  216. REPE SURDIM DIMT ;
  217. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  218. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  219. FINS;
  220. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  221. TRAC TAB1.(TAB2. &SURDIM) TAB1.'mesh';
  222. FINS;
  223. FIN SURDIM ;
  224.  
  225. 'MESS' 'MED 3.2.1 ne se compile pas sur AIX car necessite de C++ ...';
  226. 'MESS' 'Retirer FIN; ci dessous pour tester sur Linux, Windows et MAC';
  227.  
  228.  
  229.  
  230. ***********************************************************************
  231. * Lecture de MAILLAGES Statiques avec plusieurs types d'éléments
  232. * Version 3.2.1
  233. ***********************************************************************
  234. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/Mesh_2D_biquadratic_arc.med';
  235. list TAB1 ;
  236. TAB2 = INDE TAB1 ;
  237. DIMT = DIME TAB2 ;
  238. REPE SURDIM DIMT ;
  239. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  240. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  241. FINS;
  242. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  243. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  244. FINS;
  245. FIN SURDIM ;
  246.  
  247. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/Mesh_2D_quadratic.med';
  248. list TAB1 ;
  249. TAB2 = INDE TAB1 ;
  250. DIMT = DIME TAB2 ;
  251. REPE SURDIM DIMT ;
  252. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  253. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  254. FINS;
  255. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  256. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  257. FINS;
  258. FIN SURDIM ;
  259.  
  260. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/Mesh_2D_quadratic_arc.med';
  261. list TAB1 ;
  262. TAB2 = INDE TAB1 ;
  263. DIMT = DIME TAB2 ;
  264. REPE SURDIM DIMT ;
  265. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  266. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  267. FINS;
  268. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  269. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  270. FINS;
  271. FIN SURDIM ;
  272.  
  273. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/Mesh_plan_3D.med';
  274. list TAB1 ;
  275. TAB2 = INDE TAB1 ;
  276. DIMT = DIME TAB2 ;
  277. REPE SURDIM DIMT ;
  278. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  279. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  280. FINS;
  281. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  282. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  283. FINS;
  284. FIN SURDIM ;
  285.  
  286.  
  287. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/Mesh_mechanic_tetra.med';
  288. list TAB1 ;
  289. TAB2 = INDE TAB1 ;
  290. DIMT = DIME TAB2 ;
  291. REPE SURDIM DIMT ;
  292. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  293. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  294. FINS;
  295. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  296. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  297. FINS;
  298. FIN SURDIM ;
  299.  
  300. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/Mesh_mechanic_t_quad_arc.med';
  301. list TAB1 ;
  302. TAB2 = INDE TAB1 ;
  303. DIMT = DIME TAB2 ;
  304. REPE SURDIM DIMT ;
  305. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  306. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  307. FINS;
  308. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  309. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  310. FINS;
  311. FIN SURDIM ;
  312.  
  313. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/Mesh_mechanic_t_quad.med';
  314. list TAB1 ;
  315. TAB2 = INDE TAB1 ;
  316. DIMT = DIME TAB2 ;
  317. REPE SURDIM DIMT ;
  318. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  319. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  320. FINS;
  321. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  322. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  323. FINS;
  324. FIN SURDIM ;
  325.  
  326. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/Mesh_pyramids.med';
  327. list TAB1 ;
  328. TAB2 = INDE TAB1 ;
  329. DIMT = DIME TAB2 ;
  330. REPE SURDIM DIMT ;
  331. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  332. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  333. FINS;
  334. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  335. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  336. FINS;
  337. FIN SURDIM ;
  338.  
  339. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/Mesh_pyramids_quadratic.med';
  340. list TAB1 ;
  341. TAB2 = INDE TAB1 ;
  342. DIMT = DIME TAB2 ;
  343. REPE SURDIM DIMT ;
  344. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  345. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  346. FINS;
  347. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  348. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  349. FINS;
  350. FIN SURDIM ;
  351.  
  352. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/Mesh_sphere_hexa.med';
  353. list TAB1 ;
  354. TAB2 = INDE TAB1 ;
  355. DIMT = DIME TAB2 ;
  356. REPE SURDIM DIMT ;
  357. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  358. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  359. FINS;
  360. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  361. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  362. FINS;
  363. FIN SURDIM ;
  364.  
  365. TAB1= LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/Mesh_sphere_h_quad_arc.med';
  366. list TAB1 ;
  367. TAB2 = INDE TAB1 ;
  368. DIMT = DIME TAB2 ;
  369. REPE SURDIM DIMT ;
  370. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  371. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  372. FINS;
  373. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  374. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  375. FINS;
  376. FIN SURDIM ;
  377.  
  378.  
  379. ***********************************************************************
  380. * Lecture de MAILLAGES Statiques avec plusieurs types d'éléments
  381. * - MAILLAGES avec plusieurs groupes par famille
  382. ***********************************************************************
  383. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/Mesh_structelem.med';
  384. list TAB1 ;
  385. TAB2 = INDE TAB1 ;
  386. DIMT = DIME TAB2 ;
  387. REPE SURDIM DIMT ;
  388. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  389. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  390. FINS;
  391. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  392. TRAC TAB1.(TAB2. &SURDIM) TAB1.'Mesh';
  393. FINS;
  394. FIN SURDIM ;
  395.  
  396.  
  397. ***********************************************************************
  398. * Lecture de CHPOINT Statiques
  399. * -MAILLAGES
  400. * -CHPOINT
  401. ***********************************************************************
  402. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/testNodeFieldOnAll.med';
  403. list TAB1 ;
  404. TAB2 = INDE TAB1 ;
  405. DIMT = DIME TAB2 ;
  406. REPE SURDIM DIMT ;
  407. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  408. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  409. FINS;
  410. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  411. TRAC TAB1.(TAB2. &SURDIM) TAB1.'mesh';
  412. FINS;
  413. FIN SURDIM ;
  414.  
  415. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/testNodeFieldOnPart.med';
  416. list TAB1 ;
  417. TAB2 = INDE TAB1 ;
  418. DIMT = DIME TAB2 ;
  419. REPE SURDIM DIMT ;
  420. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'MAILLAGE');
  421. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  422. FINS;
  423. SI ('EGA' (TYPE TAB1.(TAB2. &SURDIM)) 'CHPOINT');
  424. TRAC TAB1.(TAB2. &SURDIM) TAB1.'mesh';
  425. FINS;
  426. FIN SURDIM ;
  427.  
  428.  
  429. ***********************************************************************
  430. * Lecture de CHAMPS Temporels
  431. * -MAILLAGES
  432. * -CHPOINT
  433. * -MCHAML
  434. ***********************************************************************
  435. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/ForMEDReader10.med';
  436. list TAB1 ;
  437. TAB2 = INDE TAB1 ;
  438. DIMT = DIME TAB2 ;
  439. REPE SURDIM DIMT ;
  440. MOT1 = TYPE TAB1.(TAB2. &SURDIM) ;
  441. SI ('EGA' MOT1 'MAILLAGE');
  442. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  443. FINS;
  444. SI ('EGA' MOT1 'CHPOINT');
  445. TRAC TAB1.(TAB2. &SURDIM) TAB1.'mesh';
  446. FINS;
  447. SI ('EGA' MOT1 'TABLE');
  448. DIM2 = DIME TAB1.(TAB2. &SURDIM).(TAB2. &SURDIM) ;
  449. REPE SURJ DIM2;
  450. TIT1=CHAI 'Temps t=' TAB1.(TAB2. &SURDIM).'TEMPS'.(&SURJ-1) ;
  451. TRAC TAB1.'mesh' TAB1.(TAB2. &SURDIM).(TAB2. &SURDIM).(&SURJ-1) 'TITR' TIT1;
  452. FIN SURJ;
  453. FINS;
  454. FIN SURDIM ;
  455.  
  456. *TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/ForMEDReader11.med';
  457. * Incompatible actuellement car : Valeurs aux points de Gauss
  458.  
  459. *TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/ForMEDReader13.med';
  460. * Incompatible actuellement car : Type d'élément incompatible:POLYGON & HEXAGON
  461.  
  462. TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/ForMEDReader17.med';
  463. list TAB1 ;
  464. TAB2 = INDE TAB1 ;
  465. DIMT = DIME TAB2 ;
  466. REPE SURDIM DIMT ;
  467. MOT1 = TYPE TAB1.(TAB2. &SURDIM) ;
  468. SI ('EGA' MOT1 'MAILLAGE');
  469. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  470. FINS;
  471. SI ('EGA' MOT1 'CHPOINT');
  472. TRAC TAB1.(TAB2. &SURDIM) TAB1.'mesh';
  473. FINS;
  474. SI ('EGA' MOT1 'TABLE');
  475. DIM2 = DIME TAB1.(TAB2. &SURDIM).(TAB2. &SURDIM) ;
  476. REPE SURJ DIM2;
  477. TIT1=CHAI 'Temps t=' TAB1.(TAB2. &SURDIM).'TEMPS'.(&SURJ-1) ;
  478. MOT2=TYPE TAB1.(TAB2. &SURDIM).(TAB2. &SURDIM).(&SURJ-1) ;
  479. SI(EGA MOT2 'CHPOINT');
  480. TRAC TAB1.'mesh' TAB1.(TAB2. &SURDIM).(TAB2. &SURDIM).(&SURJ-1) 'TITR' TIT1;
  481. FINS;
  482. FIN SURJ;
  483. FINS;
  484. FIN SURDIM ;
  485.  
  486. *TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/ForMEDReader25.med';
  487. * Incompatible actuellement car : Valeurs aux points de Gauss
  488.  
  489. *TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/ForMEDReader29.med';
  490. * Incompatible actuellement car : Valeurs aux points de Gauss
  491.  
  492. *TAB1 = LIRE 'MED' '/u2/castem/divers/MED/v3.2.1/ForMEDReader33.med';
  493. * Incompatible actuellement car : Type d'élément incompatible:POLYGON
  494.  
  495. FIN;
  496.  
  497.  
  498.  
  499.  
  500.  
  501.  

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