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

在Fortran中，为了生成一个不包含重复数字的随机整数数组，你可以采用以下几种方法：

1. **使用`RAND`函数和`UNIQUE`**:
Fortran本身没有内置的`unique`类似功能，但可以结合循环和`rand`函数生成数组。首先生成一个大一些的随机数数组，然后通过条件判断剔除重复值。

INTEGER :: n, i, j, unique_array(N)
REAL(kind=8) :: temp
n = ...  ! 定义数组长度

! 生成初始随机数组
DO i = 1, n
   temp = REAL(RAND(), kind=8) * (max_val - min_val) + min_val
   unique_array(i) = INTEGER(temp)  ! 使用浮点数范围转换到指定整型范围内
END DO

! 去除重复元素
j = 1
DO i = 2, n
   IF (unique_array(i) .NE. unique_array(j)) THEN
      unique_array(j+1) = unique_array(i)
      j = j + 1
   END IF
ENDDO
unique_array(j) = 0  ! 确保数组长度为n

! 如果需要，可以根据实际需求调整unique_array(1:j-1)

2. **使用`SEQUENTIAL`和`ISILON`库**:
这个方法利用第三方库如`ILUKA`中的`SEQUENTIAL`子程序和`ISILON`排序算法来实现。这种方法对数组进行了排序后再删除重复项，但是请注意，不是所有Fortran环境都支持此库。

3. **自定义循环结构**:
如果不想依赖额外的库，可以编写自定义循环，遍历已生成的数组，每次选择一个不在当前部分的随机数添加到结果中。

记得根据你的具体需求和环境选择合适的方法，并注意，这种方法可能效率不高，尤其是对于大数组。如果性能是一个关键因素，可能需要考虑其他数据结构或者算法优化。