string - 将整数转换为字符串以在运行时创建输出文件名

Question

我有一个 Fortran 程序，可以将结果保存到文件中。目前我使用

打开文件

OPEN (1, FILE = 'Output.TXT')

但是，我现在想要运行一个循环，并将每次迭代的结果保存到文件 'Output1.TXT', 'Output2.TXT', 'Output3.TXT'，依此类推。

Fortran 中有没有一种简单的方法可以从循环计数器 i 构造文件名？

Answer 1

您可以写入单元，但也可以写入字符串

program foo
    character(len=1024) :: filename

    write (filename, "(A5,I2)") "hello", 10

    print *, trim(filename)
end program

请注意(这是我谈论的第二个技巧)，您还可以通过编程方式构建格式字符串。

program foo

    character(len=1024) :: filename
    character(len=1024) :: format_string
    integer :: i

    do i=1, 10
        if (i < 10) then
            format_string = "(A5,I1)"
        else
            format_string = "(A5,I2)"
        endif

        write (filename,format_string) "hello", i
        print *, trim(filename)
    enddo

end program