77585218358

金蟲 (正式寫手)

應助: 13 (小學生)
金幣: 2518.6
帖子: 685
在線: 244.9小時
蟲號: 573551

[交流] 【求助】求高手關于Fortran數(shù)據(jù)讀寫的問題。【已完結(jié)】

現(xiàn)在有如下的數(shù)據(jù)，我想把C1 和C2 行對應的三個數(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 ]

回復此樓

» 猜你喜歡

一志愿重慶大學085700資源與環(huán)境總分308求調(diào)劑已經(jīng)有6人回復
268求調(diào)劑已經(jīng)有7人回復
302求調(diào)劑已經(jīng)有11人回復
306求調(diào)劑已經(jīng)有4人回復
材料學學碩080502 337求調(diào)劑-一志愿華中科技大學已經(jīng)有4人回復
求調(diào)劑已經(jīng)有6人回復
313求調(diào)劑已經(jīng)有3人回復
南昌大學材料專碩311分求調(diào)劑已經(jīng)有6人回復
316求調(diào)劑已經(jīng)有6人回復
346求調(diào)劑[0856] 已經(jīng)有7人回復

» 本主題相關價值貼推薦，對您同樣有幫助:

Fortran如何讀取數(shù)據(jù)避開空行？已經(jīng)有7人回復
【求助】Fortran語言賦值問題？已經(jīng)有3人回復
寫了一個fortran90的小程序，編譯通不過，請大俠幫忙已經(jīng)有59人回復
【求助】FORTRAN讀取文本文件已經(jīng)有9人回復
請教fortran導txt數(shù)據(jù)進origin問題已經(jīng)有1人回復
【求助】Fortran編譯目標文件后的鏈接問題已經(jīng)有4人回復
【求助】Fortran 程序可以直接讀取和輸出excel文件嗎已經(jīng)有3人回復
【求助】matlab讀取fortran輸出的txt文件【已解決】已經(jīng)有3人回復
【求助】求助個Fortran計算，應該不難，半天搞不定，請高手幫忙已經(jīng)有11人回復

» 搶金幣啦！回帖就可以得到:

查看全部散金貼

1樓 2010-12-01 09:16:23

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

ykwang

金蟲 (正式寫手)

程序強帖: 2
應助: 0 (幼兒園)
金幣: 3171.7
帖子: 639
在線: 386.4小時
蟲號: 500302

★
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人)

回復此樓

2樓2010-12-01 10:30:05

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

★
77585218358(金幣+10): 2010-12-01 14:32:59
余澤成(金幣+1):謝謝參與應助！ 2010-12-06 15:15:59
zyj8119(程序強帖+1): 2010-12-14 18:03:44

一個簡單的實現(xiàn)

CODE:

C234567

      PROGRAM C1C2

      CHARACTER*80 LINE

      OPEN(7,FILE = 'A.TXT', STATUS='OLD')

      OPEN(8,FILE = 'B.TXT', STATUS='NEW')

5     READ(7,'(A)', END = 10) LINE

      IF( INDEX(LINE, 'C1') .NE. 0 .OR. INDEX(LINE, 'C2') .NE. 0)

     &  WRITE(8, '(A)') LINE

      GOTO 5

10    CONTINUE

      END

贊一下(2人)

回復此樓

3樓2010-12-01 10:37:01

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

piduil

銅蟲 (初入文壇)

應助: 0 (幼兒園)
金幣: 37
帖子: 18
在線: 52.9小時
蟲號: 1033449

★
77585218358(金幣+3): 2010-12-01 14:33:14
77585218358(金幣+3): 2010-12-01 14:35:45
余澤成(金幣+1):謝謝參與應助！ 2010-12-06 15:16:10

ykwang的程序估計是樓主想要的
但文件10在你的程序中沒有定義，fortran菜鳥會搞不定的。
此外，如果輸入文件中有C1C打頭之類的行，會出錯的。

贊一下(1人)

回復此樓

4樓2010-12-01 13:10:05

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

