%N uniform %F $MIR/src/subs/noise.for
%D Return uniformly distributed random variables.
%P rjs
%: random-variables, noise
%B
        subroutine uniform(data,n)

        implicit none
        integer n
        real data(n)

  Generate uniformly distributed noise, in the range [0,1]. This works
  on any machine.

  Inputs:
    n          Number of random numbers to produce.

  Output:
    data       An array of uniformly distributed random numbers.
