Télécharger posi.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : posi.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. 'OPTION' 'ECHO' 0 ;
  5. ************************************************************************
  6. * NOM : POSI
  7. * DESCRIPTION : Non regression pour l'operateur POSI
  8. *
  9. *
  10. *
  11. * LANGAGE : GIBIANE-CAST3M
  12. * AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  13. * mél : stephane.gounand@cea.fr
  14. **********************************************************************
  15. * VERSION : v1, 07/03/2014, version initiale
  16. * HISTORIQUE : v1, 07/03/2014, création
  17. * HISTORIQUE :
  18. * HISTORIQUE :
  19. ************************************************************************
  20. *
  21. interact = faux ;
  22. *
  23. 'OPTION' 'DIME' 2 'ELEM' 'QUA4' ;
  24. *
  25. NONORM = 'MOT' 'IDEN';
  26. LISNORM = 'MOTS' 'IDEN' 'KDIA';
  27. inorm = 'POSI' NONORM 'DANS' LISNORM;
  28. *mess inorm;
  29. ok = 'EGA' inorm 1 ;
  30. * renvoie 0 au lieu de 1 !!!
  31. *
  32. 'SI' ('NON' ok) ;
  33. 'MESSAGE' ('CHAINE' 'Il y a eu des erreurs') ;
  34. 'ERREUR' 5 ;
  35. 'SINON' ;
  36. 'MESSAGE' ('CHAINE' 'Tout sest bien passe !') ;
  37. 'FINSI' ;
  38. *
  39. 'SI' interact ;
  40. 'OPTION' 'ECHO' 1 ;
  41. 'OPTION' 'DONN' 5 ;
  42. 'FINSI' ;
  43. *
  44. * End of dgibi file POSI
  45. *
  46. 'FIN' ;
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  

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