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

private