random_seed()

subroutine, public mersenne_twister::random_seed	(	integer, intent(out), optional	size,
		integer, dimension(nrest), intent(in), optional	put,
		integer, dimension(nrest), intent(out), optional	get,
		type(random_stat), intent(inout), optional	stat )