行云流水cs

金蟲 (小有名氣)

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

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

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

» 猜你喜歡

274求調(diào)劑已經(jīng)有4人回復(fù)
328求調(diào)劑，英語六級551，有科研經(jīng)歷已經(jīng)有10人回復(fù)
328求調(diào)劑，英語六級551，有科研經(jīng)歷已經(jīng)有7人回復(fù)
材料專業(yè)求調(diào)劑已經(jīng)有5人回復(fù)
一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑已經(jīng)有10人回復(fù)
344求調(diào)劑已經(jīng)有7人回復(fù)
一志愿985，本科211，0817化學(xué)工程與技術(shù)319求調(diào)劑已經(jīng)有7人回復(fù)
271材料工程求調(diào)劑已經(jīng)有4人回復(fù)
材料專碩英一數(shù)二306 已經(jīng)有4人回復(fù)
294求調(diào)劑材料與化工專碩已經(jīng)有4人回復(fù)

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

fortran程序open文件時(shí)的簡單問題已經(jīng)有3人回復(fù)
fortran轉(zhuǎn)換CHGCAR出錯(cuò) 已經(jīng)有4人回復(fù)
Fortran 編譯問題已經(jīng)有9人回復(fù)
請教一個(gè)fortran小程序編譯出錯(cuò)的問題，謝謝已經(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ù)讀寫的問題。【已完結(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小時(shí)
蟲號: 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小時(shí)
蟲號: 856236
注冊: 2009-09-25
專業(yè): 化學(xué)動(dòng)力學(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）有錯(cuò)誤。但不知道怎么改。麻煩你幫我看看。

贊一下

回復(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小時(shí)
蟲號: 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小時(shí)
蟲號: 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
每個(gè)數(shù)據(jù)前有兩個(gè)空格，行與行之間沒有回車就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小時(shí)
蟲號: 925614
注冊: 2009-12-11
專業(yè): 天氣學(xué)

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

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

把讀文件時(shí)候指定的數(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小時(shí)
蟲號: 856236
注冊: 2009-09-25
專業(yè): 化學(xué)動(dòng)力學(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)程序讀取文件完全是一列讀取的。幾個(gè)例子:我本來想讀4*4
矩陣，但是程序卻讀了第一列的16個(gè)數(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ā)表

[考研] 328求調(diào)劑，英語六級551，有科研經(jīng)歷 +3	生物工程調(diào)劑 2026-03-16	10/500	2026-03-18 20:41 by Wangjingyue
[考研] 344求調(diào)劑 +6	knight344 2026-03-16	7/350	2026-03-18 20:13 by walc
[考研] 294求調(diào)劑材料與化工專碩 +4	陌の森林 2026-03-18	4/200	2026-03-18 19:57 by 無際的草原
[考研] 0703化學(xué)調(diào)劑 +7	妮妮ninicgb 2026-03-15	11/550	2026-03-18 19:48 by macy2011
[考研] 0703化學(xué) 305求調(diào)劑 +3	FY_yy 2026-03-14	3/150	2026-03-18 19:40 by macy2011
[考研] 一志愿中國海洋大學(xué)，生物學(xué)，301分，求調(diào)劑 +4	1孫悟空 2026-03-17	4/200	2026-03-18 17:59 by fivewind
[考研] 一志愿武理材料305分求調(diào)劑 +5	想上岸的鯉魚 2026-03-18	6/300	2026-03-18 17:53 by 無際的草原
[教師之家] 焦慮 +8	水冰月月野兔 2026-03-13	12/600	2026-03-18 15:27 by 咪嗚喵嗚
[考研] 材料專碩306英一數(shù)二 +10	z1z2z3879 2026-03-16	13/650	2026-03-18 14:20 by 007_lilei
[考研] 生物學(xué)071000 329分求調(diào)劑 +3	我愛生物生物愛?/a> 2026-03-17	3/150	2026-03-18 10:12 by macy2011
[考研] 301求調(diào)劑 +4	A_JiXing 2026-03-16	4/200	2026-03-17 17:32 by ruiyingmiao
[考研] 本人考085602 化學(xué)工程專碩 +16	不知道叫什么！ 2026-03-15	18/900	2026-03-17 17:05 by ruiyingmiao
[考研] 中科院材料273求調(diào)劑 +4	yzydy 2026-03-15	4/200	2026-03-16 15:59 by Gaodh_82
[考研] 材料與化工 323 英一+數(shù)二+物化，一志愿：哈工大本人本科雙一流 +4	自由的_飛翔 2026-03-13	5/250	2026-03-14 19:39 by hmn_wj
[考研] 材料與化工（0856）304求B區(qū)調(diào)劑 +6	邱gl 2026-03-12	7/350	2026-03-13 23:24 by 邱gl
[考研] 26調(diào)劑/材料科學(xué)與工程/總分295/求收留 +9	2026調(diào)劑俠 2026-03-12	9/450	2026-03-13 20:46 by 18595523086
[考研] 0703化學(xué)求調(diào)劑 +7	綠豆芹菜湯 2026-03-12	7/350	2026-03-13 17:25 by njzyff
[考研] 求調(diào)劑 +7	18880831720 2026-03-11	7/350	2026-03-13 16:10 by JourneyLucky
[考研] 290求調(diào)劑 +7	ADT 2026-03-12	7/350	2026-03-13 15:17 by JourneyLucky
[考研] 308求調(diào)劑 +3	是Lupa啊 2026-03-12	3/150	2026-03-13 14:30 by 求調(diào)劑zz