 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 查看: 1661 | 回復(fù): 10 | ||
風(fēng)兒2鐵蟲 (初入文壇)
|
[求助]
兩次調(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)注。。。 還請大家?guī)兔鉀Q下。。 另外一個(gè)問題也想請大家指點(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 請問 用什么方法可以 不用每次改變L或N值 都要變化AA（a,a) ，只需要改變L或N值直接可對應(yīng)上a的值 謝謝。。。 |
回復(fù)此樓» 本帖附件資源列表
-
歡迎監(jiān)督和反饋：小木蟲僅提供交流平臺(tái)，不對該內(nèi)容負(fù)責(zé)。
本內(nèi)容由用戶自主發(fā)布，如果其內(nèi)容涉及到知識產(chǎn)權(quán)問題，其責(zé)任在于用戶本人，如對版權(quán)有異議，請聯(lián)系郵箱：xiaomuchong@tal.com - 附件 1 : test.rar
2012-06-08 15:22:28, 448.32 K
» 猜你喜歡
326求調(diào)劑
已經(jīng)有8人回復(fù)
-
333求調(diào)劑
已經(jīng)有7人回復(fù)
-
一志愿東華大學(xué)控制學(xué)碩320求調(diào)劑
已經(jīng)有3人回復(fù)
-
考研化學(xué)學(xué)碩調(diào)劑，一志愿985
已經(jīng)有7人回復(fù)
-
化學(xué)工程321分求調(diào)劑
已經(jīng)有21人回復(fù)
-
0703化學(xué)調(diào)劑
已經(jīng)有15人回復(fù)
-
0703化學(xué)調(diào)劑 ，六級已過，有科研經(jīng)歷
已經(jīng)有14人回復(fù)
-
326求調(diào)劑
已經(jīng)有4人回復(fù)
-
311求調(diào)劑
已經(jīng)有13人回復(fù)
-
311求調(diào)劑
已經(jīng)有7人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對您同樣有幫助:
- 測序得到的結(jié)果不對，不知道是比對錯(cuò)誤，還是其他什么問題？？？
已經(jīng)有3人回復(fù)
- 只要晶體解出來是沒有A,B,C類錯(cuò)誤是不是就可以確定解出來是什么就是什么？
已經(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)用問題
已經(jīng)有3人回復(fù)
- fortran程序怎樣調(diào)用lapack庫進(jìn)行矩陣對角化？
已經(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)用外部程序的問題
已經(jīng)有3人回復(fù)
- 【求助】f90子程序怎么編譯錯(cuò)誤？請大家?guī)兔�，謝謝
已經(jīng)有3人回復(fù)
- 【求助】VC++中用MFC進(jìn)行對話框編程，調(diào)用catia程序
已經(jīng)有13人回復(fù)
- 如此面試最終結(jié)果，無言！
已經(jīng)有51人回復(fù)
maomao1210
金蟲 (正式寫手)
- 程序強(qiáng)帖: 5
- 應(yīng)助: 2 (幼兒園)
- 金幣: 1432.8
- 散金: 242
- 紅花: 16
- 沙發(fā): 1
- 帖子: 991
- 在線: 442.1小時(shí)
- 蟲號: 253215
- 注冊: 2006-05-20
- 性別: MM
- 專業(yè): 考古理論
風(fēng)兒25樓2012-06-08 22:07:42
等高手吧。
2樓2012-06-08 16:26:49
maomao1210
金蟲 (正式寫手)
- 程序強(qiáng)帖: 5
- 應(yīng)助: 2 (幼兒園)
- 金幣: 1432.8
- 散金: 242
- 紅花: 16
- 沙發(fā): 1
- 帖子: 991
- 在線: 442.1小時(shí)
- 蟲號: 253215
- 注冊: 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é)果沒有問題了 問題出現(xiàn)在 main.f90的 data賦值中，僅第一調(diào)用的時(shí)候這些語句才啟用，你修改了別人的程序，確沒有注意這個(gè)細(xì)節(jié)，我給你修改了成了直接賦值的，看見看見截圖的作下角多出來的幾行。 第二次調(diào)用的時(shí)候，那些值都是零。不知道你明白我的意思嘛，你按照我說的修改就沒問題了。 |
3樓2012-06-08 22:03:52
maomao1210
金蟲 (正式寫手)
- 程序強(qiáng)帖: 5
- 應(yīng)助: 2 (幼兒園)
- 金幣: 1432.8
- 散金: 242
- 紅花: 16
- 沙發(fā): 1
- 帖子: 991
- 在線: 442.1小時(shí)
- 蟲號: 253215
- 注冊: 2006-05-20
- 性別: MM
- 專業(yè): 考古理論
4樓2012-06-08 22:04:36
maomao1210
金蟲 (正式寫手)
- 程序強(qiáng)帖: 5
- 應(yīng)助: 2 (幼兒園)
- 金幣: 1432.8
- 散金: 242
- 紅花: 16
- 沙發(fā): 1
- 帖子: 991
- 在線: 442.1小時(shí)
- 蟲號: 253215
- 注冊: 2006-05-20
- 性別: MM
- 專業(yè): 考古理論
6樓2012-06-08 22:10:48
風(fēng)兒2
鐵蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 39.4
- 散金: 120
- 帖子: 50
- 在線: 22.8小時(shí)
- 蟲號: 1650485
- 注冊: 2012-02-28
7樓2012-06-10 20:00:39
風(fēng)兒2
鐵蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 39.4
- 散金: 120
- 帖子: 50
- 在線: 22.8小時(shí)
- 蟲號: 1650485
- 注冊: 2012-02-28
8樓2012-06-11 09:52:05
風(fēng)兒2
鐵蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 39.4
- 散金: 120
- 帖子: 50
- 在線: 22.8小時(shí)
- 蟲號: 1650485
- 注冊: 2012-02-28
9樓2012-06-11 10:29:21
maomao1210
金蟲 (正式寫手)
- 程序強(qiáng)帖: 5
- 應(yīng)助: 2 (幼兒園)
- 金幣: 1432.8
- 散金: 242
- 紅花: 16
- 沙發(fā): 1
- 帖子: 991
- 在線: 442.1小時(shí)
- 蟲號: 253215
- 注冊: 2006-05-20
- 性別: MM
- 專業(yè): 考古理論
10樓2012-06-11 10:54:41
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 風(fēng)兒2 的主題更新
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 0805 316求調(diào)劑 +3 | 大雪深藏 2026-03-18 | 3/150 |
|
|---|---|---|---|---|
|
|
[考研] 一志愿南大，0703化學(xué)，分?jǐn)?shù)336，求調(diào)劑 +3 | 收到VS 2026-03-21 | 3/150 |
|
|
|
[考研] 26考研一志愿中國石油大學(xué)(華東)305分求調(diào)劑 +6 | 嘉年新程 2026-03-15 | 6/300 |
|
|
[基金申請]
學(xué)校已經(jīng)提交到NSFC，還能修改嗎？
 40+4