77585218358

金蟲 (正式寫手)

應助: 13 (小學生)
金幣: 2518.6
帖子: 685
在線: 244.9小時
蟲號: 573551

引用回帖:

Originally posted by piduil at 2010-12-01 13:10:05:
ykwang的程序估計是樓主想要的
但文件10在你的程序中沒有定義，fortran菜鳥會搞不定的。
此外，如果輸入文件中有C1C打頭之類的行，會出錯的。

你的意思是應該定義打開數(shù)據(jù)文件的通道10,是不是？

贊一下

回復此樓

5樓2010-12-01 14:38:04

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

引用回帖:

Originally posted by 77585218358 at 2010-12-01 14:38:04:

你的意思是應該定義打開數(shù)據(jù)文件的通道10,是不是？

就象我的那個那樣，open(10,.....)

贊一下

回復此樓

6樓2010-12-01 14:54:17

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

piduil

銅蟲 (初入文壇)

應助: 0 (幼兒園)
金幣: 37
帖子: 18
在線: 52.9小時
蟲號: 1033449

為什么非要用fortran來干這個事情呢？
我覺得干這個并不是fortran的特長，把你的需求說完整了，也許有更好的解決方案。

贊一下

回復此樓

7樓2010-12-01 15:31:47

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

Fortran 干這種事情還是綽綽有余的，呵呵……

贊一下

回復此樓

8樓2010-12-01 15:37:46

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

77585218358

金蟲 (正式寫手)

應助: 13 (小學生)
金幣: 2518.6
帖子: 685
在線: 244.9小時
蟲號: 573551

引用回帖:

Originally posted by piduil at 2010-12-01 15:31:47:
為什么非要用fortran來干這個事情呢？
我覺得干這個并不是fortran的特長，把你的需求說完整了，也許有更好的解決方案。

已經(jīng)解決了！

回復此樓

9樓2010-12-02 14:39:15

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

kathy2008

木蟲 (正式寫手)

應助: 0 (幼兒園)
金幣: 2161.5
帖子: 328
在線: 213.2小時
蟲號: 558502

★
小木蟲(金幣+0.5):給個紅包，謝謝回帖

引用回帖:

Originally posted by snoopyzhao at 2010-12-01 10:37:01:
一個簡單的實現(xiàn)

[code]
C234567
   PROGRAM C1C2
   CHARACTER*80 LINE
   OPEN(7,FILE = 'A.TXT', STATUS='OLD')
   OPEN(8,FILE = 'B.TXT', STATUS='NEW')
5    READ(7,'(A)', END = 10) ...

版主你好，我試了一下你這一個程序，用gfortran，提示的錯誤是
In file bbs3.f90:6

IF( INDEX(LINE, 'C1') .NE. 0 .OR. INDEX(LINE, 'C2') .NE. 0 )
1
Error: Unclassifiable statement in IF-clause at (1)

請指點。謝謝。

贊一下(1人)

回復此樓

10樓2011-05-12 09:58:10

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

★ ★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖
余澤成(金幣+2): 謝謝參與應助！ 2011-05-12 18:53:25

引用回帖:

Originally posted by kathy2008 at 2011-05-12 09:58:10:
版主你好，我試了一下你這一個程序，用gfortran，提示的錯誤是
In file bbs3.f90:6

IF( INDEX(LINE, 'C1') .NE. 0 .OR. INDEX(LINE, 'C2') .NE. 0 )
...

我這里的是個 Fortran 77 的程序，續(xù)行符在前，你用 Fortran 90 的話，得把續(xù)行符放在上一行的后面吧……

贊一下(2人)

回復此樓

11樓2011-05-12 10:09:40

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

kathy2008

木蟲 (正式寫手)

應助: 0 (幼兒園)
金幣: 2161.5
帖子: 328
在線: 213.2小時
蟲號: 558502

★
小木蟲(金幣+0.5):給個紅包，謝謝回帖

引用回帖:

