 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1672 | 回復(fù): 10 | |||
| 當(dāng)前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | |||
[求助]
兩次調(diào)用同一子程序 第二次調(diào)用得出的結(jié)果是錯誤的。。
|
|||
|
兩次調(diào)用同一程序 。。第二次調(diào)用得出的結(jié)果是錯誤的 如單獨調(diào)用 call mainf(x1,eig1) 可得到正確的數(shù)據(jù)（2.1152...E-002） 單獨調(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......)(錯誤） 第二次調(diào)用得出的結(jié)果是錯誤的 這次將程序一并附上，感謝大家的關(guān)注。。。 還請大家?guī)兔鉀Q下。。 另外一個問題也想請大家指點下： 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é)果錯誤 ERROR: An automatic object is invalid in mian program 請問 用什么方法可以 不用每次改變L或N值 都要變化AA（a,a) ，只需要改變L或N值直接可對應(yīng)上a的值 謝謝。。。 |
回復(fù)此樓» 本帖附件資源列表
-
歡迎監(jiān)督和反饋：小木蟲僅提供交流平臺，不對該內(nèi)容負責(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
» 猜你喜歡
求收留
已經(jīng)有5人回復(fù)
-
375求調(diào)劑
已經(jīng)有4人回復(fù)
-
340求調(diào)劑
已經(jīng)有6人回復(fù)
-
298求調(diào)劑
已經(jīng)有3人回復(fù)
-
085601材料工程找調(diào)劑
已經(jīng)有9人回復(fù)
-
考研調(diào)劑
已經(jīng)有4人回復(fù)
-
面上5B能上會嗎？
已經(jīng)有3人回復(fù)
-
求調(diào)劑，一志愿 南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分
已經(jīng)有7人回復(fù)
-
086000生物與醫(yī)藥調(diào)劑
已經(jīng)有9人回復(fù)
-
343求調(diào)劑
已經(jīng)有6人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 測序得到的結(jié)果不對，不知道是比對錯誤，還是其他什么問題？？？
已經(jīng)有3人回復(fù)
- 只要晶體解出來是沒有A,B,C類錯誤是不是就可以確定解出來是什么就是什么？
已經(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īng)有7人回復(fù)
- VS2005下matlab調(diào)用
已經(jīng)有8人回復(fù)
- 【求助】matlab 中，幾個m文件調(diào)用
已經(jīng)有14人回復(fù)
- 【求助】vb.net中調(diào)用外部程序的問題
已經(jīng)有3人回復(fù)
- 【求助】f90子程序怎么編譯錯誤？請大家?guī)兔Γx謝
已經(jīng)有3人回復(fù)
- 【求助】VC++中用MFC進行對話框編程，調(diào)用catia程序
已經(jīng)有13人回復(fù)
- 如此面試最終結(jié)果，無言！
已經(jīng)有51人回復(fù)
maomao1210
金蟲 (正式寫手)
- 程序強帖: 5
- 應(yīng)助: 2 (幼兒園)
- 金幣: 1432.8
- 散金: 242
- 紅花: 16
- 沙發(fā): 1
- 帖子: 991
- 在線: 442.1小時
- 蟲號: 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)用的時候這些語句才啟用，你修改了別人的程序，確沒有注意這個細節(jié)，我給你修改了成了直接賦值的，看見看見截圖的作下角多出來的幾行。 第二次調(diào)用的時候，那些值都是零。不知道你明白我的意思嘛，你按照我說的修改就沒問題了。 |
3樓2012-06-08 22:03:52
等高手吧。
2樓2012-06-08 16:26:49
maomao1210
金蟲 (正式寫手)
- 程序強帖: 5
- 應(yīng)助: 2 (幼兒園)
- 金幣: 1432.8
- 散金: 242
- 紅花: 16
- 沙發(fā): 1
- 帖子: 991
- 在線: 442.1小時
- 蟲號: 253215
- 注冊: 2006-05-20
- 性別: MM
- 專業(yè): 考古理論
6樓2012-06-08 22:10:48
7樓2012-06-10 20:00:39
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 329求調(diào)劑 +8 | 鈕恩雪 2026-03-25 | 8/400 |
|
|---|---|---|---|---|
|
[考研] 調(diào)劑求院校招收 +6 | 鶴鯨鴿 2026-03-28 | 6/300 |
|
|
|
[考研] 學(xué)碩274求調(diào)劑 +9 | Li李魚 2026-03-26 | 9/450 |
|
|
|
[考研] 085600 286分 材料求調(diào)劑 +7 | 麻辣魷魚 2026-03-27 | 8/400 |
|
|
|
[考研] 085701環(huán)境工程，267求調(diào)劑 +16 | minht 2026-03-26 | 16/800 |
|
|
|
[考研]
 材料與化工考研調(diào)劑
+17
|
孅華 2026-03-22 | 17/850 |
|
|
|
[考研] 279 分 求調(diào)劑 +4 | 睡個好覺_16 2026-03-24 | 4/200 |
|
|
|
[考研] 復(fù)試調(diào)劑，一志愿南農(nóng)083200食品科學(xué)與工程 +5 | XQTJZ 2026-03-26 | 5/250 |
|
|
|
[考研] 085600，材料與化工321分調(diào)劑 +4 | 大饞小子 2026-03-27 | 6/300 |
|
|
|
[考研] 316求調(diào)劑 +5 | Pigcasso 2026-03-24 | 5/250 |
|
|
|
[考研] 298調(diào)劑 +3 | jiyingjie123 2026-03-27 | 3/150 |
|
|
|
[考研] 342求調(diào)劑 +3 | 加油a李zs 2026-03-26 | 3/150 |
|
|
|
[考研] 打過很多競賽，085406控制工程300分，求調(diào)劑 +3 | askeladz 2026-03-26 | 3/150 |
|
|
|
[考研] 一志愿上海交大生物與醫(yī)藥專碩324分，求調(diào)劑 +6 | jiajunX 2026-03-22 | 6/300 |
|
|
|
[考研] 一志愿南航 335分 | 0856材料化工 | GPA 4.07 | 有科研經(jīng)歷 +6 | cccchenso 2026-03-23 | 6/300 |
|
|
|
[考研] 求調(diào)劑 +3 | 李李不服輸 2026-03-25 | 3/150 |
|
|
|
[考研] 282求調(diào)劑 +3 | wcq131415 2026-03-24 | 3/150 |
|
|
|
[考研] 材料調(diào)劑 +3 | iwinso 2026-03-23 | 3/150 |
|
|
|
[考研] 086003食品工程求調(diào)劑 +6 | 淼淼111 2026-03-24 | 6/300 |
|
|
|
[考研] 調(diào)劑 +4 | 13853210211 2026-03-24 | 4/200 |
|