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
where K is a positive integer, and less than
When it is not, the nearest valid seed is used, but if this is negative, the seed becomes 2001.
CALL PDA_RNSED( SEED )
SEED = INTEGER (Given)
Ahrens, J.H., Dieter, U. & Grube, A., 1970,
numbers: a new proposal for the choice of multiplicators
", Computing, 6, pp.121–138.