Originally posted by snoopyzhao at 2011-05-12 10:09:40:
我這里的是個 Fortran 77 的程序，續(xù)行符在前，你用 Fortran 90 的話，得把續(xù)行符放在上一行的后面吧……

多謝版主。已解決。

回復此樓

12樓2011-05-12 10:16:07

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

★ ★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖
余澤成(金幣+2): 其實真的想讓你加入我們版主管理團隊，不知專家是不是有這個意愿！ 2011-05-12 18:54:11

引用回帖:

Originally posted by kathy2008 at 2011-05-12 10:16:07:
多謝版主。已解決。

俺不是版主，呵呵……

贊一下(2人)

回復此樓

13樓2011-05-12 10:16:38

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

最具人氣熱帖推薦 [查看全部]	作者	回/看	最后發(fā)表

[考研] 材料學學碩080502 337求調(diào)劑-一志愿華中科技大學 +3	順順順mr 2026-03-18	4/200	2026-03-21 08:20 by JourneyLucky
[考研] 南昌大學材料專碩311分求調(diào)劑 +6	77chaselx 2026-03-20	6/300	2026-03-21 07:24 by JourneyLucky
[考研] 070300化學319求調(diào)劑 +7	錦鯉0909 2026-03-17	7/350	2026-03-21 03:46 by JourneyLucky
[考研] 二本跨考鄭大材料306英一數(shù)二 +3	z1z2z3879 2026-03-17	3/150	2026-03-21 02:29 by JourneyLucky
[考研] 317求調(diào)劑 +5	申子申申 2026-03-19	9/450	2026-03-20 22:26 by JourneyLucky
[考研] 一志愿中南化學（0703）總分337求調(diào)劑 +8	niko- 2026-03-19	9/450	2026-03-20 21:57 by luoyongfeng
[考研] 一志愿西南交通專碩材料355 本科雙非求調(diào)劑 +5	西南交通專材355 2026-03-19	5/250	2026-03-20 21:10 by JourneyLucky
[考研] 265求調(diào)劑 +12	梁梁校校 2026-03-19	13/650	2026-03-20 21:01 by 無際的草原
[考研] 一志愿北京化工大學0703化學318分，有科研經(jīng)歷，求調(diào)劑 +4	一瓶苯甲酸 2026-03-14	4/200	2026-03-20 20:36 by fen_rao
[考研] 0703化學調(diào)劑，六級已過，有科研經(jīng)歷 +13	曦熙兮 2026-03-15	13/650	2026-03-20 19:35 by Dream007008
[考研] 求調(diào)劑 +3	eation27 2026-03-20	3/150	2026-03-20 19:32 by JourneyLucky
[考研] 環(huán)境工程調(diào)劑 +9	大可digkids 2026-03-16	9/450	2026-03-20 17:38 by 醉在風里
[考研] 085410人工智能專碩317求調(diào)劑（0854都可以） +4	xbxudjdn 2026-03-18	4/200	2026-03-20 09:07 by 不168
[考研] 生物學071000 329分求調(diào)劑 +3	我愛生物生物愛?/a> 2026-03-17	3/150	2026-03-18 10:12 by macy2011
[考研] 293求調(diào)劑 +11	zjl的號 2026-03-16	16/800	2026-03-18 08:10 by zhukairuo
[考研] 機械專碩325，尋找調(diào)劑院校 +3	y9999 2026-03-15	5/250	2026-03-16 19:58 by y9999
[考研] 318求調(diào)劑 +3	Yanyali 2026-03-15	3/150	2026-03-16 16:41 by houyaoxu
[考研] 070303 總分349求調(diào)劑 +3	LJY9966 2026-03-15	5/250	2026-03-16 14:24 by xwxstudy
[考研] 327求調(diào)劑 +6	拾光任染 2026-03-15	11/550	2026-03-15 22:47 by 拾光任染
[考研] 復試調(diào)劑 +3	呼呼？~+123456 2026-03-14	3/150	2026-03-14 16:53 by WTUChen