Mercurial > octave-nkf
view libcruft/ranlib/ranf.f @ 5301:9302581b820d ss-2-9-2
[project @ 2005-04-22 17:08:07 by jwe]
author | jwe |
---|---|
date | Fri, 22 Apr 2005 17:09:11 +0000 |
parents | 30c606bec7a8 |
children |
line wrap: on
line source
REAL FUNCTION ranf() C********************************************************************** C C REAL FUNCTION RANF() C RANDom number generator as a Function C C Returns a random floating point number from a uniform distribution C over 0 - 1 (endpoints of this interval are not returned) using the C current generator C C This is a transcription from Pascal to Fortran of routine C Uniform_01 from the paper C C L'Ecuyer, P. and Cote, S. "Implementing a Random Number Package C with Splitting Facilities." ACM Transactions on Mathematical C Software, 17:98-111 (1991) C C********************************************************************** C .. External Functions .. INTEGER ignlgi EXTERNAL ignlgi C .. C .. Executable Statements .. C C 4.656613057E-10 is 1/M1 M1 is set in a data statement in IGNLGI C and is currently 2147483563. If M1 changes, change this also. C ranf = ignlgi()*4.656613057E-10 RETURN END