Télécharger sort_nas.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : sort_nas.dgibi
  2.  
  3. ************************************************************************
  4. ************************************************************************
  5.  
  6. **********************************************************
  7. * Test sort_nas.dgibi: Jeux de données *
  8. * ------------------------------------ *
  9. **********************************************************
  10. * SI GRAPH = N PAS DE GRAPHIQUE AFFICHE
  11. * SINON SI GRAPH DIFFERENT DE N TOUS
  12. * LES GRAPHIQUES SONT AFFICHES
  13.  
  14. GRAPH = 'O' ;
  15.  
  16. SAUT PAGE;
  17. SI (NEG GRAPH 'N') ;
  18. OPTI ECHO 1 ;
  19. OPTI TRAC PSC ;
  20. SINO ;
  21. OPTI ECHO 0 ;
  22. FINSI ;
  23.  
  24. SAUT PAGE;
  25. *___________________________________________________________________
  26. * TEST SORT_NAS *
  27. * Lecture d'un fichier NASTRAN existant dans la base de donnee *
  28. * Verification de la sortie NASTRAN (M. Bulik) *
  29. * Relecture du MAILLAGE sorti pour verification *
  30. *__________________________________________________________________*
  31. *
  32.  
  33. * Lecture d'un fichier BULK de NASTRAN
  34. TAB1 = 'LIRE' 'NAS' '/u2/castem/divers/nastran_long.nas';
  35. TAB11= 'INDE' (TAB1.'MAILLAGES');
  36. MAIL1 = VIDE 'MAILLAGE';
  37. REPE SURI (DIME TAB11);
  38. MAIL1 = MAIL1 ET (TAB1.'MAILLAGES' . (TAB11 . &SURI));
  39. FIN SURI;
  40.  
  41.  
  42. * Sortie vers un fichier local
  43. 'OPTI' 'SORT' 'SORT_Nastran.nas';
  44. 'SORT' 'NAS' MAIL1;
  45.  
  46.  
  47. * Relecture du fichier ecrit
  48. 'OPTI' 'SORT' 'BIDON';
  49.  
  50. TAB2 = 'LIRE' 'NAS' 'SORT_Nastran.nas';
  51. TAB21= 'INDE' (TAB2.'MAILLAGES');
  52. MAIL2 = VIDE 'MAILLAGE';
  53. REPE SURI (DIME TAB21);
  54. MAIL2 = MAIL2 ET (TAB2.'MAILLAGES' . (TAB21 . &SURI));
  55. FIN SURI;
  56.  
  57. TRAC (MAIL1 ET (MAIL2 COUL ROUG));
  58.  
  59. FIN;
  60.  
  61.  
  62.  
  63.  
  64.  

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