Télécharger test_extr.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : test_extr.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. *
  5. ********************* CAS TEST : test_extr.dgibi *********************
  6. *
  7. *
  8. * Ce test permet de vérifier le bon fonctionnement de l'operateur EXTR
  9. * dans le cas des OBJETS MMODEL et MCHAML vides. Ces opérations
  10. * aboutissaient souvent a des GEMAT ERROR avant qu'une correction ne soit
  11. * apportée.
  12. *
  13. *-------------------------------------------------------------------
  14. * Auteur : CB215821 30/04/2015
  15. *-------------------------------------------------------------------
  16. *
  17. MMODVID = VIDE 'MMODEL' ;
  18. MAIL1 = 'EXTR' MMODVID 'MAILLAGE' ;list MAIL1;
  19. ZONE1 = 'EXTR' MMODVID 'ZONE' ;list ZONE1;
  20. NOCO1 = 'EXTR' MMODVID 'MATE' ;list NOCO1;
  21. CONS1 = 'EXTR' MMODVID 'CONS' 'TOTO' ;list CONS1;
  22. FORM1 = 'EXTR' MMODVID 'FORM' 'MECANIQUE' ;list FORM1;
  23. ELEM1 = 'EXTR' MMODVID 'ELEM' 'QUA4' ;list ELEM1;
  24. NOCO2 = 'EXTR' MMODVID 'DEPL' ;list NOCO2;
  25.  
  26. MCHMVID = VIDE 'MCHAML' ;
  27. MAIL1 = 'EXTR' MCHMVID 'MAILLAGE' ;list MAIL1;
  28. TITR1 = 'EXTR' MCHMVID 'TITR' ;list TITR1;
  29. TYPE1 = 'EXTR' MCHMVID 'TYPE' ;list TYPE1;
  30. COMP1 = 'EXTR' MCHMVID 'COMP' ;list COMP1;
  31. CONS1 = 'EXTR' MCHMVID 'CONS' ;list CONS1;
  32. DEVA1 = 'EXTR' MCHMVID 'DEVA' ;list DEVA1;
  33. COVA1 = 'EXTR' MCHMVID 'COVA' ;list COVA1;
  34.  
  35. FIN;
  36.  
  37.  
  38.  
  39.  
  40.  

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