Télécharger CCREEL.INC

Retour à la liste

Numérotation des lignes :

  1. * -INC CCREEL
  2. *
  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. PARAMETER(XZERO=0.D0)
  8. PARAMETER(XPI=3.141592653589793D0)
  9. *
  10. * CE COMMON CONTIENT QUELQUES CONSTANTE
  11. *
  12. * XZERO=0.
  13. * XPI =3.14159..............
  14. * XGRAND= NOMBRE GRAND EN VALEUR ABSOLUE real*8
  15. * XPETIT= NOMBRE PETIT EN VALEUR ABSOLUE real*8
  16. * xzprec precision machine real*8 relative a 1
  17. *
  18. * XSGRAN= NOMBRE GRAND EN VALEUR ABSOLUE real*4
  19. * XSPETI= NOMBRE PETIT EN VALEUR ABSOLUE real*4
  20. * xszpre precision machine real*4 relative a 1
  21. *
  22.  

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