 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 2470 | 回復(fù): 13 | ||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | ||
sun805869434金蟲 (小有名氣)
|
[求助]
fortran里一個子程序不運(yùn)行是怎么回事
|
|
|
整個fortran程序編譯完，運(yùn)行后就顯示內(nèi)存不能讀取，切換到Debug，按F5后，可以發(fā)現(xiàn)濃度值C(J,K)計算結(jié)果不對，但是無論更改程序中該子程序的任何計算式，得到的結(jié)果都是一樣的，好像跟我設(shè)置的計算式?jīng)]有關(guān)系，這是沒有讀取相應(yīng)的子程序嗎？還是讀取其他部分了？ 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 這是子程序中的兩個部分，第一個子程序運(yùn)行后U(J,K)的結(jié)果是正確的，但是進(jìn)行第二個子程序時，要用到上一個的結(jié)果U(J,K)，運(yùn)行結(jié)果C(J,K)是錯誤的，并且不管我怎么改C(J,K)的計算式，得出的結(jié)果不變，還是原來錯誤的結(jié)果，不知道原因出在哪。 [ Last edited by sun805869434 on 2013-6-6 at 10:14 ] |
回復(fù)此樓» 猜你喜歡
283分材料與化工求調(diào)劑
已經(jīng)有10人回復(fù)
-
材料調(diào)劑
已經(jīng)有6人回復(fù)
-
材料340分調(diào)劑
已經(jīng)有6人回復(fù)
-
321求調(diào)劑 一志愿 浙江工業(yè)大學(xué)生物醫(yī)藥
已經(jīng)有6人回復(fù)
-
085801 總分275 本科新能源 求調(diào)劑
已經(jīng)有19人回復(fù)
-
285求調(diào)劑
已經(jīng)有13人回復(fù)
-
280求調(diào)劑
已經(jīng)有5人回復(fù)
-
一志愿085600中科院寧波所276分求調(diào)劑
已經(jīng)有27人回復(fù)
-
071000生物學(xué)調(diào)劑
已經(jīng)有5人回復(fù)
-
26考研調(diào)劑
已經(jīng)有4人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- fortran 程序有write和沒有write兩種情況計算的結(jié)果為什么會不一樣?
已經(jīng)有14人回復(fù)
- 一百個FORTRAN任務(wù)怎么能一次提交SSH計算
已經(jīng)有3人回復(fù)
- 幫忙把公式轉(zhuǎn)化為FORTRAN子程序
已經(jīng)有6人回復(fù)
- 一個主程序，一個subroutine程序，要如何將兩個程序組合在fortran里運(yùn)行
已經(jīng)有4人回復(fù)
- 又來求助啦，fortran里使用多文件，其中的子程序文件怎么觀察參數(shù)值�。�
已經(jīng)有3人回復(fù)
- 請教 fortran 運(yùn)行錯誤的原因
已經(jīng)有13人回復(fù)
- FORTRAN新手 求助主程序循環(huán)問題
已經(jīng)有10人回復(fù)
- 大家?guī)臀铱匆粋�fortran的程序，我總是計算不出正確的結(jié)果
已經(jīng)有20人回復(fù)
- FORTRAN 基礎(chǔ)知識講解
已經(jīng)有21人回復(fù)
- 請教一個fortran小程序編譯出錯的問題，謝謝
已經(jīng)有9人回復(fù)
- 有關(guān)fortran的一次而問題，希望大家能幫幫忙，謝謝
已經(jīng)有4人回復(fù)
- 【求助】f90子程序怎么編譯錯誤？請大家?guī)兔�，謝謝
已經(jīng)有3人回復(fù)
- 【求助】Intel Visual Fortran與Compaq Visual Fortran的區(qū)別？
已經(jīng)有18人回復(fù)
pippi6
鐵桿木蟲 (著名寫手)
工程和科學(xué)數(shù)值計算咨詢
- 應(yīng)助: 413 (碩士)
- 貴賓: 0.002
- 金幣: 7116.5
- 散金: 15
- 紅花: 63
- 帖子: 1639
- 在線: 798.9小時
- 蟲號: 2469437
- 注冊: 2013-05-14
- 專業(yè): 計算數(shù)學(xué)與科學(xué)工程計算
8樓2013-06-06 21:27:39
pippi6
鐵桿木蟲 (著名寫手)
工程和科學(xué)數(shù)值計算咨詢
- 應(yīng)助: 413 (碩士)
- 貴賓: 0.002
- 金幣: 7116.5
- 散金: 15
- 紅花: 63
- 帖子: 1639
- 在線: 798.9小時
- 蟲號: 2469437
- 注冊: 2013-05-14
- 專業(yè): 計算數(shù)學(xué)與科學(xué)工程計算
2樓2013-06-06 13:38:25
學(xué)蟲dj
金蟲 (正式寫手)
- 應(yīng)助: 18 (小學(xué)生)
- 金幣: 892.4
- 散金: 63
- 帖子: 688
- 在線: 89.9小時
- 蟲號: 1829966
- 注冊: 2012-05-22
- 性別: GG
- 專業(yè): 應(yīng)用地球物理學(xué)
3樓2013-06-06 15:46:02
sun805869434
金蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 173.5
- 散金: 150
- 紅花: 2
- 帖子: 57
- 在線: 26.9小時
- 蟲號: 1666767
- 注冊: 2012-03-05
- 性別: MM
- 專業(yè): 傳熱傳質(zhì)學(xué)
4樓2013-06-06 18:37:32
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +3 | 崔wj 2026-04-02 | 3/150 |
|
|---|---|---|---|---|
|
|
[考研]
 一志愿北京科技材料科學(xué)與工程288分，求調(diào)劑
