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

vvt

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

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