rndPL_array Function

private function rndPL_array(gen, n) result(arr)

Type Bound

rndgenPL

Arguments

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

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


Calls

proc~~rndpl_array~~CallsGraph proc~rndpl_array rndgenPL%rndPL_array proc~rndpl_rndgenpl rndgenPL%rndPL_rndgenPL proc~rndpl_array->proc~rndpl_rndgenpl proc~rnd_rndgen_dp rndgen%rnd_rndgen_dp proc~rndpl_rndgenpl->proc~rnd_rndgen_dp

Source Code

   function rndPL_array(gen, n) result(arr)
      class(rndgenPL), intent(in) :: gen
      integer(kind=i4), intent(in) :: n
      integer(kind=i4) :: i
      integer(kind=i4), allocatable :: arr(:)
 
      arr = [(gen%rndPL(), i = 1, n)]
 
  end function rndPL_array