| 10 | 1/1 | 返回列表 |
| 查看: 2398 | 回復(fù): 9 | |||
[交流]
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)。 |
» 搶金幣啦!回帖就可以得到:
+2/110
+1/99
+1/81
+2/40
+1/36
+1/35
+1/35
+1/26
+1/14
+1/11
+1/9
+1/7
+1/6
+1/5
+1/4
+1/3
+1/3
+1/2
+1/1
+1/1
銅蟲(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 |
至尊木蟲(chóng) (知名作家)
木蟲(chóng) (小有名氣)
至尊木蟲(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ě)手)
| 10 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 344求調(diào)劑 +5 | knight344 2026-03-16 | 6/300 |
|
|---|---|---|---|---|
|
[考研] 266求調(diào)劑 +5 | 陽(yáng)陽(yáng)哇塞 2026-03-14 | 9/450 |
|
|
[考研] 08工科 320總分 求調(diào)劑 +5 | 梨花珞晚風(fēng) 2026-03-17 | 5/250 |
|
|
[考研] 材料專碩274一志愿陜西師范大學(xué)求調(diào)劑 +6 | 薛云鵬 2026-03-13 | 6/300 |
|
|
[考研] 280求調(diào)劑 +6 | 咕嚕曉曉 2026-03-18 | 7/350 |
|
|
[考研] 303求調(diào)劑 +4 | 睿08 2026-03-17 | 6/300 |
|
|
[考研] 0703化學(xué)求調(diào)劑 總分331 +3 | ZY-05 2026-03-13 | 3/150 |
|
|
[考研] 工科材料085601 279求調(diào)劑 +6 | 困于星晨 2026-03-17 | 6/300 |
|
|
[考研] 生物學(xué)071000 329分求調(diào)劑 +3 | 我愛(ài)生物生物愛(ài)?/a> 2026-03-17 | 3/150 |
|
|
[考研] 278求調(diào)劑 +3 | Yy7400 2026-03-13 | 3/150 |
|
|
[考研] 274求調(diào)劑 +5 | 時(shí)間點(diǎn) 2026-03-13 | 5/250 |
|
|
[考研] 070300化學(xué)學(xué)碩求調(diào)劑 +6 | 太想進(jìn)步了0608 2026-03-16 | 6/300 |
|
|
[考研] 070305求調(diào)劑 +3 | mlpqaz03 2026-03-14 | 4/200 |
|
|
[考研] 265求調(diào)劑 +4 | 威化餅07 2026-03-12 | 4/200 |
|
|
[考研] 330求調(diào)劑 +3 | ?醬給調(diào)劑跪了 2026-03-13 | 3/150 |
|
|
[考研] 310求調(diào)劑 +3 | 【上上簽】 2026-03-11 | 3/150 |
|
|
[考研] 工科材料085601 279求調(diào)劑 +8 | 困于星晨 2026-03-12 | 10/500 |
|
|
[考研] 求調(diào)劑 +3 | 程雨杭 2026-03-12 | 3/150 |
|
|
[考研] 308求調(diào)劑 +3 | 是Lupa啊 2026-03-12 | 3/150 |
|
|
[論文投稿]
投稿問(wèn)題
5+4
|
星光燦爛xt 2026-03-12 | 6/300 |
|