 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 8 | 1/1 | 返回列表 |
| 查看: 1838 | 回復(fù): 7 | ||
vivianich新蟲 (初入文壇)
|
[求助]
急求fortran運行錯誤原因，在線等
|
|
最近改了一個fortran77的程序，編譯都通過了，就是運行的時候出現(xiàn)錯誤如下： forrtl: severe (24): end-of-file during read, unit 1,。。。 生成的文件fort1.1，打開只有OUTPUT LU=?這一句 我覺得這說明程序一開始運行就出錯了，但不知道錯在哪里，請高手指點 部分源程序如下： PROGRAM FTURB INTEGER*4 N1M,N2M,N3M DIMENSION LABL(10) COMPLEX X(512),Y(512) COMMON N1M,N2M,N3M,INPUT,ICART INPUT=1 ICART=34 ROOT2=SQRT(2.) WRITE(INPUT,9999) 9999 FORMAT(11HOUTPUT LU=?) READ(INPUT,9998) LUOUT 9998 FORMAT(I4) WRITE(INPUT,9997) 9997 FORMAT(7HN1MAX=?) READ(INPUT,9998) N1MAX WRITE(INPUT,9996) 9996 FORMAT(7HN2MAX=?) READ(INPUT,9998) N2MAX WRITE(INPUT,9995) 9995 FORMAT(7HN3MAX=?) READ(INPUT,9998) N3MAX WRITE(INPUT,9994) 9994 FORMAT(5HFS1=?) READ(INPUT,9993) FS1 9993 FORMAT(F10.0) WRITE(INPUT,9992) 9992 FORMAT(5HFS2=?) READ(INPUT,9993) FS2 WRITE(INPUT,9991) 9991 FORMAT(5HFS3=?) READ(INPUT,9993) FS3 WRITE(INPUT,9986) 9986 FORMAT(38H ENTER VELOCITY COMPONENT (1, 2, OR 3)) READ(1,9985) II 9985 FORMAT(I1) N1M=N1MAX N2M=N2MAX N3M=N3MAX MREC=N1MAX*N2MAX*N3MAX/32 MREC=N1M*N2M*N3M/32 WRITE(1,8887) MREC 8887 FORMAT(7HMAXREC=,I7,25H ENTER FILE TO BE OPENED) READ(1,8886) (LABL(I),I=1,10) 8886 FORMAT(10A2) OPEN(ICART,FILE=LABL,IOSTAT=IOS,STATUS='NEW', * ERR=99,RECL=64, * FORM='UNFORMATTED',ACCESS='DIRECT',MAXREC=MREC) DF1=FS1/FLOAT(N1MAX) DF2=FS2/FLOAT(N2MAX) DF3=FS3/FLOAT(N3MAX) N1D2=N1MAX/2 N2D2=N2MAX/2 N3D2=N3MAX/2 DDDF=DF1*DF2*DF3 X1MAX=FLOAT(N1MAX) X2MAX=FLOAT(N2MAX) X3MAX=FLOAT(N3MAX) FFF=FS1*FS2*FS3 SIGXK=SQRT(X1MAX*X2MAX*X3MAX/2.)/FFF P=PHIU(0.,0.,0.,II) SUM=P H=SQRT(FFF*P) X(1)=SIGXK*ROOT2*H*CMPLX(GRAN(),0. ) |
回復(fù)此樓» 猜你喜歡
296求調(diào)劑
已經(jīng)有4人回復(fù)
-
湖北工業(yè)大學(xué) 生命科學(xué)與健康學(xué)院-課題組招收2026級食品/生物方向碩士
已經(jīng)有5人回復(fù)
-
085601材料工程專碩求調(diào)劑
已經(jīng)有4人回復(fù)
-
341求調(diào)劑
已經(jīng)有6人回復(fù)
-
考研化學(xué)學(xué)碩調(diào)劑，一志愿985
已經(jīng)有6人回復(fù)
-
302求調(diào)劑
已經(jīng)有9人回復(fù)
-
328求調(diào)劑，英語六級551，有科研經(jīng)歷
已經(jīng)有6人回復(fù)
-
308求調(diào)劑
已經(jīng)有4人回復(fù)
-
化學(xué)工程321分求調(diào)劑
已經(jīng)有14人回復(fù)
-
材料專碩326求調(diào)劑
已經(jīng)有7人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 請教 fortran 運行錯誤的原因
已經(jīng)有13人回復(fù)
- fortran轉(zhuǎn)換CHGCAR出錯
已經(jīng)有4人回復(fù)
- FORTRAN新手 求助主程序循環(huán)問題
已經(jīng)有10人回復(fù)
- FORTRAN編譯成功，但運行出現(xiàn)斷點
已經(jīng)有8人回復(fù)
- 我編的Simpson積分法fortran程序給不出結(jié)果，大俠們看看哪里出了問題？
已經(jīng)有4人回復(fù)
- 請教一個fortran小程序編譯出錯的問題，謝謝
已經(jīng)有9人回復(fù)
- 【求助】Fortran語言賦值問題？
已經(jīng)有3人回復(fù)
- Fortran的格式化輸入輸出問題
已經(jīng)有14人回復(fù)
- 有關(guān)fortran的一次而問題，希望大家能幫幫忙，謝謝
已經(jīng)有4人回復(fù)
- 【求助】運行fortran程序出現(xiàn)錯誤 : error LNK2019 怎么回事啊
已經(jīng)有8人回復(fù)
q1036210267
木蟲 (正式寫手)
- 應(yīng)助: 26 (小學(xué)生)
- 金幣: 2182.2
- 散金: 806
- 紅花: 4
- 帖子: 893
- 在線: 262.1小時
- 蟲號: 1346635
- 注冊: 2011-07-15
- 性別: GG
- 專業(yè): 藥物化學(xué)
2樓2012-05-20 09:04:46
vivianich
新蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 57.5
- 帖子: 7
- 在線: 4.6小時
- 蟲號: 1565264
- 注冊: 2012-01-05
- 專業(yè): 邊界層大氣物理學(xué)和大氣湍
3樓2012-05-20 09:44:01
q1036210267
木蟲 (正式寫手)
- 應(yīng)助: 26 (小學(xué)生)
- 金幣: 2182.2
- 散金: 806
- 紅花: 4
- 帖子: 893
- 在線: 262.1小時
- 蟲號: 1346635
- 注冊: 2011-07-15
- 性別: GG
- 專業(yè): 藥物化學(xué)
|
但是 ，從你的出錯提示信息：出錯的地方 就是 對 1 這個文件的操作有問題。 如果方便的話，把你的源程序貼出來 （或發(fā)我郵箱liyunzhi01@126.com），大家一起討論下。 |
4樓2012-05-20 11:06:52
vivianich
新蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 57.5
- 帖子: 7
- 在線: 4.6小時
- 蟲號: 1565264
- 注冊: 2012-01-05
- 專業(yè): 邊界層大氣物理學(xué)和大氣湍
5樓2012-05-21 09:38:54
6樓2012-05-21 09:45:21
vivianich
新蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 57.5
- 帖子: 7
- 在線: 4.6小時
- 蟲號: 1565264
- 注冊: 2012-01-05
- 專業(yè): 邊界層大氣物理學(xué)和大氣湍
7樓2012-05-21 09:51:06
vivianich
新蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 57.5
- 帖子: 7
- 在線: 4.6小時
- 蟲號: 1565264
- 注冊: 2012-01-05
- 專業(yè): 邊界層大氣物理學(xué)和大氣湍
8樓2012-05-21 16:36:17
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 vivianich 的主題更新
| 8 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 考研化學(xué)學(xué)碩調(diào)劑，一志愿985 +4 | 張vvvv 2026-03-15 | 6/300 |
|
|---|---|---|---|---|
|
[考研] 材料專碩326求調(diào)劑 +6 | 墨煜姒莘 2026-03-15 | 7/350 |
|
|
|
[考研] 材料工程專碩調(diào)劑 +4 | 204818@lcx 2026-03-17 | 4/200 |
|
|
|
[考研] 085600材料與化工 +4 | 安全上岸！ 2026-03-16 | 4/200 |
|
|
|
[考研] 283求調(diào)劑 +3 | 聽風(fēng)就是雨； 2026-03-16 | 3/150 |
|
|
|
[考研] 一志愿985，本科211，0817化學(xué)工程與技術(shù)319求調(diào)劑 +5 | Liwangman 2026-03-15 | 5/250 |
|
|
|
[考研] 304求調(diào)劑 +5 | 素年祭語 2026-03-15 | 5/250 |
|
|
|
[考研] 085601材料工程315分求調(diào)劑 +3 | yang_0104 2026-03-15 | 3/150 |
|
|
|
[考研] 本科南京大學(xué)一志愿川大藥學(xué)327 +3 | 麥田耕者 2026-03-14 | 3/150 |
|
|
|
[考研] 【0703化學(xué)調(diào)劑】-一志愿華中師范大學(xué)-六級475 +5 | Becho359 2026-03-11 | 5/250 |
|
|
|
[考研] 材料080500調(diào)劑求收留 +3 | 一顆meteor 2026-03-13 | 3/150 |
|
|
|
[考研] 279求調(diào)劑 +3 | 抓著星星的女孩 2026-03-10 | 3/150 |
|
|
|
[考研] 復(fù)試調(diào)劑 +9 | Copy267 2026-03-10 | 9/450 |
|
|
|
[考研] 341求調(diào)劑 +3 | 番茄頭--- 2026-03-10 | 3/150 |
|
|
|
[考研] 311求調(diào)劑 +3 | 冬十三 2026-03-13 | 3/150 |
|
|
|
[考研] 求b區(qū)學(xué)校調(diào)劑 +3 | 周56 2026-03-11 | 3/150 |
|
|
|
[考研] 310求調(diào)劑 +3 | 【上上簽】 2026-03-11 | 3/150 |
|
|
|
[考研] 070303一志愿西北大學(xué)學(xué)碩310找調(diào)劑 +3 | d如愿上岸 2026-03-13 | 3/150 |
|
|
|
[考研] 321求調(diào)劑（食品/專碩） +3 | xc321 2026-03-12 | 6/300 |
|
|
|
[考研] 290求調(diào)劑 +3 | 柯淮然 2026-03-10 | 8/400 |
|