 |
 |
 |
| 24小時(shí)熱門(mén)版塊排行榜 |
- >論壇更新日志 (447)
- >考研 (65)
- >導(dǎo)師招生 (40)
- >休閑灌水 (4)
- >碩博家園 (3)
- >蟲(chóng)友互識(shí) (2)
- >博后之家 (1)
- >論文道賀祈福 (1)
- >晶體 (1)
- >基金申請(qǐng) (1)
- >微米和納米 (1)
- >文獻(xiàn)求助 (1)
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1922 | 回復(fù): 10 | ||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | ||
xiaobear20金蟲(chóng) (小有名氣)
(⊙o⊙)…
|
[求助]
FORTRAN新手 求助主程序循環(huán)問(wèn)題
|
|
|
我現(xiàn)貼出主程序部分： PROGRAM MAIN USE SAME IMPLICIT NONE N=120 M=241 ITMAX=60 ITER=0 CALL INPUT CALL GRID DO I=1,M !!!!!!初始條件!!!!!!!!!! DO J=2,N-1 W(I,J)=1-EXP(-ETA(J)) ENDDO ENDDO 60 ITER=ITER+1 SELECT CASE(ITER-ITMAX) CASE(:-1) ! <= -1 整數(shù) GO TO 70 CASE(0) ! =0 WRITE(6,2500) GO TO 70 CASE(1  ! >=1WRITE(6,2600) GO TO 90 END SELECT 70 DO I=1,M DO J=2,N-1 WOLD(I,J)=W(I,J) ENDDO ENDDO CALL EDDY CALL CMOM CALL SOLV DO I=2,M DO J=2,N-1 CONVER(I,J)=ABS(1-(WOLD(I,J)/W(I,J))) ENDDO ENDDO MX=MAXVAL(CONVER) ！選取誤差中的最大值 IF(MX.LE.EPS)THEN ! <=0.0001 !收斂判斷 EPS=0.0001 誤差 CONVER GO TO 90 ELSE GOTO 60 ENDIF 90 CALL OUTPUT END PROGRAM 程序主要過(guò)程如下是，（計(jì)算的是一個(gè)二維網(wǎng)格點(diǎn)上的速度，即二維數(shù)組），先給迭代的矩陣賦初值，繼而進(jìn)行第一次迭代，每次迭代完后，把此次結(jié)果與上一次的結(jié)果進(jìn)行比較，逐點(diǎn)比較，選出最大誤差，再與收斂條件ESP比較，如滿足條件則輸出結(jié)果，如不滿足，再返回迭代，直到滿足收斂條件為止，（其中也對(duì)迭代的次數(shù)進(jìn)行了判斷） 我的問(wèn)題如下：不知道怎么回事，程序只進(jìn)行了一次計(jì)算就輸出了結(jié)果，沒(méi)有進(jìn)行第二次，還有誤差判斷CONVER(I,J)總是為0，我把子程序的結(jié)果也輸出看了一下，各個(gè)子程序還是運(yùn)行了一次。我就不知道問(wèn)題在哪了。是結(jié)構(gòu)問(wèn)題還是別的，求大神指道，分少別嫌棄啊，急等啊 子程序 CALL EDDY CALL CMOM CALL SOLV 在子程序EDDY中都用到了初始值，CMOM是矩陣系數(shù)的計(jì)算，SOLV是最后的結(jié)果計(jì)算，謝謝 |
回復(fù)此樓» 猜你喜歡
303求調(diào)劑
已經(jīng)有5人回復(fù)
-
一志愿武理085500機(jī)械專(zhuān)業(yè)總分300求調(diào)劑
已經(jīng)有7人回復(fù)
-
材料學(xué)求調(diào)劑
已經(jīng)有5人回復(fù)
-
考研調(diào)劑
已經(jīng)有4人回復(fù)
-
281求調(diào)劑
已經(jīng)有4人回復(fù)
-
0805 316求調(diào)劑
已經(jīng)有6人回復(fù)
-
085601求調(diào)劑總分293英一數(shù)二
已經(jīng)有3人回復(fù)
-
08工學(xué)調(diào)劑
已經(jīng)有17人回復(fù)
-
340求調(diào)劑
已經(jīng)有4人回復(fù)
-
311求調(diào)劑
已經(jīng)有3人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 【求助】Fortran語(yǔ)言賦值問(wèn)題？
已經(jīng)有3人回復(fù)
- 【求助】fortran編程問(wèn)題
已經(jīng)有3人回復(fù)
- 【求助】調(diào)整系統(tǒng)時(shí)間后fortran報(bào)錯(cuò)問(wèn)題
已經(jīng)有7人回復(fù)
- 【求助】如何寫(xiě)FORTRAN程序?qū)崿F(xiàn)求平均最近鄰距離
已經(jīng)有34人回復(fù)
- 【求助】用fortran怎么描述下面這樣的情況，我是新手，請(qǐng)大家?guī)兔?/a>
已經(jīng)有8人回復(fù)
- 【求助】Fortran編譯目標(biāo)文件后的鏈接問(wèn)題
已經(jīng)有4人回復(fù)
- 【求助】求指點(diǎn)，在Fortran里面，怎樣實(shí)現(xiàn)“數(shù)組維度可調(diào)”的數(shù)組?
已經(jīng)有5人回復(fù)
請(qǐng)問(wèn)你解決了嗎，我也是在調(diào)用子程序的時(shí)候，雖然子程序有做運(yùn)算，但感覺(jué)最后的值沒(méi)返回去。我也是每次循環(huán)的結(jié)果都一樣，不知問(wèn)題在哪里。 
9樓2012-06-28 15:51:57
snoopyzhao
至尊木蟲(chóng) (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時(shí)
- 蟲(chóng)號(hào): 183750
- 注冊(cè): 2006-02-13
- 專(zhuān)業(yè): 污染生態(tài)化學(xué)
【答案】應(yīng)助回帖
★
感謝參與，應(yīng)助指數(shù) +1
xzhdty: 金幣+1, 歡迎常來(lái) 2012-04-07 14:48:19
感謝參與，應(yīng)助指數(shù) +1
xzhdty: 金幣+1, 歡迎常來(lái) 2012-04-07 14:48:19
|
這個(gè)程序沒(méi)有辦法改，比如你的 W(I,J) 的值有更新嗎？在你的程序中，你的 WOLD 與 W 一直都是一樣的，那么 CONVER 當(dāng)然總是 0 了。因此，只迭代一次是很正常的。如果在 WOLD 之后，還有 W 更新，那么情況可能會(huì)不一樣。但這個(gè)沒(méi)有辦法看出來(lái)，因?yàn)槟愕乃?subroutine 的返回值是啥都看不出來(lái)…… 另外，你似乎喜歡用全局變量作為 subroutine 的參數(shù)和返回值，很多時(shí)候，這個(gè)習(xí)慣并不好，呵呵…… |
2樓2012-04-07 12:55:00
xiaobear20
金蟲(chóng) (小有名氣)
(⊙o⊙)…
- 應(yīng)助: 0 (幼兒園)
- 金幣: 652.8
- 帖子: 106
- 在線: 25.8小時(shí)
- 蟲(chóng)號(hào): 1252476
- 注冊(cè): 2011-04-01
- 性別: GG
- 專(zhuān)業(yè): 傳熱傳質(zhì)學(xué)
3樓2012-04-07 13:35:37
snoopyzhao
至尊木蟲(chóng) (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時(shí)
- 蟲(chóng)號(hào): 183750
- 注冊(cè): 2006-02-13
- 專(zhuān)業(yè): 污染生態(tài)化學(xué)
4樓2012-04-07 14:37:59
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 生物學(xué)學(xué)碩求調(diào)劑 +6 | 小羊睡著了? 2026-03-23 | 9/450 |
|
|---|---|---|---|---|
|
[考研] 289求調(diào)劑 +8 | 碩星赴 2026-03-23 | 8/400 |
|
|
|
[考研] 收08調(diào)劑生 +6 | komorebi69 2026-03-18 | 6/300 |
|
|
|
[考研] 材料專(zhuān)碩331求調(diào)劑 +4 | 鮮當(dāng)牛 2026-03-24 | 4/200 |
|
|
|
[考研] 384求調(diào)劑 +3 | 子系博 2026-03-22 | 6/300 |
|
|
|
[考研] 一志愿陜師大生物學(xué)071000，298分，求調(diào)劑 +3 | SYA！ 2026-03-23 | 3/150 |
|
|
|
[考研] 323求調(diào)劑 +6 | 洼小桶 2026-03-18 | 6/300 |
|
|
|
[考研] 317求調(diào)劑 +12 | 申子申申 2026-03-19 | 18/900 |
|
|
|
[考研] 287求調(diào)劑 +8 | 晨昏線與星海 2026-03-19 | 9/450 |
|
|
|
[考研] 298求調(diào)劑一志愿211 +3 | 上岸6666@ 2026-03-20 | 3/150 |
|
|
|
[考研] 318求調(diào)劑 +4 | plum李子 2026-03-21 | 7/350 |
|
|
|
[考研] 初試 317 +7 | 半拉月丙 2026-03-20 | 7/350 |
|
|
|
[考研] 一志愿深大，0703化學(xué)，總分302，求調(diào)劑 +4 | 七月-七七 2026-03-21 | 4/200 |
|
|
|
[考研] 0703化學(xué)297求調(diào)劑 +3 | Daisy☆ 2026-03-20 | 3/150 |
|
|
|
[考研] 307求調(diào)劑 +3 | 余意卿 2026-03-18 | 3/150 |
|
|
|
[考研] 296求調(diào)劑 +4 | www_q 2026-03-20 | 4/200 |
|
|
|
[考研] 265求調(diào)劑 +12 | 梁梁校校 2026-03-19 | 14/700 |
|
|
|
[考研] 290求調(diào)劑 +7 | ^O^乜 2026-03-19 | 7/350 |
|
|
|
[考研] 求調(diào)劑 +3 | @taotao 2026-03-20 | 3/150 |
|
|
|
[考研]
 320求調(diào)劑0856
+3
|
不想起名字112 2026-03-19 | 3/150 |
|