28
5
0
熟手
open(unit = 111, file = 'kxmod.dat') i = 0 j = 0 k = 0 do j = 1,415 do i = 1, 10 read(111,*) (a((j-1)*106+(i-1)*10+k),k=1,10) end do read(111,*) (a((j-1)*106+i*10+k),k=1,6) end do close(111)
readkx.f90
2015-3-4 16:07 上传
点击文件名下载附件
549 Bytes, 下载次数: 2
kxmod.dat
2015-3-4 16:08 上传
348.13 KB, 下载次数: 6
使用道具 举报
臭石头雪球
2035
12
论坛跑堂
fcode 发表于 2015-3-4 17:04 在我这里可以正常得到结果 avg is 3226.910
无标题.png (22.57 KB, 下载次数: 289)
下载附件
2015-3-5 16:44 上传
read(111,*) (a((j-1)*106+(i-1)*10+k),k=1,10)
fcode 发表于 2015-3-5 17:51 read(111,*) (a((j-1)*106+(i-1)*10+k),k=1,10) 红色代码的括号,请使用半角状态输入 ...
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给在娱乐版上传了真实照片的女性网友
颁发给论坛热心帮助他人的网友
颁发给经认证的具有特殊贡献和地位的名人
颁发给注册后积极发言的新人
颁发给对本站有突出贡献的朋友
颁发给本站版主和管理
颁发给在娱乐版上传了真实照片的男性网友
颁发给为Fcode网站捐赠的网友
颁发给完成“有规有矩”任务的网友
颁发给论坛注册3年以上的网友
颁发给发帖量超过一定数量的坛友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2025-3-13 03:11
Powered by Tencent X3.4
© 2013-2025 Tencent