RANDOM_SEED(3I) Last changed: 1-6-98
RANDOM_SEED - Restarts or queries the pseudorandom number generator
CALL RANDOM_SEED ([[SIZE=]size] [,[PUT=]put] [,[GET=]get])
UNICOS, UNICOS/mk, and IRIX systems
Fortran 90
The RANDOM_SEED intrinsic subroutine restarts or queries the
pseudorandom number generator used by RANDOM_NUMBER. It accepts the
following arguments (note that there must be exactly one argument or
no arguments present):
size Must be scalar and of type integer. It is an output argument.
It is set to the number N of integers that the processor uses
to hold the value of the seed.
put Must be an integer array of rank one and size >= N. It is an
input argument. It is used to set the seed value.
get Must be an integer array of rank one and size >= N. It is an
output argument. It is set to the current value of the seed.
The name of this intrinsic cannot be passed as an argument.
CALL RANDOM_SEED ! initization of seed
CALL RANDOM_SEED(SIZE = K) ! Sets K = N
CALL RANDOM_SEED(PUT = SEEDARRAY(1:K)) ! Set user seed
CALL RANDOM_SEED(GET = OLDSEED(1:K)) ! Get current seed
RANDOM_NUMBER(3I)
Intrinsic Procedures Reference Manual, publication SR-2138, for the
printed version of this man page.
RANDOM_SEED(3I) Last changed: 1-6-98
RANDOM_SEED - Restarts or queries the pseudorandom number generator
CALL RANDOM_SEED ([[SIZE=]size] [,[PUT=]put] [,[GET=]get])
UNICOS, UNICOS/mk, and IRIX systems
Fortran 90
The RANDOM_SEED intrinsic subroutine restarts or queries the
pseudorandom number generator used by RANDOM_NUMBER. It accepts the
following arguments (note that there must be exactly one argument or
no arguments present):
size Must be scalar and of type integer. It is an output argument.
It is set to the number N of integers that the processor uses
to hold the value of the seed.
put Must be an integer array of rank one and size >= N. It is an
input argument. It is used to set the seed value.
get Must be an integer array of rank one and size >= N. It is an
output argument. It is set to the current value of the seed.
The name of this intrinsic cannot be passed as an argument.
CALL RANDOM_SEED ! initization of seed
CALL RANDOM_SEED(SIZE = K) ! Sets K = N
CALL RANDOM_SEED(PUT = SEEDARRAY(1:K)) ! Set user seed
CALL RANDOM_SEED(GET = OLDSEED(1:K)) ! Get current seed
RANDOM_NUMBER(3I)
Intrinsic Procedures Reference Manual, publication SR-2138, for the
printed version of this man page.
[ Back ]
|
