| 查看: 1950 | 回复: 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 ] |
» 猜你喜欢
272分材料子求调剂
已经有52人回复
一志愿哈工大 085600 277 12材科基求调剂
已经有31人回复
290求调剂
已经有16人回复
材料工程085601,270求调剂
已经有35人回复
085600材料与化工349分求调剂
已经有4人回复
22408 352分求调剂
已经有5人回复
268分085602化学工程调剂
已经有30人回复
0854调剂
已经有6人回复
211本科材料化工求调剂
已经有18人回复
化学070300 求调剂
已经有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/284
桂林理工大学物理学专业招收调剂
+1/189
济南大学前沿交叉科学研究院2026年化学/化工专业硕士研究生调剂招生
+1/91
南京林业大学的土木工程是咋回事?
+1/89
长江大学化工学院环境学硕、专硕最后一批调剂(理学、工学均可,线上面试)
+1/88
浙江农林大学环境与资源学院/碳中和学院 招收调剂生,学硕1名、专硕2名
+1/87
长江大学化工学院少量学硕、专硕最后一批调剂(理学、工学均可,线上面试)
+1/87
宁波大学2026年紧急补招植保方向(昆虫或植病)博士研究生1-2名
+1/82
坐标北京,诚征女友
+1/68
五邑大学 化学工程与技术调剂 4月10号九点截止!!!!!
+1/42
齐齐哈尔大学材料科学与工程学科招硕士研究生调剂
+1/40
五邑大学环境与化学工程学院第三批调剂
+1/38
26申博自荐(新能源电池方向)
+1/35
大连大学-贵州省煤炭洁净利用重点实验室联合培养研究生 化学5人+环境工程7人
+1/10
河南农业大学理学院招收化学(学硕)和材料与化工(专硕)专业硕士调剂生2名
+1/9
中国科学技术大学-安徽大学高薪联合招聘博士后/副研究员
+1/7
【2026考研调剂学子看过来,关注南昌航空大学高性价比一本高校】
+1/6
河南理工大学化学化工学院招收材料、化工类专业调剂研究生
+1/5
海南大学徐月山老师招生第二批博士名额1个,2026年9月份入学(高端设备开发方向)
+1/2
大连工业大学食品交叉科学研究院招收调剂研究生
+1/1
7楼2010-12-01 15:31:47
★
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













回复此楼