 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 查看: 1921 | 回復: 10 | ||
xiaobear20金蟲 (小有名氣)
(⊙o⊙)…
|
[求助]
FORTRAN新手 求助主程序循環(huá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 程序主要過程如下是，（計算的是一個二維網(wǎng)格點上的速度，即二維數(shù)組），先給迭代的矩陣賦初值，繼而進行第一次迭代，每次迭代完后，把此次結果與上一次的結果進行比較，逐點比較，選出最大誤差，再與收斂條件ESP比較，如滿足條件則輸出結果，如不滿足，再返回迭代，直到滿足收斂條件為止，（其中也對迭代的次數(shù)進行了判斷） 我的問題如下：不知道怎么回事，程序只進行了一次計算就輸出了結果，沒有進行第二次，還有誤差判斷CONVER(I,J)總是為0，我把子程序的結果也輸出看了一下，各個子程序還是運行了一次。我就不知道問題在哪了。是結構問題還是別的，求大神指道，分少別嫌棄啊，急等啊 子程序 CALL EDDY CALL CMOM CALL SOLV 在子程序EDDY中都用到了初始值，CMOM是矩陣系數(shù)的計算，SOLV是最后的結果計算，謝謝 |
回復此樓» 猜你喜歡
08工學調劑
已經(jīng)有16人回復
-
0703化學調劑，求導師收
已經(jīng)有7人回復
-
0854AI CV方向招收調劑
已經(jīng)有3人回復
-
求調劑323材料與化工
已經(jīng)有3人回復
-
生物學學碩求調劑
已經(jīng)有9人回復
-
289求調劑
已經(jīng)有8人回復
-
07化學280分求調劑
已經(jīng)有5人回復
-
300分，材料，求調劑，英一數(shù)二
已經(jīng)有4人回復
-
【考研調劑】化學專業(yè) 281分，一志愿四川大學，誠心求調劑
已經(jīng)有16人回復
-
0854電子信息求調劑
已經(jīng)有7人回復
» 本主題相關價值貼推薦，對您同樣有幫助:
- 【求助】Fortran語言賦值問題？
已經(jīng)有3人回復
- 【求助】fortran編程問題
已經(jīng)有3人回復
- 【求助】調整系統(tǒng)時間后fortran報錯問題
已經(jīng)有7人回復
- 【求助】如何寫FORTRAN程序實現(xiàn)求平均最近鄰距離
已經(jīng)有34人回復
- 【求助】用fortran怎么描述下面這樣的情況，我是新手，請大家?guī)兔?/a>
已經(jīng)有8人回復
- 【求助】Fortran編譯目標文件后的鏈接問題
已經(jīng)有4人回復
- 【求助】求指點，在Fortran里面，怎樣實現(xiàn)“數(shù)組維度可調”的數(shù)組?
已經(jīng)有5人回復
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學
2樓2012-04-07 12:55:00
xiaobear20
金蟲 (小有名氣)
(⊙o⊙)…
- 應助: 0 (幼兒園)
- 金幣: 652.8
- 帖子: 106
- 在線: 25.8小時
- 蟲號: 1252476
- 注冊: 2011-04-01
- 性別: GG
- 專業(yè): 傳熱傳質學
3樓2012-04-07 13:35:37
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學
4樓2012-04-07 14:37:59
xiaobear20
金蟲 (小有名氣)
(⊙o⊙)…
- 應助: 0 (幼兒園)
- 金幣: 652.8
- 帖子: 106
- 在線: 25.8小時
- 蟲號: 1252476
- 注冊: 2011-04-01
- 性別: GG
- 專業(yè): 傳熱傳質學
5樓2012-04-07 15:34:19
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學
6樓2012-04-07 16:28:19
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學
7樓2012-04-07 16:30:15
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學
8樓2012-04-07 16:32:15
請問你解決了嗎，我也是在調用子程序的時候，雖然子程序有做運算，但感覺最后的值沒返回去。我也是每次循環(huán)的結果都一樣，不知問題在哪里。 9樓2012-06-28 15:51:57
10樓2012-06-28 15:52:30
相關版塊跳轉
我要訂閱樓主 xiaobear20 的主題更新
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 材料學碩333求調劑 +3 | 北道巷 2026-03-24 | 3/150 |
|
|---|---|---|---|---|
|
[考研]
 085602 289分求調劑
+5
|
WWW西西弗斯 2026-03-24 | 5/250 |
|
|
|
[考研] 求調劑 +6 | 研研，接電話 2026-03-24 | 7/350 |
|
|
|
[考研] 材料與化工328分調劑 +4 | 。，。，。，。i 2026-03-23 | 4/200 |
|
|
|
[考研] 276求調劑。有半年電池和半年高分子實習經(jīng)歷 +9 | 材料學257求調劑 2026-03-23 | 10/500 |
|
|
|
[考研] 291求調劑 +8 | hhhhxn.. 2026-03-23 | 8/400 |
|
|
|
[考研] 303求調劑 +4 | 元夕元 2026-03-20 | 4/200 |
|
|
|
[考研] 一志愿西安交通大學材料工程專業(yè) 282分求調劑 +11 | 楓橋ZL 2026-03-18 | 13/650 |
|
|
|
[考研] 275求調劑 +6 | shansx 2026-03-22 | 8/400 |
|
|
|
[考研] 318求調劑 +4 | plum李子 2026-03-21 | 7/350 |
|
|
|
[考研] 求調劑 +5 | Zhangbod 2026-03-21 | 7/350 |
|
|
|
[考研] 303求調劑 +5 | 安憶靈 2026-03-22 | 6/300 |
|
|
|
[考博] 招收博士1-2人 +3 | QGZDSYS 2026-03-18 | 4/200 |
|
|
|
[考研] 材料求調劑 +5 | @taotao 2026-03-21 | 5/250 |
|
|
|
[考研] 材料 271求調劑 +5 | 展信悅_ 2026-03-21 | 5/250 |
|
|
|
[考研] 一志愿西南交大，求調劑 +5 | 材化逐夢人 2026-03-18 | 5/250 |
|
|
|
[考研] 308求調劑 +3 | 阿姐阿姐家啊 2026-03-18 | 3/150 |
|
|
|
[考研] 330求調劑 +4 | 小材化本科 2026-03-18 | 4/200 |
|
|
|
[考研] 304求調劑 +7 | 司空. 2026-03-18 | 7/350 |
|
|
|
[考研] 一志愿武漢理工材料工程專碩調劑 +9 | Doleres 2026-03-19 | 9/450 |
|