11
4
0
入门
使用道具 举报
臭石头雪球
2015
12
5
论坛跑堂
fcode 发表于 2015-3-21 22:48 这不 so easy 吗?稍微学一点文件操作都会。
fcode 发表于 2015-3-21 23:04 最简单的方法,就是最高效的方法,也是最好的方法。
100
专家
Integer , parameter :: N = 10 real :: a(N) , b(N) , c(N) open( 12 , file = '文件名' ) read(12,*) do i = 1 , N read( 12 , * ) a(i) , b(i) , c(i) end do
55
16
百事可乐 发表于 2015-3-22 12:41 很自然,很纯朴,也是最简单高效的方法: [mw_shl_code=fortran,true]Integer , parameter :: N = 10
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
颁发给在娱乐版上传了真实照片的女性网友
颁发给论坛热心帮助他人的网友
颁发给经认证的具有特殊贡献和地位的名人
颁发给注册后积极发言的新人
颁发给对本站有突出贡献的朋友
颁发给本站版主和管理
颁发给在娱乐版上传了真实照片的男性网友
颁发给为Fcode网站捐赠的网友
颁发给论坛注册3年以上的网友
颁发给发帖量超过一定数量的坛友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-11-1 09:05
Powered by Tencent X3.4
© 2013-2024 Tencent