遍历OPEN语句

Question

基于重复项，有人可以解释第一个答案吗？它根本没有记录，只是我根本不理解的代码，因此没有太大帮助。 第一个答案只是将Hello写入每个循环值的屏幕。但是它在哪里保存呢？在此代码中看不到任何打开的语句。

我想为每个不同的循环索引打开一个新单元。 当前，对于每个DO循环整数，我正在将数据写入同一单元。那不是我想要的。 当我遍历每个整数时，我希望创建一个新的open语句。 我怎样才能做到这一点？下面的程序大大简化了我的真实代码，但仍提供了完整的可验证示例。

PROGRAM StackTest

REAL, DIMENSION(5) :: A
INTEGER :: i

OPEN(UNIT = 10, FILE = 'Test1.dat')

DO i = 1,5

    A(i) = 3.14*i 

    WRITE(10,*) i, A(i)

END DO

END PROGRAM

这将导致单个文件Test1.dat的一列为所有i值，第二列为所有A值。但是，我希望为i, A(i)的每个值打开一个不同的文件。因此，对于这个简单的示例，我真的希望打开5个不同的文件。

如何使用循环或类似方法有效地做到这一点？谢谢