布衣龙共 发表于 2021-4-20 20:14 好的,感谢提醒 |
| 非必要时候,不要用格式化输入。 |
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 |
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2025-12-26 17:00