rnd_array_int_i8 Function

private function rnd_array_int_i8(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=i8), intent(in) :: i1
integer(kind=i8), intent(in) :: i2

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


Calls

proc~~rnd_array_int_i8~~CallsGraph proc~rnd_array_int_i8 rndgen%rnd_array_int_i8 proc~int_rndgen_i8 rndgen%int_rndgen_i8 proc~rnd_array_int_i8->proc~int_rndgen_i8 proc~rnd_rndgen_dp rndgen%rnd_rndgen_dp proc~int_rndgen_i8->proc~rnd_rndgen_dp

Source Code

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

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

 end function rnd_array_int_i8