| 查看: 1949 | 回复: 12 | |||
| 本帖产生 2 个 程序强帖 ,点击这里进行查看 | |||
| 当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖 | |||
[交流]
【求助】求高手关于Fortran数据读写的问题。【已完结】
|
|||
|
现在有如下的数据,我想把C1 和C2 行对应的三个数值读写出来,如何操作?小弟fortran很菜,跪求高手解答。 HT -1.895 10.573 85.302 C1 -1.046 10.149 85.861 C2 -0.291 11.243 86.620 H1C -0.394 9.635 85.137 H2C -1.447 9.397 86.558 H1C -0.994 11.727 87.322 H2C 0.028 12.029 85.913 C1 0.934 10.743 87.400 C2 2.100 10.268 86.522 H1C 0.630 9.929 88.082 H2C 1.300 11.563 88.045 H1C 2.365 11.070 85.810 H2C 1.783 9.403 85.915 C1 3.336 9.882 87.343 C2 4.495 9.311 86.511 H1C 3.042 9.128 88.095 H2C 3.686 10.760 87.914 H1C 4.139 8.415 85.976 H2C 5.287 8.958 87.196 C1 5.113 10.268 85.478 C2 5.692 11.575 86.043 H1C 4.357 10.510 84.711 H2C 5.918 9.729 84.946 H1C 4.883 12.193 86.469 H2C 6.116 12.158 85.205 C1 6.782 11.365 87.101 C2 7.480 12.671 87.503 H1C 7.529 10.654 86.706 H2C 6.344 10.894 87.999 H1C 6.719 13.397 87.840 H2C 7.954 13.116 86.609 C1 8.536 12.510 88.609 C2 9.640 11.481 88.312 H1C 8.028 12.229 89.550 [ Last edited by 余泽成 on 2010-12-6 at 15:16 ] |
» 猜你喜欢
0854调剂
已经有4人回复
一志愿085502,267分求调剂
已经有14人回复
297工科,求调剂?
已经有3人回复
复试调剂
已经有15人回复
化学070300 求调剂
已经有5人回复
277求调剂
已经有22人回复
268分085602化学工程调剂
已经有29人回复
生物学308求调剂
已经有5人回复
一志愿哈工大 085600 277 12材科基求调剂
已经有29人回复
2本,初试303,0860求调剂
已经有8人回复
» 本主题相关价值贴推荐,对您同样有帮助:
Fortran如何读取数据避开空行?
已经有7人回复
【求助】Fortran语言赋值问题?
已经有3人回复
写了一个fortran90的小程序,编译通不过,请大侠帮忙
已经有59人回复
【求助】FORTRAN读取文本文件
已经有9人回复
请教fortran导txt数据进origin问题
已经有1人回复
【求助】Fortran编译目标文件后的链接问题
已经有4人回复
【求助】Fortran 程序可以直接读取和输出excel文件吗
已经有3人回复
【求助】matlab读取fortran输出的txt文件【已解决】
已经有3人回复
【求助】求助个Fortran计算,应该不难,半天搞不定,请高手帮忙
已经有11人回复
» 抢金币啦!回帖就可以得到:
上海交通大学-宁波东方理工大学联培博士2026年秋季招生
+1/89
武汉纺织大学材料学院士兵计划调剂信息
+1/88
【调剂信息】山东科技大学(青岛校区)材料助剂研究团队招收调剂硕士研究生
+1/86
延安大学长江学者团队招收材料、化工相关领域的调剂研究生数名
+1/40
滁州学院生物与食品工程学院调剂名额多,系统持续开放,专业范围宽!
+1/38
江苏师范大学招收化学及材料专业研究生
+1/19
复试调剂-招收调剂生(一志愿07开头专业),海洋生物专业4个名额
+1/11
江苏大学能源化工方向招收硕士
+1/10
新出名额:欢迎药学、生物、人工智能、计算机等有班长团支书经历加入-上海
+1/10
教育部长江学者和创新团队发展计划”入选团队招收 材料与化工硕士研究生(工科)
+1/9
★上海★上海工程技术大学·环境与资源创新中心(ICER)接收化工材料环境等学科调剂生
+1/9
河南师大全国重点实验室—0780药学、08600生物与医药仍有调剂指标!
+1/9
江西师大化学工程学院调剂今晚0点开放!
+1/8
河南理工大学化学化工学院招收材料、化工类专业调剂研究生
+1/5
烟台大学精准材料高等研究院26年材料方向研究生招生
+1/5
福建理工大学学硕专业代码08开头还有调剂名额
+1/5
福建理工大学材料学院招收专业代码08开头学术型硕士研究生
+1/4
福建理工大学材料学院招收专业代码08开头学术型硕士研究生
+1/2
中国科学技术大学纳米科学技术学院张振教授/江雷院士诚招2026级博士
+1/2
招调剂生: 植物学(学硕),资源利用与植物保护(专硕)
+1/1
3楼2010-12-01 10:37:01
★
77585218358(金币+10): 2010-12-01 14:32:50
余泽成(金币+1):谢谢参与应助! 2010-12-06 15:15:50
zyj8119(程序强帖+1): 2010-12-14 18:04:03
77585218358(金币+10): 2010-12-01 14:32:50
余泽成(金币+1):谢谢参与应助! 2010-12-06 15:15:50
zyj8119(程序强帖+1): 2010-12-14 18:04:03
|
你需要的程序片段如下: Dimension C1(3,100),C2(3,100) Character CHS*80 J1=0 J2=0 10 READ(10,'(A)',END=20)CHS IF(CHS(1:2).EQ.'C1')THEN J1=J1+1 IF(J1.GT.100)STOP 'Error Message .......' READ(CHS(3:80),*)(C1(I,J1),I=1.3) ENDIF IF(CHS(1:2).EQ.'C2')THEN J2=J2+1 IF(J2.GT.100)STOP 'Error Message .......' READ(CHS(3:80),*)(C2(I,J2),I=1.3) ENDIF GOTO 10 20 CONTINUE |
2楼2010-12-01 10:30:05
4楼2010-12-01 13:10:05
5楼2010-12-01 14:38:04













回复此楼