Fortran Coder

标题: fortran读取写入文件出现错误 [打印本页]

作者: wo严 时间: 2015-3-29 22:23
标题: fortran读取写入文件出现错误
数据以及程序已上传，求大神帮我看一下，谢谢了

cc.txt

302.72 KB, 下载次数: 15

数据文件

read.f

654 Bytes, 下载次数: 2

程序

作者: fcode 时间: 2015-3-29 23:26

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

Program www_fcode_cn

  Real (Kind=kind(1.0D0)), Dimension (30, 30, 40) :: cc

  Integer :: i

  Open (Unit=10, File='cc.txt', Status='unknown') !// Open 语句移动到循环外面

  Open (Unit=11, File='dd.txt', Status='replace')

  Do i = 1, 30 !// 有多少行，就循环多少次。一层循环就足够了

    Read (10, *) cc(i, :, :) !// 每次读取 30*40 个，即每次一行

    Write (11, *) cc(i, :, :)

  End Do

End Program www_fcode_cn

作者: wo严 时间: 2015-3-30 16:16
非常感谢，问题已经解决，谢谢您的帮助

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)