wo严 发表于 2015-3-29 22:23:25

fortran读取写入文件出现错误

数据以及程序已上传，求大神帮我看一下，谢谢了

fcode 发表于 2015-3-29 23:26:06

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:15

非常感谢，问题已经解决，谢谢您的帮助
页: [1]
查看完整版本: fortran读取写入文件出现错误