Shuffling Routine

The Random Number Generator Schuffling Routine is a Visual Basic application. It produces uniform random numbers on [0,1]. Schuffling Routine is congruential generator suitable for a 32-bit platform It is constructed for more efficient use by providing for a sequence of random numbers and the numbers are returned in a single call.

Dim Ran0Y As Double

Dim Ran0V(97) As Double

Function RandShuffle(idum As Integer)

Dim dum As Double

Dim j As Integer

If idum 0 Then

Randomize (-idum)

For j = 1 To 97

dum = Rnd()

Next

For j = 1 To 97

Ran0V(j) = Rnd()

Next

Ran0Y = Rnd()

End If

Ran0Y = Rnd()

j = 1 + Int(97 * Ran0Y)

If (j 97) Or (j 1) Then

MsgBox "Error"

End If

Ran0Y = Ran0V(j)

RandShuffle = Ran0Y

Ran0V(j) = Rnd()

End Function