行云流水cs

金蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 1485.2
散金: 6
帖子: 93
在線: 78.3小時
蟲號: 856236
注冊: 2009-09-25
專業(yè): 化學(xué)動力學(xué)

[求助] FORTRAN 讀取文件數(shù)據(jù)出錯

PROGRAM MAIN
REAL L(1340,4)
M=1340
N=4
OPEN(UNIT=1,FILE='F1.DAT',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED')
READ(1,*) ((L(M,N),I=1,N),J=1,M)
OPEN(UNIT=2,FILE='F2.DAT',STATUS='NEW',ACCESS='SEQUENTIAL',FORM='FORMATTED')
WRITE(2,200) L
CLOSE(1)
CLOSE(2)
200 FORMAT(1X,4F10.2)
END

F1.DAT 部分文件
2570 2649 2540 2530

2532 2558 2544 2459

2479 2494 2515 2450

2448 2511 2458 2448

2407 2515 2510 2407

2436 2444 2384 2396

2320 2362 2330 2316

2280 2382 2320 2315

2324 2369 2252 2260

2282 2284 2303 2241

2239 2347 2232 2215

但是F2.DAT 怎么全是0
   0.00    0.00    0.00    0.00
   0.00    0.00    0.00    0.00
   0.00    0.00    0.00    0.00
   0.00    0.00    0.00    0.00
   0.00    0.00    0.00    0.00
   0.00    0.00    0.00    0.00
   0.00    0.00    0.00    0.00
   0.00    0.00    0.00    0.00
   0.00    0.00    0.00    0.00
   0.00    0.00    0.00    0.00
   0.00    0.00    0.00    0.00
   0.00    0.00    0.00    0.00

回復(fù)此樓

» 收錄本帖的淘帖專輯推薦

Linux系統(tǒng)學(xué)習(xí)

» 本帖已獲得的紅花（最新10朵）

行云流水cs

» 猜你喜歡

284求調(diào)劑已經(jīng)有10人回復(fù)
一志愿山東大學(xué)藥學(xué)學(xué)碩求調(diào)劑已經(jīng)有4人回復(fù)
07化學(xué)280分求調(diào)劑已經(jīng)有4人回復(fù)
298-一志愿中國農(nóng)業(yè)大學(xué)-求調(diào)劑已經(jīng)有12人回復(fù)
求材料，環(huán)境專業(yè)調(diào)劑已經(jīng)有3人回復(fù)
335求調(diào)劑已經(jīng)有5人回復(fù)
求調(diào)劑已經(jīng)有7人回復(fù)
一志愿吉大化學(xué)322求調(diào)劑已經(jīng)有4人回復(fù)
環(huán)境學(xué)碩288求調(diào)劑已經(jīng)有8人回復(fù)
341求調(diào)劑(一志愿湖南大學(xué)070300) 已經(jīng)有6人回復(fù)

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

fortran程序open文件時的簡單問題已經(jīng)有3人回復(fù)
fortran轉(zhuǎn)換CHGCAR出錯已經(jīng)有4人回復(fù)
Fortran 編譯問題已經(jīng)有9人回復(fù)
請教一個fortran小程序編譯出錯的問題，謝謝已經(jīng)有9人回復(fù)
【求助】Fortran語言賦值問題？已經(jīng)有3人回復(fù)
Fortran的格式化輸入輸出問題已經(jīng)有14人回復(fù)
三維數(shù)組換行輸入到文件（intel fortran 編譯器）已經(jīng)有6人回復(fù)
有關(guān)fortran的一次而問題，希望大家能幫幫忙，謝謝已經(jīng)有4人回復(fù)
【整理】今天整理硬盤上的資料，偶然發(fā)現(xiàn)的好玩的小東西就直接發(fā)上來吧已經(jīng)有105人回復(fù)
【求助】如何寫FORTRAN程序?qū)崿F(xiàn)求平均最近鄰距離已經(jīng)有34人回復(fù)
【求助】求高手關(guān)于Fortran數(shù)據(jù)讀寫的問題�！疽淹杲Y(jié)】已經(jīng)有12人回復(fù)
【分享】將ELFCAR、CHGCAR轉(zhuǎn)化成MS閱讀可讀的fortran代碼已經(jīng)有142人回復(fù)
【求助】DL_POLY的config文件如何生成?? 已經(jīng)有98人回復(fù)

為無為，事無事，味無味。大小，多少，抱怨以德。圖難乎其易也，為大乎其細(xì)也。

1樓 2012-06-24 12:23:29

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

mingkeng

至尊木蟲 (正式寫手)

應(yīng)助: 11 (小學(xué)生)
金幣: 9386.4
帖子: 620
在線: 213.2小時
蟲號: 194003
注冊: 2006-02-22
專業(yè): 大氣科學(xué)

【答案】應(yīng)助回帖

★ ★ ★ ★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
jjdg: 金幣+1, 感謝參與 2012-06-25 00:07:55
行云流水cs: 金幣+5, ★★★很有幫助 2012-06-25 10:36:02

