Previous: utdpv Up: ../plot79_u.html Next: utdxp

UTDRAN

       DOUBLE PRECISION FUNCTION  UTDRAN (DSEED)
 C$    (Random Number Generator)
 C$    This function  is a  portable  random number  generator  as
 C$    described by
 C$
 C$    L.  Schrage,  "A  More   Portable  Fortran  Random   Number
 C$    Generator", ACM Trans. Math. Software 5, 132-138 (1979).
 C$
 C$    The function value returned  is in the interval  (0D0,1D0),
 C$    excluding the endpoints.   The argument "DSEED"  is a  seed
 C$    DOUBLE PRECISION  value which  is updated  on return.   The
 C$    initial   value   of   DSEED   must   be   in   the   range
 C$    (1D0..2147483646D0) = (1..2**31-2).
 C$    (03-APR-82)