RANDU

 RANDU (integer-1, integer-2, store)

 Class:  Subroutine

 Computes a pseudorandom number as a single-precision value.

 The integer arguments must be INTEGER(KIND=2) variables or array
 elements that contain the seed for computing the random number.
 The new seed for computing the next random number is stored into
 these integer arguments.  The "store" is a REAL(KIND=4) variable or
 array element where the computed random number is returned.

 The result is returned in "store", which must be of type
 REAL(KIND=4).  The result value is a pseudorandom number in the
 range 0.0 to 1.0.  The algorithm for computing the random number
 value is based on the values for "integer-1" and "integer-2".

 Example:

 Consider the following:

 REAL X
 INTEGER(2) I, J
 ...
 CALL RANDU (I, J, X)

 If I and J are values 4 and 6, X stores the value 5.4932479E-04.