 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 查看: 2472 | 回復: 13 | ||
sun805869434金蟲 (小有名氣)
|
[求助]
fortran里一個子程序不運行是怎么回事
|
|
|
整個fortran程序編譯完，運行后就顯示內存不能讀取，切換到Debug，按F5后，可以發(fā)現(xiàn)濃度值C(J,K)計算結果不對，但是無論更改程序中該子程序的任何計算式，得到的結果都是一樣的，好像跟我設置的計算式沒有關系，這是沒有讀取相應的子程序嗎？還是讀取其他部分了？ SUBROUTINE COM !-------------------------------------------------------- PARAMETER(NJ=120,NT=120) COMMON U(NJ,NT),C(NJ,NT) COMMON DER(NT),Y(NJ),DYL(NJ) COMMON K,LITIM,DT COMMON DLN,DS,RHOF,RHOS,DD,GR,M1,YDN,DXL,YL,DY,C0 !-------------------------------------------------------- ENTRY VECTORY U(J,0)=0 DO K=1,LITIM DO J=1,M1 IF(J.NE.M1)THEN U(J,K)=(GR*DT+U(J,K-1))/(DD*DT+1) ELSE U(J,K)=0 ENDIF ENDDO ENDDO RETURN !------------------------------------------------------------ ENTRY CONCENTRATE C(J,0)=C0 DO K=1,LITIM DO J=1,M1 IF(J.EQ.1)THEN C(J,K)=(U(J,K)*C(J,K-1))/U(J,K+1) ELSEIF (J.GT.1.AND.J.LT.M1)THEN C(J,K)=((U(J,K)*C(J,K-1))/U(J,K+1))+C(J-1,K-1)-C(J-1,K) ELSE C(J,K)=0 ENDIF ENDDO ENDDO RETURN 這是子程序中的兩個部分，第一個子程序運行后U(J,K)的結果是正確的，但是進行第二個子程序時，要用到上一個的結果U(J,K)，運行結果C(J,K)是錯誤的，并且不管我怎么改C(J,K)的計算式，得出的結果不變，還是原來錯誤的結果，不知道原因出在哪。 [ Last edited by sun805869434 on 2013-6-6 at 10:14 ] |
回復此樓» 猜你喜歡
材料調劑
已經有9人回復
-
321求調劑
已經有12人回復
-
調劑求助
已經有4人回復
-
22408 266求調劑
已經有3人回復
-
266分，一志愿電氣工程，本科材料，求材料專業(yè)調劑
已經有4人回復
-
279求調劑
已經有5人回復
-
一志愿華南師范大學-22408計算機-292分-求華南師范大學調劑
已經有3人回復
-
材料與化工306分找調劑
已經有10人回復
-
環(huán)境工程297分求調劑一志愿杭高院
已經有16人回復
-
296材料專碩求調劑
已經有12人回復
» 本主題相關價值貼推薦，對您同樣有幫助:
- fortran 程序有write和沒有write兩種情況計算的結果為什么會不一樣?
已經有14人回復
- 一百個FORTRAN任務怎么能一次提交SSH計算
已經有3人回復
- 幫忙把公式轉化為FORTRAN子程序
已經有6人回復
- 一個主程序，一個subroutine程序，要如何將兩個程序組合在fortran里運行
已經有4人回復
- 又來求助啦，fortran里使用多文件，其中的子程序文件怎么觀察參數(shù)值啊？
已經有3人回復
- 請教 fortran 運行錯誤的原因
已經有13人回復
- FORTRAN新手 求助主程序循環(huán)問題
已經有10人回復
- 大家?guī)臀铱匆粋�fortran的程序，我總是計算不出正確的結果
已經有20人回復
- FORTRAN 基礎知識講解
已經有21人回復
- 請教一個fortran小程序編譯出錯的問題，謝謝
已經有9人回復
- 有關fortran的一次而問題，希望大家能幫幫忙，謝謝
已經有4人回復
- 【求助】f90子程序怎么編譯錯誤？請大家?guī)兔Γx謝
已經有3人回復
- 【求助】Intel Visual Fortran與Compaq Visual Fortran的區(qū)別？
已經有18人回復
pippi6
鐵桿木蟲 (著名寫手)
工程和科學數(shù)值計算咨詢
- 應助: 413 (碩士)
- 貴賓: 0.002
- 金幣: 7116.5
- 散金: 15
- 紅花: 63
- 帖子: 1639
- 在線: 798.9小時
- 蟲號: 2469437
- 注冊: 2013-05-14
- 專業(yè): 計算數(shù)學與科學工程計算
8樓2013-06-06 21:27:39
pippi6
鐵桿木蟲 (著名寫手)
工程和科學數(shù)值計算咨詢
- 應助: 413 (碩士)
- 貴賓: 0.002
- 金幣: 7116.5
- 散金: 15
- 紅花: 63
- 帖子: 1639
- 在線: 798.9小時
- 蟲號: 2469437
- 注冊: 2013-05-14
- 專業(yè): 計算數(shù)學與科學工程計算
10樓2013-06-07 09:28:31
pippi6
鐵桿木蟲 (著名寫手)
工程和科學數(shù)值計算咨詢
- 應助: 413 (碩士)
- 貴賓: 0.002
- 金幣: 7116.5
- 散金: 15
- 紅花: 63
- 帖子: 1639
- 在線: 798.9小時
- 蟲號: 2469437
- 注冊: 2013-05-14
- 專業(yè): 計算數(shù)學與科學工程計算
2樓2013-06-06 13:38:25
學蟲dj
金蟲 (正式寫手)
- 應助: 18 (小學生)
- 金幣: 892.4
- 散金: 63
- 帖子: 688
- 在線: 89.9小時
- 蟲號: 1829966
- 注冊: 2012-05-22
- 性別: GG
- 專業(yè): 應用地球物理學
3樓2013-06-06 15:46:02
sun805869434
金蟲 (小有名氣)
- 應助: 0 (幼兒園)
- 金幣: 173.5
- 散金: 150
- 紅花: 2
- 帖子: 57
- 在線: 26.9小時
- 蟲號: 1666767
- 注冊: 2012-03-05
- 性別: MM
- 專業(yè): 傳熱傳質學
4樓2013-06-06 18:37:32
sun805869434
金蟲 (小有名氣)
- 應助: 0 (幼兒園)
- 金幣: 173.5
- 散金: 150
- 紅花: 2
- 帖子: 57
- 在線: 26.9小時
- 蟲號: 1666767
- 注冊: 2012-03-05
- 性別: MM
- 專業(yè): 傳熱傳質學
5樓2013-06-06 18:50:26
pippi6
鐵桿木蟲 (著名寫手)
工程和科學數(shù)值計算咨詢
- 應助: 413 (碩士)
- 貴賓: 0.002
- 金幣: 7116.5
- 散金: 15
- 紅花: 63
- 帖子: 1639
- 在線: 798.9小時
- 蟲號: 2469437
- 注冊: 2013-05-14
- 專業(yè): 計算數(shù)學與科學工程計算
6樓2013-06-06 20:32:17
sun805869434
金蟲 (小有名氣)
- 應助: 0 (幼兒園)
- 金幣: 173.5
- 散金: 150
- 紅花: 2
- 帖子: 57
- 在線: 26.9小時
- 蟲號: 1666767
- 注冊: 2012-03-05
- 性別: MM
- 專業(yè): 傳熱傳質學
7樓2013-06-06 21:01:21
學蟲dj
金蟲 (正式寫手)
- 應助: 18 (小學生)
- 金幣: 892.4
- 散金: 63
- 帖子: 688
- 在線: 89.9小時
- 蟲號: 1829966
- 注冊: 2012-05-22
- 性別: GG
- 專業(yè): 應用地球物理學
9樓2013-06-07 08:45:29
相關版塊跳轉
我要訂閱樓主 sun805869434 的主題更新
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[論文投稿]
chinese chemical letters英文版投稿求助
 120+4
