fortran - 在 Fortran 中的同一行上打印

Question

 if (mod(n,2) == 0) then
       write(stdout, *) "Even"
    else
       write(stdout, *) "Odd "
  end if

我想打印Even Odd Even Odd。为什么我不能为此使用 $ 描述符？

Answer 1

您的代码中没有 $ 描述符!

但是不，标准 Fortran 中没有 $ 描述符。有些编译器将其作为扩展，而其他编译器则没有。如果您想要可移植程序，请不要使用它。

符合 Fortran 90 标准的方式是使用带有 advance='no' 的非高级 O/O。请注意，它需要格式，而不是列表定向输入。

write(stdout, some_format, advance='no') "Even"

some_format 可以是 '(a)' 或 '(g0)' 或任何适用的内容。

此外，有关警告，请参阅 http://www.cs.rpi.edu/~szymansk/OOF90/bugs.html#3 (摘要:仍然存在记录长度限制)。