如何在Fortran中实现回车和刷新？

我一直想知道是否可以用Fortran回车并刷新write语句。在Python/C++中，您可以

'/r'

然后刷新流

---

如何在Fortran中执行此操作？

默认情况下，在write语句末尾插入回车符，或显式使用高级说明符：

write(unit , '(A)') 'Hello World'
write(unit , '(A)' , ADVANCE = 'YES') 'Hello World'
write(unit , '(A)' , ADVANCE = 'YES') '-'

上述三种说法的结果是：

Hello World
Hello World
-

或者，可以通过指定ADVANCE='NO'来抑制回车：

write(unit , '(A)' , ADVANCE = 'NO') 'Hello World'
write(unit , '(A)' , ADVANCE = 'NO') 'Hello World'
write(unit , '(A)' , ADVANCE = 'NO') '-'

这将产生：

Hello WorldHello World-

---

要在Fortran90中刷新，请关闭文件并重新打开。特定编译器和/或较新版本的Fortran标准将刷新作为一种内在功能，但关闭该文件将始终具有刷新的效果，无论您的Fortran版本如何。

默认情况下，在write语句末尾插入回车符，或显式使用高级说明符：

write(unit , '(A)') 'Hello World'
write(unit , '(A)' , ADVANCE = 'YES') 'Hello World'
write(unit , '(A)' , ADVANCE = 'YES') '-'

上述三种说法的结果是：

Hello World
Hello World
-

或者，可以通过指定ADVANCE='NO'来抑制回车：

write(unit , '(A)' , ADVANCE = 'NO') 'Hello World'
write(unit , '(A)' , ADVANCE = 'NO') 'Hello World'
write(unit , '(A)' , ADVANCE = 'NO') '-'

这将产生：

Hello WorldHello World-

---

要在Fortran90中刷新，请关闭文件并重新打开。特定编译器和/或Fortran标准的较新版本将刷新作为一种内在功能提供，但无论您的Fortran版本如何，关闭该文件都会产生刷新的效果。

可能重复感谢您提出的问题，我一定错过了。我添加了一个“call flush（6）”，但是如何使用回车符使flush命令刷新行，而不仅仅是在已经存在的行之后的位？

char（13）

是ASCII回车符。您可以将其添加到要打印的字符串中。有关详细信息，请参阅参考问题的可能副本，我一定错过了。我添加了一个“call flush（6）”，但是如何使用回车符使flush命令刷新行，而不仅仅是在已经存在的行之后的位？

char（13）

是ASCII回车符。您可以将其添加到要打印的字符串中。有关详细信息，请参阅