| 24小時(shí)熱門(mén)版塊排行榜 |
| 5 | 1/1 | 返回列表 |
| 查看: 2393 | 回復(fù): 9 | |||
| 當(dāng)前只顯示滿足指定條件的回帖,點(diǎn)擊這里查看本話題的所有回帖 | |||
[交流]
Fortran 編譯問(wèn)題
|
|||
|
我從網(wǎng)上(http://leroy.uwaterloo.ca/programs.html)下了一個(gè)fortran的程序RKR1, 是用來(lái)計(jì)算分子光譜常數(shù)的免費(fèi)程序, 但是只有程序源代碼, 并且是用郵件格式發(fā)過(guò)來(lái)的, 我試著把程序源代碼拷出來(lái)作成文本文件, 并且轉(zhuǎn)換成fortran格式,用一個(gè)網(wǎng)上編譯器進(jìn)行了編譯,然后用它發(fā)過(guò)來(lái)的sample文件(同樣是郵件發(fā)送)運(yùn)行測(cè)試,程序給出一個(gè)錯(cuò)誤“At line 86 of file ZERTh1fI.f 想問(wèn)一下這人錯(cuò)誤我該怎么解決呢?還有,由于我對(duì)于程序的了解太少,不知道有沒(méi)有人愿意幫我解決一下,我會(huì)把源程序和sample文件發(fā)過(guò)來(lái)。 |
» 搶金幣啦!回帖就可以得到:
+1/470
+1/87
+1/53
+2/38
+1/25
+1/13
+1/11
+1/8
+1/8
+1/8
+1/7
+1/7
+1/7
+1/7
+1/6
+1/5
+1/5
+1/4
+2/2
+1/2
至尊木蟲(chóng) (職業(yè)作家)
|
我測(cè)試了一下所貼出來(lái)的 86 句以及那個(gè)數(shù)據(jù)行,代碼沒(méi)有什么問(wèn)題,所以問(wèn)題在于其它的問(wèn)題 LZ 可以嘗試著在 2 READ(5,*,END=99) IAN1, IMN1, IAN2, IMN2, CHARGE, NDEGv, NDEBv 之后加一行 write(*,*) IAN1, IMN1, IAN2, IMN2, CHARGE, NDEGv, NDEBv 看看輸出是否正! |
銅蟲(chóng) (著名寫(xiě)手)
木蟲(chóng) (著名寫(xiě)手)
|
謝謝, 可是我的sample文件第一個(gè)輸入?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ā)表 | |
|---|---|---|---|---|
|
[考研] 環(huán)境工程調(diào)劑 +7 | 大可digkids 2026-03-16 | 7/350 |
|
|---|---|---|---|---|
|
[考研] 326求調(diào)劑 +5 | 上岸的小葡 2026-03-15 | 6/300 |
|
|
[考研] 085601求調(diào)劑 +4 | Du.11 2026-03-16 | 4/200 |
|
|
[考研] 290求調(diào)劑 +6 | 孔志浩 2026-03-12 | 11/550 |
|
|
[考研] 085600材料與化工 +4 | 安全上岸! 2026-03-16 | 4/200 |
|
|
[考研] 0854可跨調(diào)劑,一作一項(xiàng)核心論文五項(xiàng)專(zhuān)利,省、國(guó)級(jí)證書(shū)40+數(shù)一英一287 +3 | 小李0854 2026-03-16 | 3/150 |
|
|
[考研] 材料工程專(zhuān)碩274一志愿211求調(diào)劑 +6 | 薛云鵬 2026-03-15 | 6/300 |
|
|
[考研] 070303一志愿西北大學(xué)學(xué)碩310找調(diào)劑 +5 | d如愿上岸 2026-03-12 | 8/400 |
|
|
[考研] 285求調(diào)劑 +6 | ytter 2026-03-12 | 6/300 |
|
|
[考研] 求老師收留調(diào)劑 +4 | jiang姜66 2026-03-14 | 5/250 |
|
|
[考研]
|
笨笨兔子 2026-03-12 | 3/150 |
|
|
[考研] 070305求調(diào)劑 +3 | mlpqaz03 2026-03-14 | 4/200 |
|
|
[考研] 294求調(diào)劑 +3 | Zys010410@ 2026-03-13 | 4/200 |
|
|
[考研] 求材料調(diào)劑 085600英一數(shù)二總分302 前三科235 精通機(jī)器學(xué)習(xí) 一志愿哈工大 +4 | 林yaxin 2026-03-12 | 4/200 |
|
|
[考研] 0856材料與化工301求調(diào)劑 +5 | 奕束光 2026-03-13 | 5/250 |
|
|
[考研] 329求調(diào)劑 +3 | miaodesi 2026-03-12 | 4/200 |
|
|
[考研] 26調(diào)劑/材料科學(xué)與工程/總分295/求收留 +9 | 2026調(diào)劑俠 2026-03-12 | 9/450 |
|
|
[考研] 307求調(diào)劑 +5 | 超級(jí)伊昂大王 2026-03-12 | 5/250 |
|
|
[考研] 一志愿山大07化學(xué) 332分 四六級(jí)已過(guò) 本科山東雙非 求調(diào)劑! +3 | 不想理你 2026-03-12 | 3/150 |
|
|
[考研] 321求調(diào)劑(食品/專(zhuān)碩) +3 | xc321 2026-03-12 | 6/300 |
|