Télécharger la plaquette Cast3M


fr en

Télécharger test_@mod.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : test_@mod.dgibi 
  2. ************************************************************************
  3. ************************************************************************
  4. ************************************************************************
  5. * NOM         : test_@mod
  6. * DESCRIPTION : test le fonctionnement de la procédure @mod
  7. *
  8. *
  9. *
  10. * LANGAGE     : GIBIANE-CAST3M
  11. * AUTEUR      : Pascal Maugis (CEA/DSM/LSCE)
  12. *               mail : pmaugis@cea.fr
  13. **********************************************************************
  14. * VERSION    : v1, 13/12/2006, version initiale
  15. * HISTORIQUE : v1, 13/12/2006, création
  16. * HISTORIQUE :
  17. * HISTORIQUE :
  18. ************************************************************************
  19. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  20. * en cas de modification de ce sous-programme afin de faciliter
  21. * la maintenance !
  22. ************************************************************************
  23. *
  24. *
  25. interact= VRAI ;
  26. 'OPTION' 'DIME' 3 'ELEM' CUB8  ;
  27. 'SI' ('NON' interact) ;
  28.   'OPTION' 'TRAC' 'PS' ;
  29. 'SINON' ;
  30.   'OPTION' 'TRAC' 'X' ;
  31. 'FINSI' ;  
  32.  
  33. * Scalaires
  34. * =========
  35.  
  36. * deux entiers
  37. a = @MOD 13 2 ;
  38. 'SI' (('NEG' a 1) 'OU' ('NEG' ('TYPE' a) 'ENTIER'));
  39.   'ERREUR' 5 ;
  40. 'FINSI' ;
  41.  
  42. * un entier, un réel
  43. a = @MOD 13 2. ;
  44. 'SI' (('NEG' a 1) 'OU' ('NEG' ('TYPE' a) 'FLOTTANT'));
  45.   'ERREUR' 5 ;
  46. 'FINSI' ;
  47.  
  48. * un réel, un entier
  49. a = @MOD 13. 2 ;
  50. 'SI' (('NEG' a 1) 'OU' ('NEG' ('TYPE' a) 'FLOTTANT'));
  51.   'ERREUR' 5 ;
  52. 'FINSI' ;
  53.  
  54. * deux réels
  55. a = @MOD 13. 2. ;
  56. 'SI' (('NEG' a 1) 'OU' ('NEG' ('TYPE' a) 'FLOTTANT'));
  57.   'ERREUR' 5 ;
  58. 'FINSI' ;
  59.  
  60. * listes
  61. * ======
  62.  
  63. * une liste d'entier, un entier
  64. a = 'EXTR' (@MOD ('LECT' -2 'PAS' 1 2) 2) 1 ;
  65. 'SI' (('NEG' a 0) 'OU'  ('NEG' ('TYPE' a) 'ENTIER'));
  66.   'ERREUR' 5 ;
  67. 'FINSI' ;
  68.  
  69. * une liste de réels, un scalaire
  70. a = 'EXTR' (@MOD ('PROG' -2. 'PAS' 1 2.) 2.) 1 ;
  71. 'SI' (('NEG' a 0) 'OU'  ('NEG' ('TYPE' a) 'FLOTTANT'));
  72.   'ERREUR' 5 ;
  73. 'FINSI' ;
  74.  
  75. * deux listes d'entiers
  76. a = 'EXTR' (@MOD ('LECT' -2 'PAS' 1 2) ('LECT' 5*2)) 1 ;
  77. 'SI' (('NEG' a 0) 'OU'  ('NEG' ('TYPE' a) 'ENTIER'));
  78.   'ERREUR' 5 ;
  79. 'FINSI' ;
  80.  
  81. * deux listes de réels
  82. a = 'EXTR' (@MOD ('PROG' -2. 'PAS' 1 2.) ('PROG' 5*2.)) 1 ;
  83. 'SI' (('NEG' a 0) 'OU'  ('NEG' ('TYPE' a) 'FLOTTANT'));
  84.   'ERREUR' 5 ;
  85. 'FINSI' ;
  86.  
  87. * Champ-points
  88. * ============
  89. * Pour plus tard.
  90.  
  91.  
  92. *
  93. * End of dgibi file 
  94. *
  95. 'FIN' ;
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  

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