PROGRAM MAIN
      REAL L(1340,4)
      M=1340
      N=4
      OPEN(UNIT=1,FILE='F1.DAT',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED')
      READ(1,*) ((L(j,i),I=1,N),J=1,M)
      OPEN(UNIT=2,FILE='F2.DAT',STATUS='NEW',ACCESS='SEQUENTIAL',FORM='FORMATTED')
      WRITE(2,200) L
      CLOSE(1)
      CLOSE(2)
200       FORMAT(1X,4F10.2)
      END

將READ(1,*) ((L(M,N),I=1,N),J=1,M)修改為READ(1,*) ((L(j,i),I=1,N),J=1,M)即可

贊一下

回復(fù)此樓

2樓2012-06-24 22:47:25

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

行云流水cs

金蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 1485.2
散金: 6
帖子: 93
在線: 78.3小時
蟲號: 856236
注冊: 2009-09-25
專業(yè): 化學(xué)動力學(xué)

引用回帖:

2樓: Originally posted by mingkeng at 2012-06-24 22:47:25
PROGRAM MAIN
      REAL L(1340,4)
      M=1340
      N=4
      OPEN(UNIT=1,FILE='F1.DAT',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED')
      READ(1,*) ((L(j,i),I=1,N),J=1,M)
   ...

PROGRAM MAIN
      INTEGER L(1340,4)
      M=1340
      N=4
      OPEN(UNIT=1,FILE='F1.DAT',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED')
      READ(1,100) ((L(j,i),I=1,N),J=1,M)
      OPEN(UNIT=2,FILE='F2.DAT',STATUS='NEW',ACCESS='SEQUENTIAL',FORM='FORMATTED')
      WRITE(2,200) L
      CLOSE(1)
      CLOSE(2)
100       FORMAT（4I6）
200       FORMAT(4（2X,4I6）)
      END
對程序稍微改了一下，但是出現(xiàn)了input conversion error。我知道  READ(1,100) ((L(j,i),I=1,N),J=1,M)
100       FORMAT（4I6）有錯誤。但不知道怎么改。麻煩你幫我看看。

贊一下

回復(fù)此樓

為無為，事無事，味無味。大小，多少，抱怨以德。圖難乎其易也，為大乎其細(xì)也。

3樓2012-06-25 10:40:58

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

mingkeng

至尊木蟲 (正式寫手)

應(yīng)助: 11 (小學(xué)生)
金幣: 9386.4
帖子: 620
在線: 213.2小時
蟲號: 194003
注冊: 2006-02-22
專業(yè): 大氣科學(xué)

引用回帖:

3樓: Originally posted by 行云流水cs at 2012-06-25 10:40:58
PROGRAM MAIN
      INTEGER L(1340,4)
      M=1340
      N=4
      OPEN(UNIT=1,FILE='F1.DAT',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED')
      READ(1,100) ((L(j,i),I=1,N),J=1,M) ...

必須知道你原始數(shù)據(jù)的排放格式？作為附件，發(fā)上來看看，有一兩行就行

贊一下

回復(fù)此樓

4樓2012-06-26 17:41:15

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

purplewds

銅蟲 (小有名氣)

應(yīng)助: 4 (幼兒園)
金幣: 124.8
帖子: 64
在線: 17.4小時
蟲號: 1111551
注冊: 2010-09-30
性別: GG
專業(yè): 結(jié)構(gòu)工程

【答案】應(yīng)助回帖

感謝參與，應(yīng)助指數(shù) +1

二樓說的對
你需要格式 100（4I6）
只要把
F1.DAT 部分文件
2570       2649       2540       2530

2532       2558       2544       2459

改成
F1.DAT 部分文件
  2570  2649  2540  2530
  2532  2558  2544  2459
每個數(shù)據(jù)前有兩個空格，行與行之間沒有回車就OK了

贊一下

回復(fù)此樓

5樓2012-06-26 18:53:35

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

haizhfly

木蟲 (正式寫手)

應(yīng)助: 16 (小學(xué)生)
金幣: 3134.8
帖子: 316
在線: 67.4小時
蟲號: 925614
注冊: 2009-12-11
專業(yè): 天氣學(xué)

【答案】應(yīng)助回帖

感謝參與，應(yīng)助指數(shù) +1

把讀文件時候指定的數(shù)據(jù)格式去掉 read（1，*）就能讀出來

贊一下

回復(fù)此樓

6樓2012-06-27 06:59:49

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

行云流水cs

金蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 1485.2
散金: 6
帖子: 93
在線: 78.3小時
蟲號: 856236
注冊: 2009-09-25
專業(yè): 化學(xué)動力學(xué)

送鮮花一朵

PROGRAM MAIN

INTEGER,ALLOCATABLE::A(:,

INTEGER M,N

WRITE(*,*)'ENTER M AND N :'

READ(*,*) M,N

ALLOCATE(A(M,N))

OPEN(UNIT=1,FILE='F1.DAT',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED')

DO 10,I=1,M

   DO 20,J=1,N

READ(1,*) A(I,J)

20 CONTINUE

CALL SORT(A,N)

10 CONTINUE

      OPEN(UNIT=2,FILE='F2.DAT',STATUS='NEW',ACCESS='SEQUENTIAL',FORM='FORMATTED')

WRITE(2,100) ((A(I,J),J=1,N),I=1,M)

CLOSE(1)

CLOSE(2)

100 FORMAT(1X,4(3X,I6))

END

C

SUBROUTINE SORT(A,N)

INTEGER N,P,A(N),K

DO 10,J=1,N-1

   P=J

   DO 20,I=J+1,N

      IF(A(I).LT.A(P)) THEN

      P=I

END IF

20    CONTINUE

   K=A(J)

   A(J)=A(P)

   A(P)=K

10 CONTINUE

END

F1.DAT如下，希望高手幫我調(diào)試一下，我的目地是將F1.dat中的數(shù)據(jù)，讀一行然后排序，再讀一行再排序。但是我發(fā)現(xiàn)程序讀取文件完全是一列讀取的。幾個例子:我本來想讀4*4
矩陣，但是程序卻讀了第一列的16個數(shù)據(jù)。
2570 2649 2540 2530

2532 2558 2544 2459

2479 2494 2515 2450

2448 2511 2458 2448

2407 2515 2510 2407

2436 2444 2384 2396

2320 2362 2330 2316

2280 2382 2320 2315

2324 2369 2252 2260

2282 2284 2303 2241

2239 2347 2232 2215

2207 2220 2216 2200

2204 2212 2174 2133

2135 2137 2140 2079

2115 2176 2203 2036

2107 2139 2742 2067

2053 2036 5555 2020

2009 1998 3807 1960

1947 2003 4393 1978

1986 1997 4894 1929

1955 1995 2131 1959

1909 1951 1927 1903

1910 1949 1873 1849

1852 1928 1842 1848

1882 1871 1830 1829

1869 1901 1772 1768

贊一下

回復(fù)此樓

為無為，事無事，味無味。大小，多少，抱怨以德。圖難乎其易也，為大乎其細(xì)也。

7樓2012-06-27 11:17:07

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

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

[考研] 284求調(diào)劑 +10	Zhao anqi 2026-03-22	10/500	2026-03-24 00:08 by Equinoxhua
[考研] 材料專業(yè)求調(diào)劑 +11	hanamiko 2026-03-18	11/550	2026-03-23 23:12 by peike
[基金申請] 請教下大家 2026年國家基金申請是雙盲審嗎？ +3	lishucheng1 2026-03-22	4/200	2026-03-23 20:48 by god_tian
[考研] 336求調(diào)劑 +4	收到VS 2026-03-20	4/200	2026-03-23 19:02 by macy2011
[考研] 328求調(diào)劑，英語六級551，有科研經(jīng)歷 +7	生物工程調(diào)劑 2026-03-17	12/600	2026-03-23 18:18 by YMU施老師
[考研] 08工學(xué)調(diào)劑 +7	用戶573181 2026-03-20	11/550	2026-03-23 15:47 by 我愛學(xué)習(xí)學(xué)習(xí)使?/a>
[考研] 291求調(diào)劑 +5	孅華 2026-03-22	5/250	2026-03-23 09:20 by haoshis
[考研] 275求調(diào)劑 +6	shansx 2026-03-22	8/400	2026-03-22 15:27 by barlinike
[考研] 311求調(diào)劑 +3	勇敢的小吳 2026-03-20	3/150	2026-03-21 17:40 by ColorlessPI
[考研] 307求調(diào)劑 +3	余意卿 2026-03-18	3/150	2026-03-21 17:31 by ColorlessPI
[考研] 336求調(diào)劑 +5	rmc8866 2026-03-21	5/250	2026-03-21 17:24 by 學(xué)員8dgXkO
[考研] 268求調(diào)劑 +9	簡單點0 2026-03-17	9/450	2026-03-21 15:37 by lature00
[考研] 一志愿重慶大學(xué)085700資源與環(huán)境專碩，總分308求調(diào)劑 +3	墨墨漠 2026-03-18	3/150	2026-03-21 00:39 by JourneyLucky
[考研] 295復(fù)試調(diào)劑 +8	簡木ChuFront 2026-03-19	8/400	2026-03-20 20:44 by zhukairuo
[考研] 一志愿南理工085701環(huán)境302求調(diào)劑院校 +3	葵梓衛(wèi)隊 2026-03-20	3/150	2026-03-20 19:28 by zhukairuo
[考研] 320求調(diào)劑0856 +3	不想起名字112 2026-03-19	3/150	2026-03-19 22:53 by 學(xué)員8dgXkO
[考研] 0703化學(xué)調(diào)劑 +4	18889395102 2026-03-18	4/200	2026-03-19 16:13 by 30660438
[考研] 085600材料與化工求調(diào)劑 +6	緒幸與子 2026-03-17	6/300	2026-03-19 13:27 by houyaoxu
[考研] 本科鄭州大學(xué)物理學(xué)院，一志愿華科070200學(xué)碩，346求調(diào)劑 +4	我不是一根蔥 2026-03-18	4/200	2026-03-19 09:11 by 浮云166
[考研] 材料，紡織，生物（0856、0710），化學(xué)招生啦 +3	Eember. 2026-03-17	9/450	2026-03-18 10:28 by Eember.