 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 查看: 1659 | 回復(fù): 10 | ||
風(fēng)兒2鐵蟲(chóng) (初入文壇)
|
[求助]
兩次調(diào)用同一子程序 第二次調(diào)用得出的結(jié)果是錯(cuò)誤的。。
|
|
|
兩次調(diào)用同一程序 。。第二次調(diào)用得出的結(jié)果是錯(cuò)誤的 如單獨(dú)調(diào)用 call mainf(x1,eig1) 可得到正確的數(shù)據(jù)（2.1152...E-002） 單獨(dú)調(diào)用 call mainf(x2,eig2) 可得到正確的數(shù)據(jù)（-1.170....E-002) 但是兩次調(diào)用同一子程序 call mainf(x1,eig1) write(*,*) eig1 （2.1152...E-002）(正確） call mainf(x2,eig2) write(*,*) eig2 (-15.899......)(錯(cuò)誤） 第二次調(diào)用得出的結(jié)果是錯(cuò)誤的 這次將程序一并附上，感謝大家的關(guān)注。。。 還請(qǐng)大家?guī)兔鉀Q下。。 另外一個(gè)問(wèn)題也想請(qǐng)大家指點(diǎn)下： data L/4/,N/4/ dimension AA(9,9),bb(9,9) common/variable/ x(9),c(9),d(9),xx(9),indx(9)Sample Text 其中AA（a,a) 里面的a=2*L+1但是 我將其改成 data L/4/,N/4/ dimension AA(2*L+1,2*L+1),bb(2*L+1,2*L+1) common/variable/ x(2*L+1),c(2*L+1),d(2*L+1),xx(2*L+1),indx(2*L+1) 輸出結(jié)果錯(cuò)誤 ERROR: An automatic object is invalid in mian program 請(qǐng)問(wèn) 用什么方法可以 不用每次改變L或N值 都要變化AA（a,a) ，只需要改變L或N值直接可對(duì)應(yīng)上a的值 謝謝。。。 |
回復(fù)此樓» 本帖附件資源列表
-
歡迎監(jiān)督和反饋：小木蟲(chóng)僅提供交流平臺(tái)，不對(duì)該內(nèi)容負(fù)責(zé)。
本內(nèi)容由用戶自主發(fā)布，如果其內(nèi)容涉及到知識(shí)產(chǎn)權(quán)問(wèn)題，其責(zé)任在于用戶本人，如對(duì)版權(quán)有異議，請(qǐng)聯(lián)系郵箱：xiaomuchong@tal.com - 附件 1 : test.rar
2012-06-08 15:22:28, 448.32 K
» 猜你喜歡
求調(diào)劑
已經(jīng)有5人回復(fù)
-
材料工程專碩 348分求調(diào)劑
已經(jīng)有5人回復(fù)
-
一志愿南大，0703化學(xué)，分?jǐn)?shù)336，求調(diào)劑
已經(jīng)有3人回復(fù)
-
322求調(diào)劑
已經(jīng)有3人回復(fù)
-
0703化學(xué)調(diào)劑
已經(jīng)有4人回復(fù)
-
化學(xué)調(diào)劑
已經(jīng)有4人回復(fù)
-
297求調(diào)劑
已經(jīng)有3人回復(fù)
-
生物學(xué)調(diào)劑
已經(jīng)有3人回復(fù)
-
工科0856求調(diào)劑
已經(jīng)有3人回復(fù)
-
求調(diào)劑
已經(jīng)有3人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 測(cè)序得到的結(jié)果不對(duì)，不知道是比對(duì)錯(cuò)誤，還是其他什么問(wèn)題？？？
已經(jīng)有3人回復(fù)
- 只要晶體解出來(lái)是沒(méi)有A,B,C類錯(cuò)誤是不是就可以確定解出來(lái)是什么就是什么？
已經(jīng)有18人回復(fù)
- 使用chem3D調(diào)用gaussian
已經(jīng)有3人回復(fù)
- 媒體嗅探器（悟空小子）——直接調(diào)用迅雷下載優(yōu)酷（土豆）視頻【轉(zhuǎn)載】
已經(jīng)有80人回復(fù)
- matlab的函數(shù)調(diào)用問(wèn)題
已經(jīng)有3人回復(fù)
- fortran程序怎樣調(diào)用lapack庫(kù)進(jìn)行矩陣對(duì)角化？
已經(jīng)有7人回復(fù)
- VS2005下matlab調(diào)用
已經(jīng)有8人回復(fù)
- 【求助】matlab 中，幾個(gè)m文件調(diào)用
已經(jīng)有14人回復(fù)
- 【求助】vb.net中調(diào)用外部程序的問(wèn)題
已經(jīng)有3人回復(fù)
- 【求助】f90子程序怎么編譯錯(cuò)誤？請(qǐng)大家?guī)兔�，謝謝
已經(jīng)有3人回復(fù)
- 【求助】VC++中用MFC進(jìn)行對(duì)話框編程，調(diào)用catia程序
已經(jīng)有13人回復(fù)
- 如此面試最終結(jié)果，無(wú)言！
已經(jīng)有51人回復(fù)
maomao1210
金蟲(chóng) (正式寫(xiě)手)
- 程序強(qiáng)帖: 5
- 應(yīng)助: 2 (幼兒園)
- 金幣: 1432.8
- 散金: 242
- 紅花: 16
- 沙發(fā): 1
- 帖子: 991
- 在線: 442.1小時(shí)
- 蟲(chóng)號(hào): 253215
- 注冊(cè): 2006-05-20
- 性別: MM
- 專業(yè): 考古理論
風(fēng)兒25樓2012-06-08 22:07:42
等高手吧。
2樓2012-06-08 16:26:49
maomao1210
金蟲(chóng) (正式寫(xiě)手)
- 程序強(qiáng)帖: 5
- 應(yīng)助: 2 (幼兒園)
- 金幣: 1432.8
- 散金: 242
- 紅花: 16
- 沙發(fā): 1
- 帖子: 991
- 在線: 442.1小時(shí)
- 蟲(chóng)號(hào): 253215
- 注冊(cè): 2006-05-20
- 性別: MM
- 專業(yè): 考古理論
【答案】應(yīng)助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
風(fēng)兒2: 金幣+25, ★★★★★最佳答案, 非常感謝啊 謝謝。。。 2012-06-11 10:16:40
風(fēng)兒2: 金幣+5, ★★★★★最佳答案 2012-06-12 09:26:03
感謝參與，應(yīng)助指數(shù) +1
風(fēng)兒2: 金幣+25, ★★★★★最佳答案, 非常感謝啊 謝謝。。。 2012-06-11 10:16:40
風(fēng)兒2: 金幣+5, ★★★★★最佳答案 2012-06-12 09:26:03
|
Ok了，給你弄好了，結(jié)果沒(méi)有問(wèn)題了 問(wèn)題出現(xiàn)在 main.f90的 data賦值中，僅第一調(diào)用的時(shí)候這些語(yǔ)句才啟用，你修改了別人的程序，確沒(méi)有注意這個(gè)細(xì)節(jié)，我給你修改了成了直接賦值的，看見(jiàn)看見(jiàn)截圖的作下角多出來(lái)的幾行。 第二次調(diào)用的時(shí)候，那些值都是零。不知道你明白我的意思嘛，你按照我說(shuō)的修改就沒(méi)問(wèn)題了。 |
3樓2012-06-08 22:03:52
maomao1210
金蟲(chóng) (正式寫(xiě)手)
- 程序強(qiáng)帖: 5
- 應(yīng)助: 2 (幼兒園)
- 金幣: 1432.8
- 散金: 242
- 紅花: 16
- 沙發(fā): 1
- 帖子: 991
- 在線: 442.1小時(shí)
- 蟲(chóng)號(hào): 253215
- 注冊(cè): 2006-05-20
- 性別: MM
- 專業(yè): 考古理論
4樓2012-06-08 22:04:36
maomao1210
金蟲(chóng) (正式寫(xiě)手)
- 程序強(qiáng)帖: 5
- 應(yīng)助: 2 (幼兒園)
- 金幣: 1432.8
- 散金: 242
- 紅花: 16
- 沙發(fā): 1
- 帖子: 991
- 在線: 442.1小時(shí)
- 蟲(chóng)號(hào): 253215
- 注冊(cè): 2006-05-20
- 性別: MM
- 專業(yè): 考古理論
6樓2012-06-08 22:10:48
風(fēng)兒2
鐵蟲(chóng) (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 39.4
- 散金: 120
- 帖子: 50
- 在線: 22.8小時(shí)
- 蟲(chóng)號(hào): 1650485
- 注冊(cè): 2012-02-28
7樓2012-06-10 20:00:39
風(fēng)兒2
鐵蟲(chóng) (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 39.4
- 散金: 120
- 帖子: 50
- 在線: 22.8小時(shí)
- 蟲(chóng)號(hào): 1650485
- 注冊(cè): 2012-02-28
8樓2012-06-11 09:52:05
風(fēng)兒2
鐵蟲(chóng) (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 39.4
- 散金: 120
- 帖子: 50
- 在線: 22.8小時(shí)
- 蟲(chóng)號(hào): 1650485
- 注冊(cè): 2012-02-28
9樓2012-06-11 10:29:21
maomao1210
金蟲(chóng) (正式寫(xiě)手)
- 程序強(qiáng)帖: 5
- 應(yīng)助: 2 (幼兒園)
- 金幣: 1432.8
- 散金: 242
- 紅花: 16
- 沙發(fā): 1
- 帖子: 991
- 在線: 442.1小時(shí)
- 蟲(chóng)號(hào): 253215
- 注冊(cè): 2006-05-20
- 性別: MM
- 專業(yè): 考古理論
10樓2012-06-11 10:54:41
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 風(fēng)兒2 的主題更新
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 311求調(diào)劑 +3 | 勇敢的小吳 2026-03-20 | 3/150 |
|
|---|---|---|---|---|
|
|
[考研] 一志愿重慶大學(xué)085700資源與環(huán)境總分308求調(diào)劑 +7 | 墨墨漠 2026-03-20 | 7/350 |
|
|
[考研] 0856材料專碩353求調(diào)劑 +3 | NIFFFfff 2026-03-20 | 3/150 |
|
|
|
[考研] 306求調(diào)劑 +4 | chuanzhu川燭 2026-03-18 | 4/200 |
|
|
|
[考研] 一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑 +12 | yangfz 2026-03-17 | 12/600 |
|
|
|
[考研] 一志愿重慶大學(xué)085700資源與環(huán)境專碩，總分308求調(diào)劑 +3 | 墨墨漠 2026-03-18 | 3/150 |
|
|
|
[考研] 295求調(diào)劑 +4 | 一志愿京區(qū)211 2026-03-18 | 6/300 |
|
|
|
[考研] 304求調(diào)劑 +7 | 司空. 2026-03-18 | 7/350 |
|
|
|
[考研] 350求調(diào)劑 +5 | weudhdk 2026-03-19 | 5/250 |
|
|
|
[考研] 中南大學(xué)化學(xué)學(xué)碩337求調(diào)劑 +3 | niko- 2026-03-19 | 6/300 |
|
|
|
[考研] 求調(diào)劑一志愿南京航空航天大學(xué)289分 +3 | @taotao 2026-03-19 | 3/150 |
|
|
|
[考研] 一志愿西南交通 專碩 材料355 本科雙非 求調(diào)劑 +5 | 西南交通專材355 2026-03-19 | 5/250 |
|
|
|
[考研] 一志愿華中農(nóng)業(yè)071010，總分320求調(diào)劑 +3 | 困困困困坤坤 2026-03-20 | 3/150 |
|
|
|
[考研] 一志愿北京化工大學(xué)0703化學(xué)318分，有科研經(jīng)歷，求調(diào)劑 +4 | 一瓶苯甲酸 2026-03-14 | 4/200 |
|
|
|
[考研] 材料與化工專碩調(diào)劑 +7 | heming3743 2026-03-16 | 7/350 |
|
|
|
[考研] 085601專碩，總分342求調(diào)劑，地區(qū)不限 +5 | share_joy 2026-03-16 | 5/250 |
|
|
|
[考博] 26博士申請(qǐng) +3 | 1042136743 2026-03-17 | 3/150 |
|
|
|
[考研] 301求調(diào)劑 +4 | A_JiXing 2026-03-16 | 4/200 |
|
|
|
[考研] 一志愿，福州大學(xué)材料專碩339分求調(diào)劑 +3 | 木子momo青爭(zhēng) 2026-03-15 | 3/150 |
|
|
|
[考研] 中科院材料273求調(diào)劑 +4 | yzydy 2026-03-15 | 4/200 |
|