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 )

SEED = INTEGER (Given)

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