ranf Function

function ranf() result(r)

Arguments

None

Return Value real


Variables

Type Visibility Attributes Name Initial
logical, public, SAVE :: already_run = .TRUE.

Source Code

FUNCTION ranf() result (r)
   IMPLICIT NONE
   REAL :: r
   LOGICAL,SAVE :: already_run=.TRUE.
   IF(.NOT.already_run)THEN
      CALL init_random_seed_by_clock()
      already_run=.TRUE.
   ENDIF
   CALL random_number(r)
END FUNCTION ranf