### 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$\ast$K$+$1, where K is a positive integer, and less than 2$\ast$$\ast$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.