當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖

行云流水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

» 猜你喜歡

求材料調(diào)劑已經(jīng)有6人回復(fù)
085600材料與化工已經(jīng)有5人回復(fù)
085600材料與化工調(diào)劑 324分已經(jīng)有6人回復(fù)
286求調(diào)劑已經(jīng)有9人回復(fù)
焦慮已經(jīng)有12人回復(fù)
344求調(diào)劑已經(jīng)有6人回復(fù)
266求調(diào)劑已經(jīng)有9人回復(fù)
化學(xué)工程321分求調(diào)劑已經(jīng)有18人回復(fù)
314求調(diào)劑已經(jīng)有8人回復(fù)
08工科 320總分求調(diào)劑已經(jīng)有5人回復(fù)

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

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

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

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

已閱回復(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è)例子:我本來(lái)想讀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ù)此樓

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

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

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

查看全部 7 個(gè)回答

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ù)此樓

為無(wú)為，事無(wú)事，味無(wú)味。大小，多少，抱怨以德。圖難乎其易也，為大乎其細(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ā)上來(lái)看看，有一兩行就行

贊一下

回復(fù)此樓

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

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

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

[考研] 0703化學(xué)調(diào)劑，六級(jí)已過(guò)，有科研經(jīng)歷 +10	曦熙兮 2026-03-15	10/500	2026-03-18 14:19 by 007_lilei
[考研] 能源材料化學(xué)課題組招收碩士研究生8-10名 +4	脫穎而出 2026-03-16	9/450	2026-03-18 14:13 by 脫穎而出
[考研] 312求調(diào)劑 +8	陌宸希 2026-03-16	9/450	2026-03-18 12:39 by Linda Hu
[考研] 一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑 +9	yangfz 2026-03-17	9/450	2026-03-18 12:38 by 盡舜堯1
[考研] 0854，計(jì)算機(jī)類招收調(diào)劑 +3	胡辣湯放糖 2026-03-15	6/300	2026-03-18 12:09 by 上岸上岸……..
[考研] 工科材料085601 279求調(diào)劑 +6	困于星晨 2026-03-17	6/300	2026-03-18 10:21 by kkcoco25
[考博] 26博士申請(qǐng) +3	1042136743 2026-03-17	3/150	2026-03-17 23:30 by 輕松不少隨
[考研] 考研求調(diào)劑 +3	橘頌. 2026-03-17	4/200	2026-03-17 21:43 by 有只貍奴
[考研] 材料與化工求調(diào)劑 +6	為學(xué)666 2026-03-16	6/300	2026-03-17 20:15 by peike
[考研] 326求調(diào)劑 +5	上岸的小葡 2026-03-15	6/300	2026-03-17 17:26 by ruiyingmiao
[考研] 材料專碩326求調(diào)劑 +6	墨煜姒莘 2026-03-15	7/350	2026-03-17 17:10 by ruiyingmiao
[考研] 278求調(diào)劑 +3	Yy7400 2026-03-13	3/150	2026-03-17 08:24 by laoshidan
[考研] [導(dǎo)師推薦]西南科技大學(xué)國(guó)防/材料導(dǎo)師推薦 +3	尖角小荷 2026-03-16	6/300	2026-03-16 23:21 by 尖角小荷
[考研] 326求調(diào)劑 +4	諾貝爾化學(xué)獎(jiǎng)覬?/a> 2026-03-15	7/350	2026-03-16 17:11 by 諾貝爾化學(xué)獎(jiǎng)覬?/a>
[基金申請(qǐng)] 今年的國(guó)基金是打分制嗎？ 50+3	zhanghaozhu 2026-03-14	3/150	2026-03-16 17:07 by 北京萊茵潤(rùn)色
[考研] 265求調(diào)劑 +4	威化餅07 2026-03-12	4/200	2026-03-14 17:23 by userper
[考研] 328求調(diào)劑 +3	5201314Lsy！ 2026-03-13	6/300	2026-03-14 15:31 by hyswxzs
[考研] 308 085701 四六級(jí)已過(guò)求調(diào)劑 +7	溫喬喬喬喬 2026-03-12	14/700	2026-03-14 10:49 by JourneyLucky
[考研] 材料與化工求調(diào)劑一志愿 985 總分 295 +8	dream…… 2026-03-12	8/400	2026-03-13 22:17 by 星空星月
[考研] 0856材料與化工301求調(diào)劑 +5	奕束光 2026-03-13	5/250	2026-03-13 22:00 by 星空星月