| 查看: 1962 | 回复: 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 ] |
» 猜你喜欢
药学305求调剂
已经有6人回复
求调剂学校
已经有12人回复
山东省基金2026
已经有8人回复
求助调剂,跨调
已经有19人回复
085400电子信息类(川大控制工程)求调剂可跨专业 求老师联系
已经有5人回复
材料工程281还有调剂机会吗
已经有41人回复
求调剂
已经有13人回复
290调剂生物0860
已经有35人回复
一志愿鲁东大学071000生物学学硕初试分数276求调剂
已经有30人回复
327求调剂
已经有25人回复
» 本主题相关价值贴推荐,对您同样有帮助:
Fortran如何读取数据避开空行?
已经有7人回复
【求助】Fortran语言赋值问题?
已经有3人回复
写了一个fortran90的小程序,编译通不过,请大侠帮忙
已经有59人回复
【求助】FORTRAN读取文本文件
已经有9人回复
请教fortran导txt数据进origin问题
已经有1人回复
【求助】Fortran编译目标文件后的链接问题
已经有4人回复
【求助】Fortran 程序可以直接读取和输出excel文件吗
已经有3人回复
【求助】matlab读取fortran输出的txt文件【已解决】
已经有3人回复
【求助】求助个Fortran计算,应该不难,半天搞不定,请高手帮忙
已经有11人回复
» 抢金币啦!回帖就可以得到:
随缘看八字排盘,卦例分析,解答疑惑,卦金随心
+2/712
长江大学化工学院【0857资源与环境】招理学、工学调剂生!
+1/86
大湾区大学李红庚与中国科学技术大学王柳教授联合招收博士后
+1/83
哈尔滨理工大学0805材料科学与工程、0856材料与化工、0703化学,接收调剂
+1/36
盐城师范学院生物与医药(生物技术与工程领域)还有调剂名额
+1/36
B区调剂 兰州交通大学材料学院调剂
+1/20
南华大学资源与环境接受调剂,专业特色:“核”环保,有机会进入核相关企业工作。
+1/10
省重点实验室招收07专业调剂生,海洋生物专业名额充足
+1/9
江西师大化学工程学院调剂今晚0点开放!
+1/8
河南农业大学理学院樊良鑫课题组招收化学专业硕士调剂生(过国家线即可)
+1/8
材料与化工专业还有大量指标,欢迎大家调剂,调剂系统已经开放
+1/7
齐齐哈尔大学李莉课题组诚招2026级考研调剂生(学硕和专硕)
+1/5
福建理工大学学硕专业代码08开头还有调剂名额
+1/5
贵州财经大学计算机科学与技术(081200)学硕接收调剂
+1/4
纺织纤维及制品教育部重点实验室王栋教授团队现面向全国招收 2026 年硕士调剂生
+1/4
中山大学课题组招实习生有机合成经验优先
+1/3
青岛农业大学化学与药学院招收调剂,欢迎报名!
+1/2
2026年宁德师范学院新能源与材料学院硕士研究生调剂公告(第三批)
+2/2
招收化学、海洋科学、材料、环境专业调剂
+3/1
中国农业大学资源与环境学院 - 招聘杰出人才、青年研究员、优秀人才和博士后
+1/1
★
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
3楼2010-12-01 10:37:01
4楼2010-12-01 13:10:05
5楼2010-12-01 14:38:04
6楼2010-12-01 14:54:17
7楼2010-12-01 15:31:47
8楼2010-12-01 15:37:46
9楼2010-12-02 14:39:15
10楼2011-05-12 09:58:10
11楼2011-05-12 10:09:40
12楼2011-05-12 10:16:07
13楼2011-05-12 10:16:38














回复此楼