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

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