black2982

金蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 753.5
帖子: 61
在線: 17.1小時
蟲號: 898823

[交流] Fortran 編譯問題

我從網(wǎng)上（http://leroy.uwaterloo.ca/programs.html）下了一個fortran的程序RKR1, 是用來計算分子光譜常數(shù)的免費程序, 但是只有程序源代碼, 并且是用郵件格式發(fā)過來的, 我試著把程序源代碼拷出來作成文本文件, 并且轉(zhuǎn)換成fortran格式，用一個網(wǎng)上編譯器進行了編譯，然后用它發(fā)過來的sample文件(同樣是郵件發(fā)送)運行測試，程序給出一個錯誤“At line 86 of file ZERTh1fI.f Fortran runtime error: Bad integer for item 1 in list input“

想問一下這人錯誤我該怎么解決呢？還有，由于我對于程序的了解太少，不知道有沒有人愿意幫我解決一下，我會把源程序和sample文件發(fā)過來。

回復(fù)此樓

» 猜你喜歡

293求調(diào)劑已經(jīng)有14人回復(fù)
0703化學336分求調(diào)劑已經(jīng)有6人回復(fù)
304求調(diào)劑已經(jīng)有9人回復(fù)
281求調(diào)劑（0805）已經(jīng)有8人回復(fù)
環(huán)境領(lǐng)域全國重點實驗室招收博士1-2名已經(jīng)有3人回復(fù)
材料專碩306英一數(shù)二已經(jīng)有10人回復(fù)
301求調(diào)劑已經(jīng)有6人回復(fù)
一志愿天津大學化學工藝專業(yè)（081702）315分求調(diào)劑已經(jīng)有7人回復(fù)
302求調(diào)劑已經(jīng)有6人回復(fù)
26博士申請已經(jīng)有3人回復(fù)

» 本主題相關(guān)商家推薦: (我也要在這里推廣)

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

opnempi安裝問題已經(jīng)有3人回復(fù)
vsap 5.2 環(huán)境和編譯問題已經(jīng)有14人回復(fù)
cp2k并行編譯出錯已經(jīng)有3人回復(fù)
請教一個fortran小程序編譯出錯的問題，謝謝已經(jīng)有9人回復(fù)
三維數(shù)組換行輸入到文件（intel fortran 編譯器）已經(jīng)有6人回復(fù)
編譯vasp出錯已經(jīng)有11人回復(fù)
【求助】vasp編譯問題，請自己動手安裝成功的人回復(fù)！已經(jīng)有9人回復(fù)
【求助】vasp安裝與編譯問題(100金幣) 已經(jīng)有10人回復(fù)
【討論】求助cpmd的編譯問題已經(jīng)有4人回復(fù)
【求助】VASP 編譯出錯已經(jīng)有24人回復(fù)
【分享】Intel Fortran 編譯器Linux專業(yè)版已經(jīng)有8人回復(fù)

» 搶金幣啦！回帖就可以得到:

查看全部散金貼

1樓 2012-02-20 10:16:28

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

lijie169

銅蟲 (著名寫手)

應(yīng)助: 159 (高中生)
金幣: 161.5
帖子: 1338
在線: 491.5小時
蟲號: 1180408

★
black2982(金幣+1):謝謝參與

你不懂Fortran么？這個是運行錯誤....

贊一下

回復(fù)此樓

2樓2012-02-20 12:24:07

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

lurencyj

木蟲 (著名寫手)

應(yīng)助: 159 (高中生)
金幣: 2869.2
帖子: 1244
在線: 148.3小時
蟲號: 888093

★
black2982(金幣+1):謝謝參與

那個錯誤信息說sample文件里面的第一個輸入?yún)?shù)應(yīng)該是整數(shù)，但實際上不是個整數(shù)。

贊一下

回復(fù)此樓

3樓2012-02-20 17:18:33

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

black2982

金蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 753.5
帖子: 61
在線: 17.1小時
蟲號: 898823

