subroutine mersenne_twister::random_index::random_index_t ( integer, intent(in)  imax, integer, dimension(:), intent(out)  iharvest, type(random_stat), intent(inout)  stat  )

private