Télécharger lire_fem.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : lire_fem.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. ************************************************************************
  6. * PRESENTATION *
  7. ************************************************************************
  8. * Ce cas-test permet de LIRE des MAILLAGES au format FEM
  9. * - Generated by HyperMesh Version : 12.0
  10. * 13.0
  11. * 14.0
  12. * - Generated using HyperMesh-Optistruct Template Version : 12.0
  13. * 13.0
  14. * 14.0
  15. *
  16. * Ameliorations a prevoir :
  17. * - Lire les BLOCAGES
  18. * - Lire les TEMPERATURES
  19. * - Lire les DEPLACEMENTS IMPOSES
  20. *
  21. * Creation : 29/11/2013
  22. * Createur : C. BERTHINIER
  23. *
  24. * Modifications :
  25. * CB215821 26/06/2015 : Passage à la lecture dans une TABLE pour les
  26. * noms à plus de 8 caractères
  27. * CB215821 07/03/2016 : Portage pour la lecture des Versions 14.0
  28. * CB215821 07/11/2017 : Ajout des SETS d'ELEMENTS et de NOEUDS
  29. ************************************************************************
  30.  
  31. OPTI TRAC 'PSC';
  32.  
  33. ************************************************************************
  34. * COMPATIBILITE VERSION 12.0
  35. ************************************************************************
  36.  
  37. * Lecture en Simple Precision
  38. TAB1 = LIRE 'FEM' '/u2/castem/divers/Unitaire.fem' ;
  39.  
  40. * MAILLAGES *
  41. MAIL1a = TAB1.'RBE2';
  42. MAIL2a = TAB1.'RBE3';
  43. MAIL3a = TAB1.'TRIAS1';
  44. MAIL4a = TAB1.'QUAD1';
  45. MAIL5a = TAB1.'TRIAS2';
  46. MAIL6a = TAB1.'QUAD2';
  47. MAIL7a = TAB1.'TETRA1';
  48. MAIL8a = TAB1.'PENTA1';
  49. MAIL9a = TAB1.'PYRA1';
  50. MAIL10a = TAB1.'HEXA1';
  51. MAIL11a = TAB1.'TETRA2';
  52. MAIL12a = TAB1.'PENTA2';
  53. MAIL13a = TAB1.'PYRA2';
  54. MAIL14a = TAB1.'HEXA2';
  55.  
  56. MAILTOT = MAIL1a ET MAIL2a ET MAIL3a ET MAIL4a ET MAIL5a ET MAIL6a
  57. ET MAIL7a ET MAIL8a ET MAIL9a ET MAIL10a ET MAIL11a ET MAIL12a
  58. ET MAIL13a ET MAIL14a ;
  59.  
  60. TRAC CACH MAILTOT ;
  61.  
  62. * Lecture en Double Precision
  63. TAB2 = LIRE 'FEM' '/u2/castem/divers/Unitaire_long.fem' ;
  64.  
  65. * MAILLAGES *
  66. MAIL1b = TAB2.'RBE2';
  67. MAIL2b = TAB2.'RBE3';
  68. MAIL3b = TAB2.'TRIAS1';
  69. MAIL4b = TAB2.'QUAD1';
  70. MAIL5b = TAB2.'TRIAS2';
  71. MAIL6b = TAB2.'QUAD2';
  72. MAIL7b = TAB2.'TETRA1';
  73. MAIL8b = TAB2.'PENTA1';
  74. MAIL9b = TAB2.'PYRA1';
  75. MAIL10b = TAB2.'HEXA1';
  76. MAIL11b = TAB2.'TETRA2';
  77. MAIL12b = TAB2.'PENTA2';
  78. MAIL13b = TAB2.'PYRA2';
  79. MAIL14b = TAB2.'HEXA2';
  80.  
  81. MAILTOT = MAIL1b ET MAIL2b ET MAIL3b ET MAIL4b ET MAIL5b ET MAIL6b
  82. ET MAIL7b ET MAIL8b ET MAIL9b ET MAIL10b ET MAIL11b ET MAIL12b
  83. ET MAIL13b ET MAIL14b ;
  84.  
  85. TRAC CACH MAILTOT ;
  86.  
  87.  
  88. ************************************************************************
  89. * COMPATIBILITE VERSION 14.0
  90. ************************************************************************
  91.  
  92. * Lecture en Simple Precision
  93. TAB3 = LIRE 'FEM' '/u2/castem/divers/Unitaire_v14.fem' ;
  94.  
  95. * MAILLAGES *
  96. MAIL1c = TAB3.'RBE2';
  97. MAIL2c = TAB3.'RBE3';
  98. MAIL3c = TAB3.'TRIAS1';
  99. MAIL4c = TAB3.'QUAD1';
  100. MAIL5c = TAB3.'TRIAS2';
  101. MAIL6c = TAB3.'QUAD2';
  102. MAIL7c = TAB3.'TETRA1';
  103. MAIL8c = TAB3.'PENTA1';
  104. MAIL9c = TAB3.'PYRA1';
  105. MAIL10c = TAB3.'HEXA1';
  106. MAIL11c = TAB3.'TETRA2';
  107. MAIL12c = TAB3.'PENTA2';
  108. MAIL13c = TAB3.'PYRA2';
  109. MAIL14c = TAB3.'HEXA2';
  110.  
  111. MAILTOT = MAIL1c ET MAIL2c ET MAIL3c ET MAIL4c ET MAIL5c ET MAIL6c
  112. ET MAIL7c ET MAIL8c ET MAIL9c ET MAIL10c ET MAIL11c ET MAIL12c
  113. ET MAIL13c ET MAIL14c ;
  114.  
  115. SETNOEUD = TAB3.'set_NOEUDS';
  116. SETELEME = TAB3.'set_ELEMENTS';
  117.  
  118. TRAC CACH MAILTOT ;
  119. TRAC CACH SETNOEUD ;
  120. TRAC CACH SETELEME ;
  121.  
  122. * Lecture en Double Precision
  123. TAB4 = LIRE 'FEM' '/u2/castem/divers/Unitaire_long_v14.fem' ;
  124.  
  125. * MAILLAGES *
  126. MAIL1d = TAB4.'RBE2';
  127. MAIL2d = TAB4.'RBE3';
  128. MAIL3d = TAB4.'TRIAS1';
  129. MAIL4d = TAB4.'QUAD1';
  130. MAIL5d = TAB4.'TRIAS2';
  131. MAIL6d = TAB4.'QUAD2';
  132. MAIL7d = TAB4.'TETRA1';
  133. MAIL8d = TAB4.'PENTA1';
  134. MAIL9d = TAB4.'PYRA1';
  135. MAIL10d = TAB4.'HEXA1';
  136. MAIL11d = TAB4.'TETRA2';
  137. MAIL12d = TAB4.'PENTA2';
  138. MAIL13d = TAB4.'PYRA2';
  139. MAIL14d = TAB4.'HEXA2';
  140.  
  141. MAILTOT = MAIL1d ET MAIL2d ET MAIL3d ET MAIL4d ET MAIL5d ET MAIL6d
  142. ET MAIL7d ET MAIL8d ET MAIL9d ET MAIL10d ET MAIL11d ET MAIL12d
  143. ET MAIL13d ET MAIL14d ;
  144.  
  145. SETNOEUD = TAB4.'set_NOEUDS';
  146. SETELEME = TAB4.'set_ELEMENTS';
  147.  
  148. TRAC CACH MAILTOT ;
  149. TRAC CACH SETNOEUD ;
  150. TRAC CACH SETELEME ;
  151.  
  152. FIN;
  153.  
  154.  
  155.  
  156.  

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