Télécharger la plaquette Cast3M


fr en

Télécharger tdrand.eso

Retour à la liste

Numérotation des lignes : 

tdrand

  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