| 5 | 1/1 | 返回列表 |
| 查看: 1921 | 回復(fù): 12 | |||
| 本帖產(chǎn)生 2 個 程序強帖 ,點擊這里進行查看 | |||
| 當前只顯示滿足指定條件的回帖,點擊這里查看本話題的所有回帖 | |||
[交流]
【求助】求高手關(guān)于Fortran數(shù)據(jù)讀寫的問題!疽淹杲Y(jié)】
|
|||
|
現(xiàn)在有如下的數(shù)據(jù),我想把C1 和C2 行對應(yīng)的三個數(shù)值讀寫出來,如何操作?小弟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 ] |
» 搶金幣啦!回帖就可以得到:
+1/184
+2/78
+1/57
+1/53
+1/37
+1/31
+1/28
+1/16
+1/12
+1/12
+1/11
+1/7
+1/7
+1/6
+1/6
+1/3
+1/3
+1/2
+1/1
+1/1
|
你需要的程序片段如下: 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 |
至尊木蟲 (職業(yè)作家)
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 347求調(diào)劑 +9 | 山頂見α 2026-03-25 | 9/450 |
|
|---|---|---|---|---|
|
[考研] 一志愿西電085401數(shù)一英一299求調(diào)劑 六級521 +4 | 愛吃大鴨梨 2026-03-31 | 4/200 |
|
|
[考研] 本科211生物醫(yī)學工程085409求調(diào)劑339分 +5 | 里子木yy 2026-03-29 | 5/250 |
|
|
[考研] 308求調(diào)劑 +8 | 墨墨漠 2026-03-25 | 8/400 |
|
|
[考研] 317求調(diào)劑 +8 | 十閑wx 2026-03-24 | 8/400 |
|
|
[考研] 材料工程專碩求調(diào)劑 +8 | hyl3153942 2026-03-29 | 8/400 |
|
|
[考研] 一志愿鄭州大學,080500學碩,總分317分求調(diào)劑 +10 | 舉個栗子oi 2026-03-24 | 11/550 |
|
|
[考研] 311求調(diào)劑 +7 | 藍月亮亮 2026-03-30 | 7/350 |
|
|
[考研] 292求調(diào)劑 +13 | 是妍子也是研子 2026-03-30 | 13/650 |
|
|
[考研] 322求調(diào)劑:一志愿湖南大學 材料與化工(085600),已過六級。 +9 | XX小鄧 2026-03-29 | 9/450 |
|
|
[考研] 286求調(diào)劑 +5 | Faune 2026-03-30 | 5/250 |
|
|
[考研] 311求調(diào)劑 +10 | lin0039 2026-03-26 | 10/500 |
|
|
[考研] 考研調(diào)劑 +7 | 小蠟新筆 2026-03-29 | 7/350 |
|
|
[考研] 070305高分子化學與物理 304分求調(diào)劑 +12 | c297914 2026-03-28 | 12/600 |
|
|
[考研] 086000生物與醫(yī)藥調(diào)劑 +5 | Feisty。 2026-03-28 | 9/450 |
|
|
[考研] 356求調(diào)劑 +4 | gysy?s?a 2026-03-28 | 4/200 |
|
|
[考研] 085405 考的11408求各位老師帶走 +3 | Qiu學ing 2026-03-28 | 3/150 |
|
|
[考研] 一志愿211院校 344分 東北農(nóng)業(yè)大學生物學學碩,求調(diào)劑 +5 | 丶風雪夜歸人丶 2026-03-26 | 8/400 |
|
|
[考研] 一志愿上海理工能源動力(085800)310分求調(diào)劑 +3 | zhangmingc 2026-03-27 | 4/200 |
|
|
[考研] 347求調(diào)劑 +4 | L when 2026-03-25 | 4/200 |
|