Platform

x64, Win32

Purpose

To return a pseudo-random double precision value.

Syntax

REAL (KIND=2) FUNCTION RANDOM@()

Description

This routine sets its seed automatically and produces the same sequence every time the program is run.

Alternatively, you may use DATE_TIME_SEED@ or SET_SEED@.

Return value

RANDOM@ returns a uniformly distributed random number x such that
0.0D0 < x < 1.0D0.

Notes

This is a Silverfrost library function. RANDOM_NUMBER is the standard intrinsic function.

Example

REAL(KIND=2)::RANDOM@,RANVEC(100)
DO I=1,100
 RANVEC(I)=RANDOM@()
END DO
. . .