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. save /reel/,/ree4/,/intx/
  9. PARAMETER(XZERO=0.D0)
  10. PARAMETER(XPI =3.14159265358979323846264338327949D0)
  11. C
  12. C CE COMMON CONTIENT QUELQUES CONSTANTES
  13. C
  14. C XZERO=0.D0
  15. C XPI =3.14159265358979323846264338327949D0
  16. C XGRAND= NOMBRE GRAND EN VALEUR ABSOLUE real*8
  17. C XPETIT= NOMBRE PETIT EN VALEUR ABSOLUE real*8
  18. C xzprec precision machine real*8 relative a 1
  19. C
  20. C XSGRAN= NOMBRE GRAND EN VALEUR ABSOLUE real*4
  21. C XSPETI= NOMBRE PETIT EN VALEUR ABSOLUE real*4
  22. C xszpre precision machine real*4 relative a 1
  23.  
  24. C La MACRO A_EGALE_B permet de tester l'egalite de deux REAL*8
  25. C A et B en tenant compte de la precision relative XZPREC et
  26. C absolue XPETIT
  27. MACRO , A_EGALE_B(A,B)=(ABS((A)-(B)) .LE.
  28. & MAX(ABS(A)*XZPREC,ABS(B)*XZPREC,XPETIT/XZPREC))
  29.  
  30.  

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