Fortran Coder

查看: 8777|回复: 4
打印 上一主题 下一主题

[文件读写] 如何将不同的输出结果输入到文件的不同列

[复制链接]

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
楼主
发表于 2015-7-9 08:27:53 | 显示全部楼层
[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)
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-1 07:44

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表