引用回帖:

3樓: Originally posted by lurencyj at 2012-02-20 17:18:33:
那個錯誤信息說sample文件里面的第一個輸入?yún)?shù)應(yīng)該是整數(shù)，但實際上不是個整數(shù)。

謝謝, 可是我的sample文件第一個輸入?yún)?shù)是整數(shù)

程序第86行:
2 READ(5,*,END=99) IAN1, IMN1, IAN2, IMN2, CHARGE, NDEGv, NDEBv

Sample文件:
  11 23  11 23  0  1  1                % IAN1 IMN1 IAN2 IMN2 CHARGE NDEGv NDEBv
'(iii) Liu et al. JCP 111, 3494 (1999) NDE functions for Na2:  VEXT = 0'
6  1  1 1  3 2 61.41d0  4.4867d-2 % NLR ITYPE IZP0 IZQ0 NP0 NQ0 VD XCN0
0.436636d0  -3.529d-3  1.54d-5
4.8d-2  1.366d-2
3  1 0  7 0  3.0921d-3             % ITYPB IZP1 IZQ1 NP1 NQ1 XCN1
0.1341d0  -1.6863d-2  9.2d-4  -2.810837d-5  4.924d-7  -4.61952d-9  1.8d-11
1  2 0.d0                         % Kaiser NSV VEXT
  -0.4d0  0.2d0  1.6d0                %(1) V1 DV V2
1.d0 1.0d0 61.d0                %(2) V1 DV V2

贊一下

回復(fù)此樓

4樓2012-02-21 09:42:39

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

black2982

金蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 753.5
帖子: 61
在線: 17.1小時
蟲號: 898823

引用回帖:

2樓: Originally posted by lijie169 at 2012-02-20 12:24:07:
你不懂Fortran么？這個是運行錯誤....

是的, 不懂, 請問應(yīng)該怎么解決呢?謝謝

贊一下

回復(fù)此樓

5樓2012-02-21 09:52:17

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

ygl820

至尊木蟲 (知名作家)

應(yīng)助: 133 (高中生)
金幣: 52775.9
帖子: 7067
在線: 1043.9小時
蟲號: 81941

★
black2982(金幣+1):謝謝參與

讀入的數(shù)據(jù)文件格式不對，應(yīng)該是整數(shù)intger，檢查數(shù)據(jù)文件“ 11...”這一行有沒有非法字符。

贊一下

回復(fù)此樓

6樓2012-02-21 10:06:49

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

black2982

金蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 753.5
帖子: 61
在線: 17.1小時
蟲號: 898823

引用回帖:

6樓: Originally posted by ygl820 at 2012-02-21 10:06:49:
讀入的數(shù)據(jù)文件格式不對，應(yīng)該是整數(shù)intger，檢查數(shù)據(jù)文件“ 11...”這一行有沒有非法字符。

好的, 謝謝

回復(fù)此樓

7樓2012-02-21 20:00:23

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

emanlee

木蟲 (小有名氣)

應(yīng)助: 28 (小學生)
金幣: 3521.6
帖子: 116
在線: 125.6小時
蟲號: 1466309

★
black2982(金幣+1):謝謝參與

Sample文件:
11 23 11 23 0 1 1 % IAN1 IMN1 IAN2 IMN2 CHARGE NDEGv NDEBv
=================================================
Sample文件中，檢查“11”前面是否有空格，如果有的話刪掉空格。
把 % 及后面的內(nèi)容都刪除，再試一試。

贊一下

回復(fù)此樓

8樓2012-02-21 22:45:07

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

snoopyzhao

至尊木蟲 (職業(yè)作家)

★
black2982(金幣+1):謝謝參與
余澤成(金幣+2): 謝謝參與應(yīng)助！ 2012-02-25 04:37:49

我測試了一下所貼出來的 86 句以及那個數(shù)據(jù)行，代碼沒有什么問題，所以問題在于其它的問題

