Random Number Intrinsic

• RANDOM_NUMBER(HARVEST) will return a scalar (or array of) pseudorandom number(s) in the range .

  For example,

    REAL                   :: HARVEST
    REAL, DIMENSION(10,10) :: HARVEYS
    CALL RANDOM_NUMBER(HARVEST)
    CALL RANDOM_NUMBER(HARVEYS)

• RANDOM_SEED([SIZE=< int >]) finds the size of the seed.
• RANDOM_SEED([PUT=< array >]) seeds the random number generator.

    CALL RANDOM_SEED(SIZE=isze)
    CALL RANDOM_SEED(PUT=IArr(1:isze))

For more information, click here

Now try this question