怎样在fortran中生成不含相同数字的随机数组

在Fortran中，你可以使用ISO_C_BINDING模块与C语言的rand函数结合来生成随机数，然后通过循环条件判断生成的随机数是否已经存在，直到满足没有重复数字的要求。下面是一个简单的例子：

program no_duplicates_random_array
use ISO_C_BINDING

implicit none
integer(C_INT), allocatable :: random_numbers(:)
integer(C_LONG) :: seed
integer(C_SIZE_T), dimension(2) :: bounds
integer(C_SIZE_T), target :: i, j, size
real(kind=C_FLOAT) :: new_number

! 初始化随机数种子
seed = c_int(time(0))
call srand(seed)

! 定义数组的大小
size = 10 ! 可以更改为你需要的长度

allocate(random_numbers(size))

bounds(1) = 1
bounds(2) = size

do
   do i = 1, size
      call random_number(new_number)
      new_number = real(new_number, kind=real(kind=C_FLOAT))  ! 将整型随机数转换为浮点数
      if (.not. any(random_numbers == new_number)) then  ! 检查是否有重复
         random_numbers(i) = real(new_number, kind=integer(C_INT))  ! 再次将浮点数转回整型存储
         exit  ' 如果找到不重复的数则退出内层循环'
      end if
   end do
end do

! 输出结果或进一步处理
do i = 1, size
   print *, random_numbers(i)
end do

deallocate(random_numbers)
end program no_duplicates_random_array