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

private

References iseed, n, random_index_t(), random_setseed_t(), and sstat.

Here is the call graph for this function: