Fortran Coder

查看: 9216|回复: 4
打印 上一主题 下一主题

[文件读写] 读取文件出现错误forrt1: severe(64),求指教如何修改,感谢

[复制链接]

6

帖子

2

主题

0

精华

入门

F 币
53 元
贡献
25 点
跳转到指定楼层
楼主
发表于 2021-4-20 11:48:25 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 sophia666888 于 2021-4-20 11:51 编辑

[img]blob:http://bbs.fcode.cn/cbd916fd-6d01-4ab5-bf64-e5ad8c176f56[/img]

截屏2021-04-20 上午11.43.02.png (902.2 KB, 下载次数: 243)

截屏2021-04-20 上午11.43.02.png

F0form.txt

665 Bytes, 下载次数: 5

读取文件

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

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
沙发
发表于 2021-4-20 15:01:52 | 只看该作者
本帖最后由 vvt 于 2021-4-20 15:03 编辑

简单一点。
[Fortran] 纯文本查看 复制代码
  Implicit None
  integer :: i , j , k
  character(len=30) wlno
  real :: wave(4,7) = 0
  Open(12,File="F0form.txt")
  Do i = 1 , 3
    Read(12,*)
  End Do
  Do i = 1 , 4
    read(12,*) j , wlno , k , wave(i,:k)
  End Do
  Close(12)
End

6

帖子

2

主题

0

精华

入门

F 币
53 元
贡献
25 点
板凳
 楼主| 发表于 2021-4-20 16:13:24 | 只看该作者
vvt 发表于 2021-4-20 15:01
简单一点。
[mw_shl_code=fortran,true]  Implicit None
  integer :: i , j , k

感谢指导!

54

帖子

0

主题

0

精华

实习版主

F 币
653 元
贡献
214 点

元老勋章新人勋章

QQ
地板
发表于 2021-4-20 20:14:42 | 只看该作者
非必要时候,不要用格式化输入。

6

帖子

2

主题

0

精华

入门

F 币
53 元
贡献
25 点
5#
 楼主| 发表于 2021-4-21 09:28:56 | 只看该作者
布衣龙共 发表于 2021-4-20 20:14
非必要时候,不要用格式化输入。

好的,感谢提醒
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-11-15 01:15

Powered by Tencent X3.4

© 2013-2024 Tencent

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