| 5 | 1/1 | 返回列表 |
| 查看: 2396 | 回復(fù): 9 | |||
| 當前只顯示滿足指定條件的回帖,點擊這里查看本話題的所有回帖 | |||
[交流]
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 想問一下這人錯誤我該怎么解決呢?還有,由于我對于程序的了解太少,不知道有沒有人愿意幫我解決一下,我會把源程序和sample文件發(fā)過來。 |
» 搶金幣啦!回帖就可以得到:
+5/355
+2/112
+1/99
+1/87
+1/36
+1/20
+2/14
+1/10
+1/9
+1/7
+1/6
+1/5
+1/4
+2/2
+1/2
+1/2
+1/2
+1/2
+1/1
+1/1
|
謝謝, 可是我的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ā)表 | |
|---|---|---|---|---|
|
[考研] 工科材料085601 279求調(diào)劑 +6 | 困于星晨 2026-03-17 | 6/300 |
|
|---|---|---|---|---|
|
[考研] 環(huán)境工程調(diào)劑 +8 | 大可digkids 2026-03-16 | 8/400 |
|
|
[考研] 085601材料工程專碩求調(diào)劑 +5 | 慕寒mio 2026-03-16 | 5/250 |
|
|
[考研] 材料專碩274一志愿陜西師范大學求調(diào)劑 +5 | 薛云鵬 2026-03-13 | 5/250 |
|
|
[考研] 286求調(diào)劑 +3 | lemonzzn 2026-03-16 | 5/250 |
|
|
[考研] 0854控制工程 359求調(diào)劑 可跨專業(yè) +3 | 626776879 2026-03-14 | 9/450 |
|
|
[考研] 085600調(diào)劑 +5 | 漾漾123sun 2026-03-12 | 6/300 |
|
|
[考研] 070303一志愿西北大學學碩310找調(diào)劑 +5 | d如愿上岸 2026-03-12 | 8/400 |
|
|
[考研] 本科南京大學一志愿川大藥學327 +3 | 麥田耕者 2026-03-14 | 3/150 |
|
|
[考研] 【0703化學調(diào)劑】-一志愿華中師范大學-六級475 +5 | Becho359 2026-03-11 | 5/250 |
|
|
[考研] 材料080500調(diào)劑求收留 +3 | 一顆meteor 2026-03-13 | 3/150 |
|
|
[基金申請]
有必要更換申報口嗎
20+3
|
fannyamoy 2026-03-11 | 3/150 |
|
|
[考研] 求材料調(diào)劑 +5 | 隔壁陳先生 2026-03-12 | 5/250 |
|
|
[考研] [0860]321分求調(diào)劑,ab區(qū)皆可 +4 | 寶貴熱 2026-03-13 | 4/200 |
|
|
[考研] 四川大學085601材料工程專碩 初試294求調(diào)劑 +4 | 祝我們好在冬天 2026-03-11 | 4/200 |
|
|
[考研] 333求調(diào)劑 +3 | 球球古力 2026-03-11 | 3/150 |
|
|
[考研] 【考研調(diào)劑求收留】 +3 | Ceciilia 2026-03-11 | 3/150 |
|
|
[考研] 308求調(diào)劑 +3 | 是Lupa啊 2026-03-12 | 3/150 |
|
|
[考研] 289求調(diào)劑 +3 | 李政瑩 2026-03-12 | 3/150 |
|
|
[考研] 070303一志愿西北大學學碩310找調(diào)劑 +3 | d如愿上岸 2026-03-13 | 3/150 |
|