Fortran Coder

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

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

[复制链接]

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
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-5-4 00:01

Powered by Tencent X3.4

© 2013-2024 Tencent

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