KPG1_SEED

Obtains a semi-random seed for random-number generation

Description:

This function uses the computer time from an arbitrary date, plus the current process id., to generate a non-repeatable seed.

Alternatively, a fixed seed can be used by assigning the seed value to environment variable STAR_SEED.

Invocation

RESULT = KPG1_SEED( STATUS )

Arguments

STATUS = INTEGER (Given and Returned)
The global status.

Returned Value

KPG1_SEED = REAL
The seed for use in SLA_RANDOM. Note that it is not necessarily in the range 0 to 1.