Datasets examples

* fichier : test_@mod.dgibi 
************************************************************************
* NOM         : test_@mod
* DESCRIPTION : test le fonctionnement de la procédure @mod
*
*
*
* LANGAGE     : GIBIANE-CAST3M
* AUTEUR      : Pascal Maugis (CEA/DSM/LSCE)
*               mail : pmaugis@cea.fr
**********************************************************************
* VERSION    : v1, 13/12/2006, version initiale
* HISTORIQUE : v1, 13/12/2006, création
* HISTORIQUE :
* HISTORIQUE :
************************************************************************
* Prière de PRENDRE LE TEMPS de compléter les commentaires
* en cas de modification de ce sous-programme afin de faciliter
* la maintenance !
************************************************************************
*
*
interact= VRAI ;
'OPTION' 'DIME' 3 'ELEM' CUB8  ;
'SI' ('NON' interact) ;
  'OPTION' 'TRAC' 'PS' ;
'SINON' ;
  'OPTION' 'TRAC' 'X' ;
'FINSI' ;  

* Scalaires
* =========

* deux entiers
a = @MOD 13 2 ;
'SI' (('NEG' a 1) 'OU' ('NEG' ('TYPE' a) 'ENTIER'));
  'ERREUR' 5 ;
'FINSI' ;

* un entier, un réel
a = @MOD 13 2. ;
'SI' (('NEG' a 1) 'OU' ('NEG' ('TYPE' a) 'FLOTTANT'));
  'ERREUR' 5 ;
'FINSI' ;

* un réel, un entier
a = @MOD 13. 2 ;
'SI' (('NEG' a 1) 'OU' ('NEG' ('TYPE' a) 'FLOTTANT'));
  'ERREUR' 5 ;
'FINSI' ;

* deux réels
a = @MOD 13. 2. ;
'SI' (('NEG' a 1) 'OU' ('NEG' ('TYPE' a) 'FLOTTANT'));
  'ERREUR' 5 ;
'FINSI' ;

* listes
* ======

* une liste d'entier, un entier
a = 'EXTR' (@MOD ('LECT' -2 'PAS' 1 2) 2) 1 ;
'SI' (('NEG' a 0) 'OU'  ('NEG' ('TYPE' a) 'ENTIER'));
  'ERREUR' 5 ;
'FINSI' ;

* une liste de réels, un scalaire
a = 'EXTR' (@MOD ('PROG' -2. 'PAS' 1 2.) 2.) 1 ;
'SI' (('NEG' a 0) 'OU'  ('NEG' ('TYPE' a) 'FLOTTANT'));
  'ERREUR' 5 ;
'FINSI' ;

* deux listes d'entiers
a = 'EXTR' (@MOD ('LECT' -2 'PAS' 1 2) ('LECT' 5*2)) 1 ;
'SI' (('NEG' a 0) 'OU'  ('NEG' ('TYPE' a) 'ENTIER'));
  'ERREUR' 5 ;
'FINSI' ;

* deux listes de réels
a = 'EXTR' (@MOD ('PROG' -2. 'PAS' 1 2.) ('PROG' 5*2.)) 1 ;
'SI' (('NEG' a 0) 'OU'  ('NEG' ('TYPE' a) 'FLOTTANT'));
  'ERREUR' 5 ;
'FINSI' ;

* Champ-points
* ============
* Pour plus tard.


*
* End of dgibi file 
*
'FIN' ;