For example,
REAL HARVEST, HARVEYS(100,100,100) CALL RANDOM_NUMBER(HARVEST) CALL RANDOM_NUMBER(HARVEYS)
CALL RANDOM_SEED(SIZE=isze) CALL RANDOM_SEED(PUT=IArr(1:isze))
For more information, click here