|
babangida 2026-03-19 | 9/450 |
|
|
|
[考研] 301求調(diào)劑 +10 | yy要上岸呀 2026-03-17 | 10/500 |
|
|
|
[考研] 一志愿華南師大 070300（化學(xué)）304分求調(diào)劑 +3 | 0703武芊慧雪304 2026-03-18 | 3/150 |
|
|
|
[考研]
 材料與化工 322求調(diào)劑
+4
|
然11 2026-03-19 | 4/200 |
|
|
|
[考研] 藥學(xué)383 求調(diào)劑 +3 | 藥學(xué)chy 2026-03-15 | 5/250 |
|
|
|
[考研] 一志愿西南交通 專碩 材料355 本科雙非 求調(diào)劑 +5 | 西南交通專材355 2026-03-19 | 5/250 |
|
|
|
[考研] 一志愿華中農(nóng)業(yè)071010，總分320求調(diào)劑 +3 | 困困困困坤坤 2026-03-20 | 3/150 |
|
|
|
[考研] 材料學(xué)求調(diào)劑 +4 | Stella_Yao 2026-03-20 | 4/200 |
|
|
|
[考研] 一志愿985，本科211，0817化學(xué)工程與技術(shù)319求調(diào)劑 +10 | Liwangman 2026-03-15 | 10/500 |
|
|
|
[考研] 【同濟(jì)軟件】軟件（085405）考研求調(diào)劑 +3 | 2026eternal 2026-03-18 | 3/150 |
|
|
|
[考研] 275求調(diào)劑 +4 | 太陽花天天開心 2026-03-16 | 4/200 |
|
|
|
[考研] 302求調(diào)劑 +4 | 小賈同學(xué)123 2026-03-15 | 8/400 |
|
|
|
[考研] 考研調(diào)劑 +3 | 淇ya_~ 2026-03-17 | 5/250 |
|
|
|
[考研] 283求調(diào)劑 +3 | 聽風(fēng)就是雨； 2026-03-16 | 3/150 |
|
|
|
[考研] [導(dǎo)師推薦]西南科技大學(xué)國防/材料導(dǎo)師推薦 +3 | 尖角小荷 2026-03-16 | 6/300 |
|
|
|
[考研] 機(jī)械專碩325，尋找調(diào)劑院校 +3 | y9999 2026-03-15 | 5/250 |
|
|
|
[考研] 321求調(diào)劑 +5 | 大米飯！ 2026-03-15 | 5/250 |
|