行云流水cs

金蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 1485.2
散金: 6
帖子: 93
在線: 78.3小時(shí)
蟲號(hào): 856236
注冊(cè): 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

» 猜你喜歡

一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑已經(jīng)有8人回復(fù)
0703化學(xué)調(diào)劑已經(jīng)有3人回復(fù)
材料，紡織，生物（0856、0710），化學(xué)招生啦已經(jīng)有9人回復(fù)
一志愿中國海洋大學(xué)，生物學(xué)，301分，求調(diào)劑已經(jīng)有3人回復(fù)
280求調(diào)劑已經(jīng)有4人回復(fù)
0703化學(xué)調(diào)劑，六級(jí)已過，有科研經(jīng)歷已經(jīng)有9人回復(fù)
工科材料085601 279求調(diào)劑已經(jīng)有6人回復(fù)
070300化學(xué)319求調(diào)劑已經(jīng)有5人回復(fù)
生物學(xué)071000 329分求調(diào)劑已經(jīng)有3人回復(fù)
0703化學(xué)調(diào)劑已經(jīng)有6人回復(fù)

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

fortran程序open文件時(shí)的簡(jiǎn)單問題已經(jīng)有3人回復(fù)
fortran轉(zhuǎn)換CHGCAR出錯(cuò) 已經(jīng)有4人回復(fù)
Fortran 編譯問題已經(jīng)有9人回復(fù)
請(qǐng)教一個(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ù)讀寫的問題�！疽淹杲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小時(shí)
蟲號(hào): 194003
注冊(cè): 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í)
蟲號(hào): 856236
注冊(cè): 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
對(duì)程序稍微改了一下，但是出現(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í)
蟲號(hào): 194003
注冊(cè): 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í)
蟲號(hào): 1111551
注冊(cè): 2010-09-30
性別: GG
專業(yè): 結(jié)構(gòu)工程

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

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

二樓說的對(duì)
你需要格式 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í)
蟲號(hào): 925614
注冊(cè): 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í)
蟲號(hào): 856236
注冊(cè): 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ā)表

[考研] 0703化學(xué)調(diào)劑 +3	妮妮ninicgb 2026-03-17	3/150	2026-03-18 10:29 by macy2011
[考研] 278求調(diào)劑 +5	煙火先于春 2026-03-17	5/250	2026-03-18 08:43 by 星空星月
[考研] 334求調(diào)劑 +3	志存高遠(yuǎn)意在機(jī)?/a> 2026-03-16	3/150	2026-03-18 08:34 by lm4875102
[考研] 281求調(diào)劑（0805） +3	煙汐憶海 2026-03-16	9/450	2026-03-18 07:23 by 煙汐憶海
[考研] 299求調(diào)劑 +4	△小透明* 2026-03-17	4/200	2026-03-17 20:09 by peike
[考研] 326求調(diào)劑 +5	上岸的小葡 2026-03-15	6/300	2026-03-17 17:26 by ruiyingmiao
[考研] 一志愿蘇州大學(xué)材料工程（085601）專碩有科研經(jīng)歷三項(xiàng)國獎(jiǎng)兩個(gè)實(shí)用型專利一項(xiàng)省級(jí)立項(xiàng) +6	大火山小火山 2026-03-16	8/400	2026-03-17 15:05 by 無懈可擊111
[考研] 211本，11408一志愿中科院277分，曾在中科院自動(dòng)化所實(shí)習(xí) +6	Losir 2026-03-12	7/350	2026-03-17 12:09 by danranxie
[考研] 283求調(diào)劑 +3	聽風(fēng)就是雨； 2026-03-16	3/150	2026-03-17 07:41 by 熱情沙漠
[基金申請(qǐng)] 今年的國基金是打分制嗎？ 50+3	zhanghaozhu 2026-03-14	3/150	2026-03-16 17:07 by 北京萊茵潤色
[考研] 0703一志愿211 285分求調(diào)劑 +5	ly3471z 2026-03-13	5/250	2026-03-16 16:16 by 哦哦123
[考研] 085600材料與化工求調(diào)劑 +13	enenenhui 2026-03-13	14/700	2026-03-16 15:19 by 了了了了。。
[考研] 材料與化工一志愿南昌大學(xué)327求調(diào)劑推薦 +7	Ncdx123456 2026-03-13	8/400	2026-03-16 12:15 by karry wen
[考研] 289求調(diào)劑 +4	這么名字咋樣 2026-03-14	6/300	2026-03-14 18:58 by userper
[基金申請(qǐng)] 有必要更換申報(bào)口嗎 20+3	fannyamoy 2026-03-11	3/150	2026-03-14 00:52 by zhanghaozhu
[考研] 求調(diào)劑（材料與化工327） +4	愛吃香菜啦 2026-03-11	4/200	2026-03-13 22:11 by JourneyLucky
[碩博家園] 085600 260分求調(diào)劑 +3	天空還下雨么 2026-03-13	5/250	2026-03-13 18:46 by 天空還下雨么
[考研] 求調(diào)劑 +7	18880831720 2026-03-11	7/350	2026-03-13 16:10 by JourneyLucky
[考研] 一志愿山大07化學(xué) 332分四六級(jí)已過本科山東雙非求調(diào)劑！ +3	不想理你 2026-03-12	3/150	2026-03-13 14:18 by JourneyLucky
[論文投稿] 投稿問題 5+4	星光燦爛xt 2026-03-12	6/300	2026-03-13 14:17 by god_tian