get_randoms Subroutine

  1. korc_random.f90
  2. korc_random
  3. get_randoms

public subroutine get_randoms(nums)

Uses

  • proc~~get_randoms~~UsesGraph proc~get_randoms get_randoms omp_lib omp_lib proc~get_randoms->omp_lib

Arguments

Type IntentOptional AttributesName
real(kind=rp), intent(out), DIMENSION(:):: nums

Calls

proc~~get_randoms~~CallsGraph proc~get_randoms get_randoms proc~get_random get_random proc~get_randoms->proc~get_random omp_get_thread_num omp_get_thread_num proc~get_random->omp_get_thread_num interface~random_get_number random_get_number proc~get_random->interface~random_get_number

Called by

proc~~get_randoms~~CalledByGraph proc~get_randoms get_randoms proc~torus torus proc~torus->proc~get_randoms

Contents

Source Code

get_randoms

Source Code

  SUBROUTINE get_randoms(nums)
    USE omp_lib
    IMPLICIT NONE

    REAL(rp), DIMENSION(:), INTENT(OUT) :: nums

    INTEGER                             :: i

    !$OMP PARALLEL DO DEFAULT(SHARED) PRIVATE(i)
    DO i = 1, SIZE(nums)
       nums(i) = get_random()
    END DO
    !$OMP END PARALLEL DO
  END SUBROUTINE get_randoms