Sets the seed for the PDA random-number generators

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. CALL PDA_RNSED( SEED )

The
random-number seed.

Ahrens, J.H., Dieter, U. & Grube, A., 1970,

`"`

Pseudo-random
numbers: a new proposal for the choice of multiplicators`"`

, Computing, 6, pp.121–138.