24小时热门版块排行榜    

查看: 356  |  回复: 0

1010500

金虫 (小有名气)

[求助] 用FORTRAN读取下面格式数据的各列

用FORTRAN读取下面格式数据的各列,并把第3、6、9、12、15、18列的数据按列输出到*.txt文件中。请给出能运行的代码。谢谢高手帮助!
0  0  0.071959                                                                                                
  1  1  0.065321  1  0  0.029416                                                                                
  2  2  0.058666  2  1  0.041433  2  0  0.002607                                                               
  3  3  0.000000  3  2  0.000000  3  1  0.000000  3  0  0.000000                                                
  4  4  0.058079  4  3  0.051976  4  2  0.050523  4  1  0.004528  4  0  0.000327                                
  5  5  0.064627  5  4  0.045254  5  3  0.058079  5  2  0.006420  5  1  0.000653  5  0  0.000060               
  6  6  0.000000  6  5  0.000000  6  4  0.064627  6  3  0.008304  6  2  0.001041  6  1  0.000129  6  0  0.000014
  7  7  0.012063  7  6  0.070443  7  5  0.038515  7  4  0.000000  7  3  0.000000  7  2  0.000000  7  1  0.000000
  8  8  0.013946  8  7  0.075686  8  6  0.031762  8  5  0.070443  8  4  0.010185  8  3  0.001480  8  2  0.000222
  9  9  0.015837  9  8  0.080466  9  7  0.024980  9  6  0.075686  9  5  0.012063  9  4  0.001965  9  3  0.000340
10 10  0.003674 10  9  0.000000 10  8  0.000000 10  7  0.000000 10  6  0.000000 10  5  0.000000 10  4  0.000482
11 11  0.004321 11 10  0.017732 11  9  0.084852 11  8  0.018161 11  7  0.080466 11  6  0.013946 11  5  0.002494
12 12  0.005003 12 11  0.019631 12 10  0.088896 12  9  0.011312 12  8  0.084852 12  7  0.015837 12  6  0.003065
13 13  0.000000 13 12  0.000000 13 11  0.000000 13 10  0.000000 13  9  0.088896 13  8  0.017732 13  7  0.003674
14 14  0.001854 14 13  0.005718 14 12  0.021535 14 11  0.092631 14 10  0.004440 14  9  0.000000 14  8  0.000000

[ Last edited by 1010500 on 2012-11-22 at 21:15 ]
回复此楼
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子,希望有用哦~

科研从小木虫开始,人人为我,我为人人
相关版块跳转 我要订阅楼主 1010500 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 QUjhNVAcOSff 2026-09-13 5/250 2026-09-14 21:25 by vZfe6xYu34yj
[公派出国] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 QUjhNVAcOSff 2026-09-13 7/350 2026-09-14 21:21 by vZfe6xYu34yj
[考博] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 s3fFTmArrBt6 2026-09-14 4/200 2026-09-14 17:49 by Aj1rhIDL5ixY
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 s3fFTmArrBt6 2026-09-14 4/200 2026-09-14 17:48 by Aj1rhIDL5ixY
[考博] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 s3fFTmArrBt6 2026-09-14 4/200 2026-09-14 17:25 by Aj1rhIDL5ixY
[公派出国] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 LwdutQ8HoqWP 2026-09-13 5/250 2026-09-14 16:25 by Aj1rhIDL5ixY
[教师之家] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 LwdutQ8HoqWP 2026-09-13 4/200 2026-09-14 16:13 by Aj1rhIDL5ixY
[考研] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +4 LwdutQ8HoqWP 2026-09-13 4/200 2026-09-14 16:12 by Aj1rhIDL5ixY
[找工作] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 3n8v2C8RimXI 2026-09-13 4/200 2026-09-14 16:00 by Aj1rhIDL5ixY
[博后之家] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 3n8v2C8RimXI 2026-09-13 4/200 2026-09-14 15:57 by Aj1rhIDL5ixY
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +4 3n8v2C8RimXI 2026-09-13 4/200 2026-09-14 15:48 by Aj1rhIDL5ixY
[考研] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 3n8v2C8RimXI 2026-09-13 4/200 2026-09-14 15:45 by Aj1rhIDL5ixY
[考博] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +4 3n8v2C8RimXI 2026-09-13 4/200 2026-09-14 15:37 by Aj1rhIDL5ixY
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 QUjhNVAcOSff 2026-09-13 3/150 2026-09-14 15:09 by Aj1rhIDL5ixY
[基金申请] 求教各位大神:2026教育部人文社科青年基金项目何时公示呀? +5 云宴山人 2026-09-10 7/350 2026-09-14 12:11 by ecnu2013
[找工作] 浙江师范大学是怎么坑我的 +6 recruit123 2026-09-09 6/300 2026-09-14 12:00 by 萨仁其其格
[考博] 西北工业大学材料学院电化学传感与催化课题组招收2027年推免研究生、博士生、博士后 +3 马方园 2026-09-10 4/200 2026-09-14 09:29 by Chem张zz
[考博] 27秋季材料博士申请求助 10+3 Cahal1 2026-09-11 4/200 2026-09-14 08:50 by 北京莱茵编辑
[基金申请] 面上有专家说实验设备不是我们单位的 +6 zj_muchong 2026-09-08 8/400 2026-09-11 06:56 by suifengdao
[有机交流] 科研求助 10+4 我吃一只鱼 2026-09-07 4/200 2026-09-10 08:32 by 0940628
信息提示
请填处理意见