LZ 可以嘗試著在
2 READ(5,*,END=99) IAN1, IMN1, IAN2, IMN2, CHARGE, NDEGv, NDEBv
之后加一行
write(*,*) IAN1, IMN1, IAN2, IMN2, CHARGE, NDEGv, NDEBv

看看輸出是否正�！�

贊一下

回復(fù)此樓

9樓2012-02-23 14:03:20

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

18766315007

新蟲 (著名寫手)

應(yīng)助: 0 (幼兒園)
金幣: 6308.5
帖子: 1259
在線: 263.5小時
蟲號: 2979660

★
black2982(金幣+1): 謝謝參與

請問樓主，解決了嗎？

發(fā)自小木蟲Android客戶端

贊一下

回復(fù)此樓

10樓2016-10-19 15:28:13

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

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

[考研] 301求調(diào)劑 +6	yy要上岸呀 2026-03-17	6/300	2026-03-17 23:58 by 星空星月
[考研] 302求調(diào)劑 +6	呼呼呼。。。。 2026-03-17	6/300	2026-03-17 23:56 by 星空星月
[考研] 070300化學319求調(diào)劑 +4	錦鯉0909 2026-03-17	4/200	2026-03-17 18:21 by 重科小霸王
[考研] 268求調(diào)劑 +8	一定有學上- 2026-03-14	9/450	2026-03-17 17:47 by laoshidan
[考研] 344求調(diào)劑 +4	knight344 2026-03-16	4/200	2026-03-17 17:27 by ruiyingmiao
[考研] 本人考085602 化學工程專碩 +16	不知道叫什么！ 2026-03-15	18/900	2026-03-17 17:05 by ruiyingmiao
[考研] 材料與化工專碩調(diào)劑 +5	heming3743 2026-03-16	5/250	2026-03-17 14:03 by 勇敢太監(jiān)王公公
[基金申請] 國自科面上基金字體 +6	iwuli 2026-03-12	7/350	2026-03-16 21:18 by sculhf
[考研] 085600材料與化工求調(diào)劑 +13	enenenhui 2026-03-13	14/700	2026-03-16 15:19 by 了了了了。。
[考研] 材料與化工（0856）304求B區(qū)調(diào)劑 +6	邱gl 2026-03-12	7/350	2026-03-13 23:24 by 邱gl
[考研] 求材料調(diào)劑 085600英一數(shù)二總分302 前三科235 精通機器學習一志愿哈工大 +4	林yaxin 2026-03-12	4/200	2026-03-13 22:04 by 星空星月
[考研] 工科，求調(diào)劑 +3	我887 2026-03-11	3/150	2026-03-13 21:39 by JourneyLucky
[碩博家園] 085600 260分求調(diào)劑 +3	天空還下雨么 2026-03-13	5/250	2026-03-13 18:46 by 天空還下雨么
[考研] 求調(diào)劑 +5	一定有學上- 2026-03-12	5/250	2026-03-13 18:31 by ms629
[考研] 0703化學求調(diào)劑 +7	綠豆芹菜湯 2026-03-12	7/350	2026-03-13 17:25 by njzyff
[考研] 材料專碩350 求調(diào)劑 +4	王金科 2026-03-12	4/200	2026-03-13 16:02 by ruiyingmiao
[考研] 328化工專碩求調(diào)劑 +4	。，。，。，。i 2026-03-12	4/200	2026-03-13 14:44 by JourneyLucky
[考研] 一志愿山大07化學 332分四六級已過本科山東雙非求調(diào)劑！ +3	不想理你 2026-03-12	3/150	2026-03-13 14:18 by JourneyLucky
[考研] 289求調(diào)劑 +3	李政瑩 2026-03-12	3/150	2026-03-13 11:02 by 求調(diào)劑zz
[考研] 081200-11408-276學碩求調(diào)劑 +3	崔wj 2026-03-12	4/200	2026-03-12 19:33 by 求調(diào)劑zz