Fortran Coder

查看: 6238|回复: 2
打印 上一主题 下一主题

[文件读写] inquire的问题

[复制链接]

79

帖子

17

主题

0

精华

专家

齊天大聖

F 币
433 元
贡献
266 点
跳转到指定楼层
楼主
发表于 2018-12-11 17:11:42 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
小白想实现一个功能,根据 文件号来查看这个文件是否打开or发生错误
代码如此下:
[Fortran] 纯文本查看 复制代码
      program main
      implicit none
      logical :: opened,named

      write(21,*) 1,2,3,4 

      inquire(21,opened=opened,named=named)

      write(*,*) opened,named

      end

明明没有自己open,但还是会建立一个fort.21的文件。
而且opened和named都为真,
请问有没有办法来禁止不打开就输出的问题。

小白先谢谢了


分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

79

帖子

17

主题

0

精华

专家

齊天大聖

F 币
433 元
贡献
266 点
板凳
 楼主| 发表于 2018-12-11 18:39:36 | 只看该作者
谢谢绝地~
回复

使用道具 举报

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

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

沙发
发表于 2018-12-11 18:22:23 | 只看该作者
从规范上说,只能从代码逻辑上避免,不Open就输出的问题。
具体你可以看看你的编译器是否有这种检查功能。

最健全的方法是:先inquire,然后根据opened是否为真来决定是否write
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-12-25 01:10

Powered by Tencent X3.4

© 2013-2024 Tencent

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