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

sophia666888 · 发表于 2021-4-20 11:48:25

本帖最后由 sophia666888 于 2021-4-20 11:51 编辑

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

vvt · 发表于 2021-4-20 15:01:52

本帖最后由 vvt 于 2021-4-20 15:03 编辑

简单一点。

[Fortran] 纯文本查看 复制代码

01  Implicit None
02  integer :: i , j , k
03  character(len=30) wlno
04  real :: wave(4,7) = 0
05  Open(12,File="F0form.txt")
06  Do i = 1 , 3
07    Read(12,*)
08  End Do
09  Do i = 1 , 4
10    read(12,*) j , wlno , k , wave(i,:k)
11  End Do
12  Close(12)
13End

sophia666888 · 发表于 2021-4-20 16:13:24

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

感谢指导！

布衣龙共 · 发表于 2021-4-20 20:14:42

非必要时候，不要用格式化输入。

sophia666888 · 发表于 2021-4-21 09:28:56

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

好的，感谢提醒

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

规矩勋章

元老勋章

新人勋章

水王勋章

热心勋章