如何将不同的输出结果输入到文件的不同列

fcode

那你计算完成以后一起输出就好了，不需要在循环内部输出。

[Fortran] 纯文本查看 复制代码

Open (10, File='result.dat')
Do ii = 1, npc 
  Open (20, File='data.txt') 
  Read( 20 , * ) data( : )
  result( : , ii ) = data( : )
  Close (20)
End Do
Do i = 1, ndc
  Write (10, '(<npc>f16.7)') result( i , : )
End Do
Close (10)