 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1604 | 回復: 6 | |||
| 當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | |||
行云流水cs金蟲 (小有名氣)
|
[求助]
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 |
回復此樓» 收錄本帖的淘帖專輯推薦
 Linux系統(tǒng)學習 |
» 本帖已獲得的紅花（最新10朵）
行云流水cs» 猜你喜歡
求材料調劑
已經有8人回復
-
294求調劑材料與化工專碩
已經有5人回復
-
一志愿華中科技大學，080502，354分求調劑
已經有4人回復
-
一志愿吉林大學材料學碩321求調劑
已經有6人回復
-
085410人工智能專碩317求調劑（0854都可以）
已經有3人回復
-
330求調劑
已經有3人回復
-
一志愿中海洋材料工程專碩330分求調劑
已經有5人回復
-
304求調劑
已經有5人回復
-
311求調劑
已經有4人回復
-
354求調劑
已經有7人回復
» 本主題相關價值貼推薦，對您同樣有幫助:
- fortran程序open文件時的簡單問題
已經有3人回復
- fortran轉換CHGCAR出錯
已經有4人回復
- Fortran 編譯問題
已經有9人回復
- 請教一個fortran小程序編譯出錯的問題，謝謝
已經有9人回復
- 【求助】Fortran語言賦值問題？
已經有3人回復
- Fortran的格式化輸入輸出問題
已經有14人回復
- 三維數(shù)組換行輸入到文件（intel fortran 編譯器）
已經有6人回復
- 有關fortran的一次而問題，希望大家能幫幫忙，謝謝
已經有4人回復
- 【整理】今天整理硬盤上的資料，偶然發(fā)現(xiàn)的好玩的小東西就直接發(fā)上來吧
已經有105人回復
- 【求助】如何寫FORTRAN程序實現(xiàn)求平均最近鄰距離
已經有34人回復
- 【求助】求高手關于Fortran數(shù)據(jù)讀寫的問題�！疽淹杲Y】
已經有12人回復
- 【分享】將ELFCAR、CHGCAR轉化成MS閱讀可讀的fortran代碼
已經有142人回復
- 【求助】DL_POLY的config文件如何生成??
已經有98人回復
行云流水cs
金蟲 (小有名氣)
- 應助: 0 (幼兒園)
- 金幣: 1485.2
- 散金: 6
- 帖子: 93
- 在線: 78.3小時
- 蟲號: 856236
- 注冊: 2009-09-25
- 專業(yè): 化學動力學
|
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）有錯誤。但不知道怎么改。麻煩你幫我看看。 |
3樓2012-06-25 10:40:58
mingkeng
至尊木蟲 (正式寫手)
- 應助: 11 (小學生)
- 金幣: 9386.4
- 帖子: 620
- 在線: 213.2小時
- 蟲號: 194003
- 注冊: 2006-02-22
- 專業(yè): 大氣科學
【答案】應助回帖
★ ★ ★ ★ ★ ★
感謝參與，應助指數(shù) +1
jjdg: 金幣+1, 感謝參與 2012-06-25 00:07:55
行云流水cs: 金幣+5, ★★★很有幫助 2012-06-25 10:36:02
感謝參與，應助指數(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
mingkeng
至尊木蟲 (正式寫手)
- 應助: 11 (小學生)
- 金幣: 9386.4
- 帖子: 620
- 在線: 213.2小時
- 蟲號: 194003
- 注冊: 2006-02-22
- 專業(yè): 大氣科學
4樓2012-06-26 17:41:15
purplewds
銅蟲 (小有名氣)
- 應助: 4 (幼兒園)
- 金幣: 124.8
- 帖子: 64
- 在線: 17.4小時
- 蟲號: 1111551
- 注冊: 2010-09-30
- 性別: GG
- 專業(yè): 結構工程
5樓2012-06-26 18:53:35
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 一志愿中海洋材料工程專碩330分求調劑 +5 | 小材化本科 2026-03-18 | 5/250 |
|
|---|---|---|---|---|
|
|
[考研] 能源材料化學課題組招收碩士研究生8-10名 +4 | 脫穎而出 2026-03-16 | 10/500 |
|
|
|
[考研] 【同濟軟件】軟件（085405）考研求調劑 +3 | 2026eternal 2026-03-18 | 3/150 |
|
|
|
[考研] 化工學碩306求調劑 +10 | 42838695 2026-03-12 | 10/500 |
|
|
|
[考研] 0703化學求調劑 總分331 +3 | ZY-05 2026-03-13 | 3/150 |
|
|
[考研] 265求調劑 +3 | 梁梁校校 2026-03-17 | 3/150 |
|
|
|
[考研] 296求調劑 +5 | 大口吃飯 身體健 2026-03-13 | 5/250 |
|
|
|
[考研] 278求調劑 +3 | Yy7400 2026-03-13 | 3/150 |
|
|
|
[考研] 一志愿211 0703方向310分求調劑 +3 | 努力奮斗112 2026-03-15 | 3/150 |
|
|
|
[考研] 304求調劑 +3 | 曼殊2266 2026-03-14 | 3/150 |
|
|
|
[考研] 085600材料與化工 求調劑 +13 | enenenhui 2026-03-13 | 14/700 |
|
|
|
[考研] 0703 物理化學調劑 +3 | 我可以上岸的對?/a> 2026-03-13 | 5/250 |
|
|
|
[考研] 0703化學調劑 290分有科研經歷，論文在投 +7 | 膩膩gk 2026-03-14 | 7/350 |
|
|
|
[考研] 304求調劑 +6 | Mochaaaa 2026-03-12 | 7/350 |
|
|
|
[考研] 26調劑/材料科學與工程/總分295/求收留 +9 | 2026調劑俠 2026-03-12 | 9/450 |
|
|
|
[考研] 0703化學求調劑 +7 | 綠豆芹菜湯 2026-03-12 | 7/350 |
|
|
|
[考研] 考研調劑 +4 | 芬達46 2026-03-12 | 4/200 |
|
|
|
[考研] 工科材料085601 279求調劑 +8 | 困于星晨 2026-03-12 | 10/500 |
|
|
|
[考研] 274求調劑 +3 | S.H1 2026-03-12 | 3/150 |
|
|
|
[考研] 328化工專碩求調劑 +4 | 。，。，。，。i 2026-03-12 | 4/200 |
|