如何在Fortran中实现回车并刷新输出流？

当然可以在Fortran里实现类似Python/C++中\r加刷新流的效果！刚好我之前写进度条的时候折腾过这个，下面给你详细讲具体实现：

核心思路 #

要实现“回车回到行首+立刻刷新输出”，需要搞定两个关键点：

1. 让输出不自动换行，并且能回到当前行开头
2. 强制刷新输出缓冲区，确保内容立刻显示在终端

具体实现代码 #

这里给一个完整的示例，模拟一个简单的进度条：

program progress_demo
    implicit none
    integer :: i

    do i = 1, 100
        ! 1. 用achar(13)实现回车（ASCII码13对应回车符），advance='no'让输出不换行
        write(*, '(a, i3, a)', advance='no') achar(13), i, '% completed'
        
        ! 2. 刷新标准输出缓冲区（单元号6对应标准输出）
        flush(6)
        
        ! 模拟耗时操作，这里用sleep暂停1秒
        call sleep(1)
    end do
    
    ! 循环结束后换行，避免后续输出跟进度条挤在一起
    write(*,*)
end program progress_demo

关键细节解释 #

• achar(13)：这是Fortran标准里表示回车符（CR）的写法，它会把光标移回当前行的开头，这样下一次输出会覆盖掉当前行的内容。有些编译器（比如GFortran）支持直接在格式串里用'\r'，但这是非标准扩展，用achar(13)能保证代码在不同编译器间的可移植性。
• advance='no'：默认情况下，write语句执行完会自动换行。加上这个参数后，输出会停留在当前行的末尾，配合回车符就能实现覆盖输出的效果。
• flush(6)：标准输出的单元号默认是6，flush语句（Fortran 2003及以后的标准）会强制把缓冲区里的内容立刻输出到终端，而不是等缓冲区满了才显示。如果你的编译器版本比较旧，可能需要用厂商扩展的call flush(6)写法，不过现在主流编译器（GFortran、Intel Fortran等）都支持标准的flush语句了。

额外提示 #

如果是写交互式程序或者进度条，这种方式非常实用。需要注意的是，有些终端可能对回车符的处理略有不同，但绝大多数现代终端都能正常识别achar(13)的效果。

内容的提问来源于stack exchange，提问作者AlphaBetaGamma96