Esope source files

   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 :