PDA_RNSED - Sets the seed for the PDA random-number generators

Description:

This sets the initial seed for the simple random-number generator based upon Ahrens, Dieter & Grube's TOMS599 routines. The seed should be of the form 4$*$K$+$1, where K is a positive integer, and less than 2$*$$*$28. When it is not, the nearest valid seed is used, but if this is negative, the seed becomes 2001.

Invocation:

CALL PDA_RNSED( SEED )

Arguments:

SEED = INTEGER (Given)

The random-number seed.

References

Ahrens, J.H., Dieter, U. & Grube, A., 1970, "Pseudo-random numbers: a new proposal for the choice of multiplicators", Computing, 6, pp.121-138.