random_index_s()

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

Definition at line 480 of file mersenne_twister.f.