布衣龙共 发表于 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, 2024-11-23 15:25