unif_01_vec Subroutine

private subroutine unif_01_vec(self, rr)

Fill array with uniform random numbers

Type Bound

rng_t

Arguments

Type IntentOptional Attributes Name
class(rng_t), intent(inout) :: self
real(kind=dp), intent(out) :: rr(:)

Calls

proc~~unif_01_vec~~CallsGraph proc~unif_01_vec rng_t%unif_01_vec proc~unif_01 rng_t%unif_01 proc~unif_01_vec->proc~unif_01 proc~next rng_t%next proc~unif_01->proc~next proc~rotl rotl proc~next->proc~rotl

Called by

proc~~unif_01_vec~~CalledByGraph proc~unif_01_vec rng_t%unif_01_vec proc~get_uniform_pos get_uniform_pos proc~get_uniform_pos->proc~unif_01_vec

Source Code

  subroutine unif_01_vec(self, rr)
    class(rng_t), intent(inout) :: self
    real(dp), intent(out)       :: rr(:)
    integer                     :: i

    do i = 1, size(rr)
      rr(i) = self%unif_01()
    end do
  end subroutine unif_01_vec