| 查看: 1915 | 回复: 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 ] |
» 猜你喜欢
北科281学硕材料求调剂
已经有9人回复
306求0703调剂一志愿华中师范
已经有6人回复
276求调剂。有半年电池和半年高分子实习经历
已经有8人回复
接收2026硕士调剂(学硕+专硕)
已经有3人回复
材料与化工考研调剂
已经有3人回复
081700 调剂 267分
已经有3人回复
一志愿重庆大学085700资源与环境,总分308求调剂
已经有3人回复
336化工调剂
已经有4人回复
08工学调剂
已经有10人回复
263求调剂
已经有6人回复
» 本主题相关价值贴推荐,对您同样有帮助:
Fortran如何读取数据避开空行?
已经有7人回复
【求助】Fortran语言赋值问题?
已经有3人回复
写了一个fortran90的小程序,编译通不过,请大侠帮忙
已经有59人回复
【求助】FORTRAN读取文本文件
已经有9人回复
请教fortran导txt数据进origin问题
已经有1人回复
【求助】Fortran编译目标文件后的链接问题
已经有4人回复
【求助】Fortran 程序可以直接读取和输出excel文件吗
已经有3人回复
【求助】matlab读取fortran输出的txt文件【已解决】
已经有3人回复
【求助】求助个Fortran计算,应该不难,半天搞不定,请高手帮忙
已经有11人回复
» 抢金币啦!回帖就可以得到:
坐标上海,诚征女友,非常 着急,私信必回
+1/461
温柔善良,重庆女孩,找男友……好像是乱码,内容在40楼看查看
+2/396
Postdoc position in Hangzhou Normal University (陈健翔组博后招聘)
+1/95
电力全国重点实验室双一流A类长江学者团队招2026年全日制博士1名(4月3日截止)
+2/88
中国电气装备集团研究院招收AI+材料等相关岗位实习生
+1/85
温州大学吕晶晶课题组2026年招生
+1/75
坐标广州,男征女,双向奔赴
+1/66
武汉高校接受研究生调剂,材料、化学、纺织方向
+2/44
吲哚美辛原料药合成交流
+1/35
湖北工业大学 生命科学与健康学院 课题组招收2026级食品/生物方向硕士
+1/29
中国科学院上海硅酸盐研究所 介孔与低维纳米材料课题组招聘博士后
+1/16
招收专业代码08的学硕!
+1/15
双一流湘潭大学化工学院招收化工、能源动力、工程热物理相关研究生调剂
+1/15
【2026考研调剂】南方科技大学-深圳理工大学联培 086000 免疫方向(26.9入学)
+1/9
南开大学陈树琪教授研究团队招收2026级超构材料方向博士研究生
+1/8
南方科技大学医学院王鹏课题组博士后招聘
+1/6
【第三轮招生】澳科大诚招2026年秋季药剂学硕士研究生(3月31日下午18:00截止)
+1/5
国家级人才团队诚聘生物信息相关专业的科研助理
+1/4
武汉高校国家级人才团队招收材料,化学,纺织等专业硕士调剂生
+2/4
中国科学院过程工程研究所助理研究员(正式职工)和博士后招聘启事
+1/2
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













回复此楼