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. ***********************************************************************
  26. TAB1 = LIRE 'MED'
  27. '/u2/castem/divers/Mesh_2D_biquadratic_arc.med';
  28. list TAB1 ;
  29. TAB2 = INDE TAB1 ;
  30. DIMT = DIME TAB2 ;
  31. REPE SURDIM DIMT ;
  32. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  33. FIN SURDIM ;
  34.  
  35. TAB1 = LIRE 'MED'
  36. '/u2/castem/divers/Mesh_2D_quadratic.med';
  37. list TAB1 ;
  38. TAB2 = INDE TAB1 ;
  39. DIMT = DIME TAB2 ;
  40. REPE SURDIM DIMT ;
  41. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  42. FIN SURDIM ;
  43.  
  44. TAB1 = LIRE 'MED'
  45. '/u2/castem/divers/Mesh_2D_quadratic_arc.med';
  46. list TAB1 ;
  47. TAB2 = INDE TAB1 ;
  48. DIMT = DIME TAB2 ;
  49. REPE SURDIM DIMT ;
  50. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  51. FIN SURDIM ;
  52.  
  53. TAB1 = LIRE 'MED' '/u2/castem/divers/Mesh_plan_3D.med';
  54. list TAB1 ;
  55. TAB2 = INDE TAB1 ;
  56. DIMT = DIME TAB2 ;
  57. REPE SURDIM DIMT ;
  58. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  59. FIN SURDIM ;
  60.  
  61.  
  62. TAB1 = LIRE 'MED'
  63. '/u2/castem/divers/Mesh_mechanic_tetra.med';
  64. list TAB1 ;
  65. TAB2 = INDE TAB1 ;
  66. DIMT = DIME TAB2 ;
  67. REPE SURDIM DIMT ;
  68. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  69. FIN SURDIM ;
  70.  
  71. TAB1 = LIRE 'MED'
  72. '/u2/castem/divers/Mesh_mechanic_tetra_quadratic.med';
  73. list TAB1 ;
  74. TAB2 = INDE TAB1 ;
  75. DIMT = DIME TAB2 ;
  76. REPE SURDIM DIMT ;
  77. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  78. FIN SURDIM ;
  79.  
  80. TAB1=LIRE 'MED'
  81. '/u2/castem/divers/Mesh_mechanic_tetra_quadratic_arc.med';
  82. list TAB1 ;
  83. TAB2 = INDE TAB1 ;
  84. DIMT = DIME TAB2 ;
  85. REPE SURDIM DIMT ;
  86. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  87. FIN SURDIM ;
  88.  
  89. TAB1 = LIRE 'MED'
  90. '/u2/castem/divers/Mesh_pyramids.med';
  91. list TAB1 ;
  92. TAB2 = INDE TAB1 ;
  93. DIMT = DIME TAB2 ;
  94. REPE SURDIM DIMT ;
  95. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  96. FIN SURDIM ;
  97.  
  98. TAB1 = LIRE 'MED'
  99. '/u2/castem/divers/Mesh_pyramids_quadratic.med';
  100. list TAB1 ;
  101. TAB2 = INDE TAB1 ;
  102. DIMT = DIME TAB2 ;
  103. REPE SURDIM DIMT ;
  104. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  105. FIN SURDIM ;
  106.  
  107. TAB1 = LIRE 'MED' '/u2/castem/divers/Mesh_sphere_hexa.med';
  108. list TAB1 ;
  109. TAB2 = INDE TAB1 ;
  110. DIMT = DIME TAB2 ;
  111. REPE SURDIM DIMT ;
  112. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  113. FIN SURDIM ;
  114.  
  115. TAB1= LIRE 'MED'
  116. '/u2/castem/divers/Mesh_sphere_hexa_quadratic_arc.med';
  117. list TAB1 ;
  118. TAB2 = INDE TAB1 ;
  119. DIMT = DIME TAB2 ;
  120. REPE SURDIM DIMT ;
  121. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  122. FIN SURDIM ;
  123.  
  124.  
  125. ***********************************************************************
  126. * Lecture de MAILLAGES Statiques avec plusieurs types d'éléments
  127. * - MAILLAGES avec plusieurs groupes par famille
  128. ***********************************************************************
  129. TAB1 = LIRE 'MED' '/u2/castem/divers/Mesh_structelem.med';
  130. list TAB1 ;
  131. TAB2 = INDE TAB1 ;
  132. DIMT = DIME TAB2 ;
  133. REPE SURDIM DIMT ;
  134. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  135. FIN SURDIM ;
  136.  
  137.  
  138. ***********************************************************************
  139. * Lecture de CHPOINT Statiques
  140. * -Actuellement seul les MAILLAGES contenus dans le fichier MED 3.0
  141. * sont relus
  142. ***********************************************************************
  143. TAB1 = LIRE 'MED'
  144. '/u2/castem/divers/testNodeFieldOnAll.med';
  145. list TAB1 ;
  146. TAB2 = INDE TAB1 ;
  147. DIMT = DIME TAB2 ;
  148. REPE SURDIM DIMT ;
  149. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  150. FIN SURDIM ;
  151.  
  152. TAB1 = LIRE 'MED'
  153. '/u2/castem/divers/testNodeFieldOnPart.med';
  154. list TAB1 ;
  155. TAB2 = INDE TAB1 ;
  156. DIMT = DIME TAB2 ;
  157. REPE SURDIM DIMT ;
  158. TRAC 'CACH' TAB1.(TAB2. &SURDIM);
  159. FIN SURDIM ;
  160.  
  161.  
  162. FIN;
  163.  
  164.  
  165.  
  166.  

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