subroutine mersenne_twister::random_number::random_number_s ( real, dimension(:), intent(out)  harvest )

private