set_random_dist Subroutine

  1. korc_random.f90
  2. korc_random
  3. set_random_dist

public subroutine set_random_dist(low, high)

Uses

  • proc~~set_random_dist~~UsesGraph proc~set_random_dist set_random_dist omp_lib omp_lib proc~set_random_dist->omp_lib

Arguments

Type IntentOptional AttributesName
real(kind=rp), intent(in) :: low
real(kind=rp), intent(in) :: high

Calls

proc~~set_random_dist~~CallsGraph proc~set_random_dist set_random_dist omp_get_thread_num omp_get_thread_num proc~set_random_dist->omp_get_thread_num

Called by

proc~~set_random_dist~~CalledByGraph proc~set_random_dist set_random_dist proc~torus torus proc~torus->proc~set_random_dist

Contents

Source Code

set_random_dist

Source Code

  SUBROUTINE set_random_dist(low, high)
    USE omp_lib
    IMPLICIT NONE

    REAL(rp), INTENT(IN) :: low
    REAL(rp), INTENT(IN) :: high

    !$OMP PARALLEL DEFAULT(SHARED)
    CALL random_set_dist(states(OMP_GET_THREAD_NUM()), low, high)
    !$OMP END PARALLEL

  END SUBROUTINE set_random_dist