get_rng Function

  1. utilities.f90
  2. utilities
  3. get_rng

public function get_rng() result(r)

Arguments

None

Return Value type(rng_type)


Calls

proc~~get_rng~~CallsGraph proc~get_rng get_rng omp_get_thread_num omp_get_thread_num proc~get_rng->omp_get_thread_num

Contents

Source Code

get_rng

Source Code

function get_rng() result(r)
    type(rng_type) :: r
    integer :: thread_id

#ifdef _OMP
    thread_id = OMP_get_thread_num() + 1
#else
    thread_id = 1
#endif

    r = rng(thread_id)

end function get_rng