Portability Function: Generates a random number between 0.0 and RAND_MAX. RANF can be used as a portability routine or as an intrinsic procedure. It is an intrinsic procedure unless you specify USE IFPORT.
モジュール
USE IFPORT
result = RANF ( )
結果
The result type is REAL(4). The result value is a single-precision pseudo-random number between 0.0 and RAND_MAX as defined in the C library, normally (2**15) - 1.