Fortran Coder

标题: 读取文件出现错误forrt1: severe(64),求指教如何修改，感谢 [打印本页]

作者: sophia666888 时间: 2021-4-20 11:48
标题: 读取文件出现错误forrt1: severe(64),求指教如何修改，感谢
本帖最后由 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, 下载次数: 254)

F0form.txt

665 Bytes, 下载次数: 5

读取文件

作者: vvt 时间: 2021-4-20 15:01
本帖最后由 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

作者: sophia666888 时间: 2021-4-20 16:13

vvt 发表于 2021-4-20 15:01
简单一点。
[mw_shl_code=fortran,true] Implicit None
integer :: i , j , k

感谢指导！

作者: 布衣龙共 时间: 2021-4-20 20:14
非必要时候，不要用格式化输入。

作者: sophia666888 时间: 2021-4-21 09:28

布衣龙共发表于 2021-4-20 20:14
非必要时候，不要用格式化输入。

好的，感谢提醒

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)