random_index_s()

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

private

Definition at line 480 of file mersenne_twister.f.