Télécharger lire_med.dgibi

Retour à la liste

Numérotation des lignes :

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

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