Télécharger la plaquette Cast3M


fr en

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

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