4
1
0
入门
M7PU~CHSGSG_YRWK%K~`I1N.png (3.63 KB, 下载次数: 392)
下载附件
2017-6-8 10:54 上传
使用道具 举报
835
2
大宗师
li913 发表于 2017-6-8 10:42 这不是错误,不用管,代码能执行就是了。看起来程序已经正确执行完毕。
臭石头雪球
2033
12
5
论坛跑堂
fcode 发表于 2017-6-8 13:59 可通过 ioStat 判断读取是否成功。
do i = 1 , N read(12,* , ioStat = k ) a , b , c if ( k /= 0 ) then write(*,*) '文件读取错误,可能是文件读完了。' exit endif end do
fcode 发表于 2017-6-9 08:15 [mw_shl_code=fortran,true]do i = 1 , N read(12,* , ioStat = k ) a , b , c if ( k /= 0 ) then
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给在娱乐版上传了真实照片的女性网友
颁发给论坛热心帮助他人的网友
颁发给经认证的具有特殊贡献和地位的名人
颁发给注册后积极发言的新人
颁发给对本站有突出贡献的朋友
颁发给本站版主和管理
颁发给在娱乐版上传了真实照片的男性网友
颁发给为Fcode网站捐赠的网友
颁发给完成“有规有矩”任务的网友
颁发给论坛注册3年以上的网友
颁发给发帖量超过一定数量的坛友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-26 05:26
Powered by Tencent X3.4
© 2013-2024 Tencent