Télécharger tdrand.eso

Retour à la liste

Numérotation des lignes :

  1. C TDRAND SOURCE CHAT 05/01/13 03:35:50 5004
  2. SUBROUTINE TDRAND(XRAN)
  3. C-----------------------------------------------------------------------
  4. C Appel du générateur de nombres aléatoires uniformément répartis entre
  5. C 0. et 1., bornes exclues, en conservant les valeurs par défaut.
  6. C-----------------------------------------------------------------------
  7. C
  8. C---------------------------
  9. C Parametres Entree/Sortie :
  10. C---------------------------
  11. C
  12. C /S XRAN : Valeur comprise entre 0. et 1.
  13. C
  14. C-----------------------------------------------------------------------
  15. C Appelé par : aleat1.eso (opérateur ALEA)
  16. C graco6.eso (opérateur RESO option GRAD)
  17. C brui.eso (opérateur BRUI)
  18. C-----------------------------------------------------------------------
  19. IMPLICIT INTEGER(I-N)
  20. IMPLICIT REAL*8 (A-H,O-Z)
  21. C
  22. IDUM = 0
  23. XRAN = TDRAN1(IDUM)
  24. C
  25. RETURN
  26. END
  27.  
  28.  
  29.  

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