+11
|
是辰啊 2026-04-02 | 11/550 |
|
|
[考研] 286分調(diào)劑 +20 | Faune 2026-03-30 | 22/1100 |
|
|
|
[考研] 266求調(diào)劑 +4 | 學(xué)員97LZgn 2026-04-02 | 4/200 |
|
|
|
[考研] 262求調(diào)劑 +5 | 勵志一定發(fā)文章 2026-04-02 | 6/300 |
|
|
|
[考研] 材料調(diào)劑 +8 | 一樣YWY 2026-04-02 | 8/400 |
|
|
|
[考研] 311求調(diào)劑 +9 | 勇敢的小吳 2026-04-02 | 9/450 |
|
|
|
[考研] 材料專碩322分 +11 | 哈哈哈吼吼吼哈 2026-04-01 | 11/550 |
|
|
|
[考研] 070305高分子化學(xué)與物理 304分求調(diào)劑 +14 | c297914 2026-03-28 | 14/700 |
|
|
|
[考研] 一志愿北京科技，085601總分305求調(diào)劑 +9 | 半生瓜！ 2026-04-01 | 11/550 |
|
|
|
[考研] 336求調(diào)劑 +5 | kiyy 2026-04-01 | 5/250 |
|
|
|
[考研] 085600 一志愿9 總分351 求調(diào)劑學(xué)校 +7 | czhcz 2026-03-31 | 9/450 |
|
|
|
[考研] 求調(diào)劑 +4 | DADA怪 2026-03-31 | 4/200 |
|
|
|
[考研] 一志愿南昌大學(xué)324求調(diào)劑 +7 | hanamiko 2026-03-30 | 7/350 |
|
|
|
[考研] 一志愿華南師范361分，化學(xué)求調(diào)劑 +4 | Nicole88888 2026-04-01 | 4/200 |
|
|
|
[考研] 考研生物與醫(yī)藥調(diào)劑 +7 | 鐵憨憨123425 2026-03-31 | 7/350 |
|
|
|
[考研] 一志愿南昌大學(xué)324求調(diào)劑 +6 | hanamiko 2026-03-29 | 6/300 |
|
|
|
[考研] 274求調(diào)劑 +6 | xiao愛同學(xué) 2026-03-30 | 6/300 |
|
|
|
[考研] 0703 化學(xué) 求調(diào)劑，一志愿山東大學(xué) 342 分 +7 | Shern—- 2026-03-28 | 7/350 |
|
|
|
[考研] 085405 考的11408求各位老師帶走 +3 | Qiu學(xué)ing 2026-03-28 | 3/150 |
|