rnd_array_int_i4 Function

private function rnd_array_int_i4(gen, n, i1, i2) result(arr)

Type Bound

rndgen

Arguments

Type IntentOptional Attributes Name
class(rndgen), intent(in) :: gen
integer(kind=i4), intent(in) :: n
integer(kind=i4), intent(in) :: i1
integer(kind=i4), intent(in) :: i2

Return Value integer(kind=i4), allocatable, (:)


Calls

proc~~rnd_array_int_i4~~CallsGraph proc~rnd_array_int_i4 rndgen%rnd_array_int_i4 proc~int_rndgen_i4 rndgen%int_rndgen_i4 proc~rnd_array_int_i4->proc~int_rndgen_i4 proc~rnd_rndgen_dp rndgen%rnd_rndgen_dp proc~int_rndgen_i4->proc~rnd_rndgen_dp

Source Code

 function rnd_array_int_i4(gen, n, i1, i2) result(arr)
     class(rndgen), intent(in) :: gen
     integer(kind=i4), intent(in) :: n
     integer(kind=i4), intent(in) :: i1, i2
     integer(kind=i4) :: i
     integer(kind=i4), allocatable :: arr(:)

     arr = [(gen%int_i4(i1, i2), i = 1, n)]

 end function rnd_array_int_i4