Fortran Coder

查看: 422|回复: 4

[文件读写] 老哥救救弟弟,程序报错forrtl: severe (24): end-of-file during read,

[复制链接]

7

帖子

2

主题

0

精华

入门

F 币
52 元
贡献
28 点
发表于 2020-3-30 23:45:30 | 显示全部楼层 |阅读模式
本帖最后由 JackMa 于 2020-3-31 13:01 编辑

各位老哥,小弟我用FORTRAN读取一个txt文件,结果报错forrtl: severe (24): end-of-file during read,了,查了百度也没解决,我自己也看了我的代码,应该没问题啊,老哥们帮帮忙!



回复

使用道具 举报

1516

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1291 元
贡献
866 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2020-3-31 09:21:01 | 显示全部楼层
如果你要持续等待文件是否可读可写。那么 Inquire 是无法实现的。
它只能判断是否存在,但存在可能无法读写(此时Abaqus还没有释放文件)
所以读取就可能失败。

比如好的办法是这样:
[Fortran] 纯文本查看 复制代码
Do
  open(222,file ='D:\ABAQUS job\FP2.txt',ioStat=k,action="readwrite",status="old")
  if(k==0) then
    read(222,*),a2,g2,n2
    close(222)
  end if  
End Do

7

帖子

2

主题

0

精华

入门

F 币
52 元
贡献
28 点
 楼主| 发表于 2020-3-31 09:31:24 | 显示全部楼层
fcode 发表于 2020-3-31 09:21
如果你要持续等待文件是否可读可写。那么 Inquire 是无法实现的。
它只能判断是否存在,但存在可能无法读写 ...

谢谢老哥,我试试看

7

帖子

2

主题

0

精华

入门

F 币
52 元
贡献
28 点
 楼主| 发表于 2020-3-31 10:11:35 | 显示全部楼层
本帖最后由 JackMa 于 2020-3-31 13:03 编辑
fcode 发表于 2020-3-31 09:21
如果你要持续等待文件是否可读可写。那么 Inquire 是无法实现的。
它只能判断是否存在,但存在可能无法读写 ...

老哥,我按着你说的改了之后,之前的报错确实没有了,但ABAQUS一直不计算,是不是要在里面再加一个控制读取次数的限制?


7

帖子

2

主题

0

精华

入门

F 币
52 元
贡献
28 点
 楼主| 发表于 2020-3-31 10:54:23 | 显示全部楼层
fcode 发表于 2020-3-31 09:21
如果你要持续等待文件是否可读可写。那么 Inquire 是无法实现的。
它只能判断是否存在,但存在可能无法读写 ...

老哥,我又加了控制读取次数就解决了,感谢老哥帮忙,谢谢老哥,抱拳了
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2020-6-2 22:22

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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