無新行打印值

Question

如何在不換行的情況下打印多個值？

PRINT *, "foo:", foo, ", bar:", bar, ", baz:", baz 

顯然，這是可能的WRITE（here和there）。在打印多個值時如何與PRINT及其不同的語法實現相同？

Answer 1

write聲明提供了一個可選的advance說明符，但print沒有。

多個write陳述advance="no"可以在您的代碼中的不同位置進行，以便將多個項目打印到同一行。只是作爲一個例子，用它從do循環中：

do i=1,3 
    write(*, fmt="(1x,a,i0)", advance="no") "loop #", i 
end do 
write(*,*) ! Assumes default "advance='yes'". 
write(*,*) "--OK, the loop is done!" 

! Example output: 
loop #1 loop #2 loop #3 
--OK, the loop is done! 

注意advance不能用列表式輸出使用（使用「*」到「打印任何東西， 「）。因此，我展示了一個示例格式說明符fmt="(1x,a,i0)"，它將爲每個寫入語句打印單個空白字符，一個字符串和一個整數。語言參考和/或您的編譯器文檔派上用場。例如參見here。

正如其他人所建議的，如果這是所需的行爲，最好使用write。如果出於某種原因，您仍然傾向於使用print，那麼在打印輸出項之前，您應該將輸出項組合成單個變量或變量列表。