|
Yishengeryi 2026-03-30 | 6/300 |
|
|---|---|---|---|---|
|
|
[考研] 292分，材料與化工，申請調劑 +19 | 程晴之 2026-04-01 | 23/1150 |
|
|
|
[考研] 272求調劑，接受跨專業(yè)調劑！ +4 | 閑魚盧 2026-03-31 | 4/200 |
|
|
|
[考研] 求調劑，一志愿南京師范大學計算機專碩，初試373，六級通過， +3 | 計算機追夢人 2026-04-01 | 3/150 |
|
|
[考博] 26年申博 +3 | staryer 2026-03-30 | 4/200 |
|
|
|
[考研] 273求調劑 +19 | 李芷新1 2026-03-31 | 19/950 |
|
|
|
[考研] 309求調劑 +19 | 誰不是少年 2026-03-29 | 19/950 |
|
|
|
[考研] 288資源與環(huán)境專碩求調劑，不限專業(yè)，有學上就行 +25 | lllllos 2026-03-30 | 26/1300 |
|
|
|
[考研] 0856材料化工調劑 總分330 +18 | zhubinhao 2026-03-27 | 18/900 |
|
|
|
[考研] 復試調劑 +7 | 雙馬尾痞老板2 2026-03-31 | 7/350 |
|
|
|
[考研] 334求調劑 +7 | Trying] 2026-03-31 | 7/350 |
|
|
|
[考研] 一志愿西電085401數(shù)一英一299求調劑 六級521 +4 | 愛吃大鴨梨 2026-03-31 | 4/200 |
|
|
|
[考研] 22408 359分調劑 +4 | Qshers 2026-03-27 | 8/400 |
|
|
|
[考研] 085602化工求調劑（331分） +8 | 111@127 2026-03-30 | 8/400 |
|
|
|
[有機交流] 考研調劑 +8 | watb 2026-03-26 | 8/400 |
|
|
|
[考研] 343求調劑 +6 | 愛羈絆 2026-03-29 | 6/300 |
|
|
|
[考研] 本科新能源科學與工程，一志愿華理能動285求調劑 +7 | AZMK 2026-03-28 | 11/550 |
|
|
|
[考研] 312，生物學求調劑 +3 | 小譯同學abc 2026-03-28 | 3/150 |
|
|
|
[考研] 295求調劑 +5 | 1428151015 2026-03-27 | 6/300 |
|
|
|
[考研] 315調劑 +4 | 0860求調劑 2026-03-26 | 5/250 |
|