rnd_array_real Function

private function rnd_array_real(gen, n, r1, r2) result(arr)

Generates a random array of real numbers in the range [r1, r2)

Type Bound

rndgen

Arguments

Type IntentOptional Attributes Name
class(rndgen), intent(in) :: gen
integer(kind=i4), intent(in) :: n
real(kind=dp), intent(in) :: r1
real(kind=dp), intent(in) :: r2

Return Value real(kind=dp), allocatable, (:)


Source Code

  function rnd_array_real(gen, n, r1, r2) result(arr)
     class(rndgen), intent(in) :: gen
     integer(kind=i4), intent(in) :: n
     real(kind=dp), intent(in) :: r1, r2
     integer(kind=i4) :: i
     real(kind=dp), allocatable :: arr(:)

     arr = [(gen%real(r1,r2), i = 1, n)]

 end function rnd_array_real