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. ************************************************************************
  29.  
  30. OPTI TRAC 'PSC';
  31.  
  32. ************************************************************************
  33. * COMPATIBILITE VERSION 12.0
  34. ************************************************************************
  35.  
  36. * Lecture en Simple Precision
  37. TAB1 = LIRE 'FEM' '/u2/castem/divers/Unitaire.fem' ;
  38.  
  39. * MAILLAGES *
  40. MAIL1a = TAB1.'RBE2';
  41. MAIL2a = TAB1.'RBE3';
  42. MAIL3a = TAB1.'TRIAS1';
  43. MAIL4a = TAB1.'QUAD1';
  44. MAIL5a = TAB1.'TRIAS2';
  45. MAIL6a = TAB1.'QUAD2';
  46. MAIL7a = TAB1.'TETRA1';
  47. MAIL8a = TAB1.'PENTA1';
  48. MAIL9a = TAB1.'PYRA1';
  49. MAIL10a = TAB1.'HEXA1';
  50. MAIL11a = TAB1.'TETRA2';
  51. MAIL12a = TAB1.'PENTA2';
  52. MAIL13a = TAB1.'PYRA2';
  53. MAIL14a = TAB1.'HEXA2';
  54.  
  55. MAILTOT = MAIL1a ET MAIL2a ET MAIL3a ET MAIL4a ET MAIL5a ET MAIL6a
  56. ET MAIL7a ET MAIL8a ET MAIL9a ET MAIL10a ET MAIL11a ET MAIL12a
  57. ET MAIL13a ET MAIL14a ;
  58.  
  59. TRAC CACH MAILTOT ;
  60.  
  61. * Lecture en Double Precision
  62. TAB2 = LIRE 'FEM' '/u2/castem/divers/Unitaire_long.fem' ;
  63.  
  64. * MAILLAGES *
  65. MAIL1b = TAB2.'RBE2';
  66. MAIL2b = TAB2.'RBE3';
  67. MAIL3b = TAB2.'TRIAS1';
  68. MAIL4b = TAB2.'QUAD1';
  69. MAIL5b = TAB2.'TRIAS2';
  70. MAIL6b = TAB2.'QUAD2';
  71. MAIL7b = TAB2.'TETRA1';
  72. MAIL8b = TAB2.'PENTA1';
  73. MAIL9b = TAB2.'PYRA1';
  74. MAIL10b = TAB2.'HEXA1';
  75. MAIL11b = TAB2.'TETRA2';
  76. MAIL12b = TAB2.'PENTA2';
  77. MAIL13b = TAB2.'PYRA2';
  78. MAIL14b = TAB2.'HEXA2';
  79.  
  80. MAILTOT = MAIL1b ET MAIL2b ET MAIL3b ET MAIL4b ET MAIL5b ET MAIL6b
  81. ET MAIL7b ET MAIL8b ET MAIL9b ET MAIL10b ET MAIL11b ET MAIL12b
  82. ET MAIL13b ET MAIL14b ;
  83.  
  84. TRAC CACH MAILTOT ;
  85.  
  86.  
  87. ************************************************************************
  88. * COMPATIBILITE VERSION 14.0
  89. ************************************************************************
  90.  
  91. * Lecture en Simple Precision
  92. TAB3 = LIRE 'FEM' '/u2/castem/divers/Unitaire_v14.fem' ;
  93.  
  94. * MAILLAGES *
  95. MAIL1c = TAB3.'RBE2';
  96. MAIL2c = TAB3.'RBE3';
  97. MAIL3c = TAB3.'TRIAS1';
  98. MAIL4c = TAB3.'QUAD1';
  99. MAIL5c = TAB3.'TRIAS2';
  100. MAIL6c = TAB3.'QUAD2';
  101. MAIL7c = TAB3.'TETRA1';
  102. MAIL8c = TAB3.'PENTA1';
  103. MAIL9c = TAB3.'PYRA1';
  104. MAIL10c = TAB3.'HEXA1';
  105. MAIL11c = TAB3.'TETRA2';
  106. MAIL12c = TAB3.'PENTA2';
  107. MAIL13c = TAB3.'PYRA2';
  108. MAIL14c = TAB3.'HEXA2';
  109.  
  110. MAILTOT = MAIL1c ET MAIL2c ET MAIL3c ET MAIL4c ET MAIL5c ET MAIL6c
  111. ET MAIL7c ET MAIL8c ET MAIL9c ET MAIL10c ET MAIL11c ET MAIL12c
  112. ET MAIL13c ET MAIL14c ;
  113.  
  114. TRAC CACH MAILTOT ;
  115.  
  116. * Lecture en Double Precision
  117. TAB4 = LIRE 'FEM' '/u2/castem/divers/Unitaire_long_v14.fem' ;
  118.  
  119. * MAILLAGES *
  120. MAIL1d = TAB4.'RBE2';
  121. MAIL2d = TAB4.'RBE3';
  122. MAIL3d = TAB4.'TRIAS1';
  123. MAIL4d = TAB4.'QUAD1';
  124. MAIL5d = TAB4.'TRIAS2';
  125. MAIL6d = TAB4.'QUAD2';
  126. MAIL7d = TAB4.'TETRA1';
  127. MAIL8d = TAB4.'PENTA1';
  128. MAIL9d = TAB4.'PYRA1';
  129. MAIL10d = TAB4.'HEXA1';
  130. MAIL11d = TAB4.'TETRA2';
  131. MAIL12d = TAB4.'PENTA2';
  132. MAIL13d = TAB4.'PYRA2';
  133. MAIL14d = TAB4.'HEXA2';
  134.  
  135. MAILTOT = MAIL1d ET MAIL2d ET MAIL3d ET MAIL4d ET MAIL5d ET MAIL6d
  136. ET MAIL7d ET MAIL8d ET MAIL9d ET MAIL10d ET MAIL11d ET MAIL12d
  137. ET MAIL13d ET MAIL14d ;
  138.  
  139. TRAC CACH MAILTOT ;
  140.  
  141. FIN;
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  

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