get_random Function

public function get_random()

Arguments

None

Return Value real(kind=rp)

Contents

Source Code

get_random

Source Code

  FUNCTION get_random()
    USE omp_lib
    IMPLICIT NONE

    REAL(rp)            :: get_random

    get_random = random_get_number_U(states(OMP_GET_THREAD_NUM()))
  END FUNCTION get_random