call random_seed()
do i = 1, 10
    call random_number(x)
    print*,x
end do

random_number 如果不为它指定种子，每次由计算机给它同一个种子，从同一个种子出发产生出来的随机数当然是一样的。

random_seed 则为它重置种子，这样，每次运行程序，都从不同的种子出发，产生的随机数就不一样了。

楼上那招行不通喔：）RANDOM_SEED不是这样用的：）
如果要用TIMER来初始化，那需要自己写一个子程序的：）
我把自己写的一个子程序share出来吧：）种子选定是参考前人的成果，哈哈：）

    subroutine init_random_seed_use_timer()
        integer :: i, n, clock
        integer, allocatable :: seed(:)

        call random_seed(size = n)
        allocate(seed(n))

        call system_clock(count=clock)

        seed = clock + 37 * (/ (i - 1, i = 1, n) /)
        call random_seed(put = seed)

        deallocate(seed)
    end subroutine

请问为什么你说上面那个答案不行？请指教，因为我试了一下那个答案还可以啊