 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 2471 | 回復(fù): 13 | ||
| 當(dāng)前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | ||
sun805869434金蟲 (小有名氣)
|
[求助]
fortran里一個子程序不運行是怎么回事
|
|
|
整個fortran程序編譯完，運行后就顯示內(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 這是子程序中的兩個部分，第一個子程序運行后U(J,K)的結(jié)果是正確的，但是進(jìn)行第二個子程序時，要用到上一個的結(jié)果U(J,K)，運行結(jié)果C(J,K)是錯誤的，并且不管我怎么改C(J,K)的計算式，得出的結(jié)果不變，還是原來錯誤的結(jié)果，不知道原因出在哪。 [ Last edited by sun805869434 on 2013-6-6 at 10:14 ] |
回復(fù)此樓» 猜你喜歡
調(diào)劑
已經(jīng)有6人回復(fù)
-
280求調(diào)劑
已經(jīng)有6人回復(fù)
-
302求調(diào)劑一志愿華中師范大學(xué)
已經(jīng)有5人回復(fù)
-
346求調(diào)劑
已經(jīng)有4人回復(fù)
-
材料專碩322分
已經(jīng)有9人回復(fù)
-
372分材料與化工（085600）一志愿湖南大學(xué)求調(diào)劑
已經(jīng)有5人回復(fù)
-
318求調(diào)劑，計算材料方向
已經(jīng)有10人回復(fù)
-
310求調(diào)劑
已經(jīng)有14人回復(fù)
-
315求調(diào)劑
已經(jīng)有3人回復(fù)
-
265求調(diào)劑
已經(jīng)有13人回復(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里運行
已經(jīng)有4人回復(fù)
- 又來求助啦，fortran里使用多文件，其中的子程序文件怎么觀察參數(shù)值��？
已經(jīng)有3人回復(fù)
- 請教 fortran 運行錯誤的原因
已經(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ù)
sun805869434
金蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 173.5
- 散金: 150
- 紅花: 2
- 帖子: 57
- 在線: 26.9小時
- 蟲號: 1666767
- 注冊: 2012-03-05
- 性別: MM
- 專業(yè): 傳熱傳質(zhì)學(xué)
5樓2013-06-06 18:50:26
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ā)表 | |
|---|---|---|---|---|
|
[考研] 265求調(diào)劑 +11 | 林深溫瀾 2026-04-01 | 13/650 |
|
|---|---|---|---|---|
|
|
[考研] 283分材料與化工求調(diào)劑 +11 | 羅KAKA 2026-04-02 | 11/550 |
|
|
|
[考研] 319求調(diào)劑 +13 | 太容易1018 2026-04-01 | 13/650 |
|
|
[考研] 求調(diào)劑，一志愿 南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分 +11 | @taotao 2026-03-29 | 11/550 |
|
|
|
[考研] 085602化學(xué)工程268分蹲調(diào)劑 +8 | 月照花林。 2026-04-01 | 8/400 |
|
|
|
[考研] 建環(huán)，能源，土木老師路過看一看�。�！ +4 | 嘿嘿uu 2026-04-01 | 4/200 |
|
|
|
[考研] 材料科學(xué)與工程339求調(diào)劑 +11 | hyz0119 2026-03-31 | 12/600 |
|
|
|
[考研] 【求調(diào)劑】085601材料工程專碩 | 總分272 | +10 | 腳滑的守法公民 2026-03-27 | 10/500 |
|
|
|
[考研] 086502化學(xué)工程342求調(diào)劑 +7 | 阿姨復(fù)古不過 2026-03-27 | 7/350 |
|
|
|
[考研] 一志愿 南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩 +7 | @taotao 2026-03-30 | 7/350 |
|
|
|
[考研] 0855機械初試280求調(diào)劑 +3 | kazenotori 2026-03-31 | 3/150 |
|
|
|
[考研] 315求調(diào)劑 +6 | akie... 2026-03-28 | 7/350 |
|
|
|
[考研] 340求調(diào)劑 +4 | 希望如此i 2026-03-31 | 4/200 |
|
|
|
[考研] 本科211安全工程，初試290分，求調(diào)劑 +3 | 2719846834 2026-03-28 | 3/150 |
|
|
|
[考研] 一志愿大連理工大學(xué)，機械工程學(xué)碩，341 +3 | 西瓜田的守望者 2026-03-30 | 3/150 |
|
|
|
[考研] 08工科，295，接受跨專業(yè)調(diào)劑 +6 | lmnlzy 2026-03-30 | 6/300 |
|
|
|
[考研] 一志愿華中師范化學(xué)332分求調(diào)劑 +3 | Lyy930824@ 2026-03-29 | 3/150 |
|
|
|
[考研] 283求調(diào)劑（080500） +14 | A child 2026-03-27 | 14/700 |
|
|
|
[考研] 308求調(diào)劑 +7 | 墨墨漠 2026-03-27 | 7/350 |
|
|
|
[考研] 070300化學(xué)求調(diào)劑 +4 | 起個名咋這么難 2026-03-27 | 4/200 |
|