Télécharger CCREEL.INC

Retour à la liste

Numérotation des lignes :

  1. C -INC CCREEL
  2. C
  3. REAL*8 XZERO,XPI,XGRAND,XPETIT,XZPREC
  4. REAL*4 XSGRAN,XSPETI,XSZPRE
  5. COMMON/REEL/XGRAND,XPETIT,XZPREC
  6. COMMON/REE4/XSGRAN,XSPETI,XSZPRE
  7. COMMON/INTX/IGRAND,IPETIT
  8. PARAMETER(XZERO=0.D0)
  9. PARAMETER(XPI=3.141592653589793D0)
  10. C
  11. C CE COMMON CONTIENT QUELQUES CONSTANTE
  12. C
  13. C XZERO=0.D0
  14. C XPI =3.14159..............
  15. C XGRAND= NOMBRE GRAND EN VALEUR ABSOLUE real*8
  16. C XPETIT= NOMBRE PETIT EN VALEUR ABSOLUE real*8
  17. C xzprec precision machine real*8 relative a 1
  18. C
  19. C XSGRAN= NOMBRE GRAND EN VALEUR ABSOLUE real*4
  20. C XSPETI= NOMBRE PETIT EN VALEUR ABSOLUE real*4
  21. C xszpre precision machine real*4 relative a 1
  22.  
  23. C La MACRO A_EGALE_B permet de tester l'egalite de deux REAL*8
  24. C A et B en tenant compte de la precision relative XZPREC
  25. C ATTENTION difficultes si A ou B est strictement egal a 0.D0
  26. MACRO,A_EGALE_B(A,B)=(ABS((A)-(B)) .LE. MAX(ABS(A),ABS(B))*XZPREC)
  27.  

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