Télécharger xpetit_xgrand_xzprec.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : xpetit_xgrand_xzprec.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. ************************************************************************
  6. * Teste les OPTIONS suivantes :
  7. * Recuperation de XGRAND,XPETIT et XZPREC (Voir CCOPTIO.INC) qui sont
  8. * des valeurs dependant machine
  9. *
  10. * Ces valeurs peuvent être redefinies avec VALE (quasi dual de OPTI)
  11. ************************************************************************
  12.  
  13.  
  14. * Recuperation des Valeurs par defaut du systeme :
  15. XPETIT = 'VALE' 'PETI';
  16. XGRAND = 'VALE' 'GRAN';
  17. XZPREC = 'VALE' 'PREC';
  18.  
  19. 'MESS' 'XPETIT XGRAND XZPREC ' XPETIT XGRAND XZPREC;
  20.  
  21. * Surcharge des Valeurs du systeme :
  22. XPETIT0 = 1.D-10 ;
  23. XGRAND0 = 1.D+10 ;
  24. XZPREC0 = 1.5D-5 ;
  25.  
  26. 'OPTI' 'PETI' XPETIT0;
  27. 'OPTI' 'GRAN' XGRAND0;
  28. 'OPTI' 'PREC' XZPREC0;
  29.  
  30. * Recuperation des Nouvelles Valeurs pour verification :
  31. XPETIT1 = 'VALE' 'PETI';
  32. XGRAND1 = 'VALE' 'GRAN';
  33. XZPREC1 = 'VALE' 'PREC';
  34.  
  35. * Comparaison des valeurs aux valeurs souhaitees :
  36. DXPE = 'ABS' (XPETIT0 - XPETIT1);
  37. DXGR = 'ABS' (XGRAND0 - XGRAND1);
  38. DXPR = 'ABS' (XZPREC0 - XZPREC1);
  39.  
  40. 'MESS' 'DXPE DXGR DXPR' DXPE DXGR DXPR;
  41. 'SI' (DXPE '>' XZPREC);
  42. 'MESS' 'Erreur affectation XPETIT ' XPETIT0 XPETIT1;
  43. 'ERRE' 5;
  44. 'FINS';
  45. 'SI' (DXGR '>' XZPREC);
  46. 'MESS' 'Erreur affectation XGRAND ' XGRAND0 XGRAND1;
  47. 'ERRE' 5;
  48. 'FINS';
  49. 'SI' (DXPR '>' XZPREC);
  50. 'MESS' 'Erreur affectation XZPREC ' XZPREC0 XZPREC1;
  51. 'ERRE' 5;
  52. 'FINS';
  53.  
  54.  
  55. 'FIN' ;
  56.  
  57.  
  58.  
  59.  

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