Fortran random_seed random_number

Fortran 中的 `random_seed` 和 `random_number` 是用于生成伪随机数的子程序。

`random_seed` 子程序用于设置或获取随机数生成器的种子。它有一个可选的参数 `put`，如果设置为 `.true.`，则将种子设置为给定的值；如果设置为 `.false.`，则获取当前种子值。例如：

integer :: seed(4)
call random_seed()  ! 获取当前种子值
seed = [1, 2, 3, 4]
call random_seed(put=seed)  ! 设置种子值为 [1, 2, 3, 4]

`random_number` 子程序用于生成随机数。它有一个必需的参数 `x`，表示要生成的随机数数组，和一个可选的参数 `size`，表示随机数数组的大小。例如：

real :: r(3)
call random_number(r)

上面的代码将生成一个大小为 3 的随机数数组 `r`，其中的随机数取值范围在 0 到 1 之间。