在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（摘要：仍然可能有記錄長度限制）。