 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1600 | 回復(fù): 6 | |||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | |||
行云流水cs金蟲 (小有名氣)
|
[求助]
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» 猜你喜歡
298-一志愿中國(guó)農(nóng)業(yè)大學(xué)-求調(diào)劑
已經(jīng)有5人回復(fù)
-
297求調(diào)劑
已經(jīng)有5人回復(fù)
-
302求調(diào)劑
已經(jīng)有10人回復(fù)
-
266求調(diào)劑
已經(jīng)有8人回復(fù)
-
化學(xué)工程321分求調(diào)劑
已經(jīng)有17人回復(fù)
-
344求調(diào)劑
已經(jīng)有5人回復(fù)
-
312求調(diào)劑
已經(jīng)有9人回復(fù)
-
一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑
已經(jīng)有9人回復(fù)
-
288求調(diào)劑，一志愿華南理工大學(xué)071005
已經(jīng)有4人回復(fù)
-
304求調(diào)劑
已經(jīng)有13人回復(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ù)
purplewds
銅蟲 (小有名氣)
- 應(yīng)助: 4 (幼兒園)
- 金幣: 124.8
- 帖子: 64
- 在線: 17.4小時(shí)
- 蟲號(hào): 1111551
- 注冊(cè): 2010-09-30
- 性別: GG
- 專業(yè): 結(jié)構(gòu)工程
5樓2012-06-26 18:53:35
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
感謝參與，應(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)即可 |
2樓2012-06-24 22:47:25
行云流水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 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ò)誤。但不知道怎么改。麻煩你幫我看看。 |
3樓2012-06-25 10:40:58
mingkeng
至尊木蟲 (正式寫手)
- 應(yīng)助: 11 (小學(xué)生)
- 金幣: 9386.4
- 帖子: 620
- 在線: 213.2小時(shí)
- 蟲號(hào): 194003
- 注冊(cè): 2006-02-22
- 專業(yè): 大氣科學(xué)
4樓2012-06-26 17:41:15
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 085601材料工程專碩求調(diào)劑 +5 | 慕寒mio 2026-03-16 | 5/250 |
|
|---|---|---|---|---|
|
|
[碩博家園] 湖北工業(yè)大學(xué) 生命科學(xué)與健康學(xué)院-課題組招收2026級(jí)食品/生物方向碩士 +3 | 1喜春8 2026-03-17 | 5/250 |
|
|
[考研] 考研化學(xué)學(xué)碩調(diào)劑，一志愿985 +4 | 張vvvv 2026-03-15 | 6/300 |
|
|
|
[考研] 求調(diào)劑，總分315，考的生物醫(yī)藥，一志愿湖南師范大學(xué)。調(diào)劑到任何專業(yè)都可以 +4 | 小丁想進(jìn)步 2026-03-11 | 5/250 |
|
|
|
[考研] 材料工程專碩274一志愿211求調(diào)劑 +6 | 薛云鵬 2026-03-15 | 6/300 |
|
|
|
[考研] 一志愿南京大學(xué)，080500材料科學(xué)與工程，調(diào)劑 +4 | Jy? 2026-03-16 | 4/200 |
|
|
|
[考研] 275求調(diào)劑 +4 | 太陽(yáng)花天天開心 2026-03-16 | 4/200 |
|
|
|
[考研] 289求調(diào)劑 +6 | 步川酷紫123 2026-03-11 | 6/300 |
|
|
|
[考研] 0854控制工程 359求調(diào)劑 可跨專業(yè) +3 | 626776879 2026-03-14 | 9/450 |
|
|
|
[考研] 0703一志愿211 285分求調(diào)劑 +5 | ly3471z 2026-03-13 | 5/250 |
|
|
|
[考研] 材料與化工一志愿南昌大學(xué)327求調(diào)劑推薦 +7 | Ncdx123456 2026-03-13 | 8/400 |
|
|
|
[考研] 326求調(diào)劑 +3 | mlpqaz03 2026-03-15 | 3/150 |
|
|
|
[基金申請(qǐng)] 現(xiàn)在如何回避去年的某一個(gè)專家，不知道名字 +3 | zk200107 2026-03-12 | 6/300 |
|
|
|
[考研] 255求調(diào)劑 +3 | 李嘉慧， 2026-03-12 | 4/200 |
|
|
|
[考研] 一志愿西南交大，材料專碩317求調(diào)劑 +5 | lx8568 2026-03-11 | 5/250 |
|
|
|
[考研] 307求調(diào)劑 +5 | 超級(jí)伊昂大王 2026-03-12 | 5/250 |
|
|
|
[考研] 295求調(diào)劑 +3 | 小匕仔汁 2026-03-12 | 3/150 |
|
|
|
[考研] 328化工專碩求調(diào)劑 +4 | 。，。，。，。i 2026-03-12 | 4/200 |
|
|
|
[考研] 070303一志愿西北大學(xué)學(xué)碩310找調(diào)劑 +3 | d如愿上岸 2026-03-13 | 3/150 |
|
|
|
[考研] 321求調(diào)劑（食品/專碩） +3 | xc321 2026-03-12 | 6/300 |
|