6
2
0
入门
截屏2021-04-20 上午11.43.02.png (902.2 KB, 下载次数: 243)
下载附件
2021-4-20 11:49 上传
F0form.txt
2021-4-20 11:47 上传
点击文件名下载附件
665 Bytes, 下载次数: 5
读取文件
使用道具 举报
954
大师
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
vvt 发表于 2021-4-20 15:01 简单一点。 [mw_shl_code=fortran,true] Implicit None integer :: i , j , k
54
实习版主
布衣龙共 发表于 2021-4-20 20:14 非必要时候,不要用格式化输入。
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
颁发给论坛注册3年以上的网友
颁发给注册后积极发言的新人
颁发给发帖量超过一定数量的坛友
颁发给论坛热心帮助他人的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-11-15 01:15
Powered by Tencent X3.4
© 2013-2024 Tencent