设为首页收藏本站如何选择编译器？在线F77转F90 繁体浏览

切换到窄版开启辅助访问

Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › Fortran批量打开txt文件时不成功

返回列表发新帖

查看: 20784|回复: 12

上一主题

下一主题

[文件读写] Fortran批量打开txt文件时不成功

实名认证

1963 帖子	12 主题	5 精华

臭石头雪球

F 币: 1357 元
贡献: 574 点

发消息

楼主

发表于 2014-12-2 22:02:24 | 显示全部楼层

num=1 放到 do 循环前面，而不是里面。

回复支持 1 反对 0

使用道具举报

实名认证

1963 帖子	12 主题	5 精华

臭石头雪球

F 币: 1357 元
贡献: 574 点

发消息

沙发

发表于 2014-12-2 22:20:20 | 显示全部楼层

把
open (unit=100,file="result.txt",status='old',action='readwrite')
放到主程序 Open(101) 一起

把
close(100,status='keep')
放到主程序 write(102,*)num 后面

回复支持反对

使用道具举报

实名认证

1963 帖子	12 主题	5 精华

臭石头雪球

F 币: 1357 元
贡献: 574 点

发消息

板凳

发表于 2014-12-3 08:23:56 | 显示全部楼层

是的，我是管理。欢迎~~

回复支持反对

使用道具举报

返回列表发新帖

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

GMT+8, 2024-5-9 12:56

Powered by Tencent X3.4

© 2013-2024 Tencent

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