rdm — Random number generator
subroutine rdmini(iseed) integer*4 iseed real*4 function rdmget()
rdmget returns a uniform random sequence
between 0.0 and 1.0. Set iseed to any positive
integer value to initialize or re-initialize the sequence.
rdmini initializes the
MemCom random generator.
The MemCom initialization functions initialize the random
number generator with iseed set to 3. If another
iseed is desired, the random number generator
should be re-initialized