如何在循环中单行打印？

Posted 2021-04-16

假设我有一个包含以下循环的Fortran程序：

do i=1, 10
  print *, i
enddo

这个的输出就像

1
2
...
10

如何将这些值写入一行，如下所示？

1 2 ... 10

答案

有很多方法，立即浮现在脑海中的两个方法显示在下面的小程序中

$ cat loop.f90
Program loop
  Implicit None
  Integer :: i
  Write( *, * ) 'First way - non-advancing I/O'
  Do i = 1, 10
     Write( *, '( i0, 1x )', Advance = 'No' ) i
  End Do
  Write( *, * ) ! Finish record
  Write( *, * ) 'Second way - implied do loop'
  Write( *, * ) ( i, i = 1, 10 )
End Program loop
$ gfortran -std=f2003 -Wall -Wextra -fcheck=all loop.f90 
$ ./a.out
 First way - non-advancing I/O
1 2 3 4 5 6 7 8 9 10 
 Second way - implied do loop
           1           2           3           4           5           6           7           8           9          10
$ 

第一种方法。非推进I / O，抑制正在写入的记录标记的结束，这通常是新行，但确实需要显式格式。第二个隐含的do循环不需要格式，但灵活性较差。

BTW英文通常称为“循环”