subroutine mersenne_twister::random_index_i ( integer, intent(in)  imax, integer, dimension(:), intent(out)  iharvest, integer, intent(in)  inseed  )

private

References random_index_t(), and random_setseed_t().

Here is the call graph for this function: