 |
 |
 |
| 24小時(shí)熱門(mén)版塊排行榜 |
- >論壇更新日志 (5919)
- >考研 (2784)
- >導(dǎo)師招生 (2377)
- >蟲(chóng)友互識(shí) (389)
- >文獻(xiàn)求助 (372)
- >碩博家園 (197)
- >休閑灌水 (173)
- >招聘信息布告欄 (108)
- >考博 (107)
- >基金申請(qǐng) (88)
- >博后之家 (72)
- >綠色求助(高懸賞) (51)
- >論文投稿 (50)
- >材料綜合 (25)
- >外文書(shū)籍求助 (18)
- >教師之家 (16)
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 2473 | 回復(fù): 13 | ||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | ||
sun805869434金蟲(chóng) (小有名氣)
|
[求助]
fortran里一個(gè)子程序不運(yùn)行是怎么回事
|
|
|
整個(gè)fortran程序編譯完，運(yùn)行后就顯示內(nèi)存不能讀取，切換到Debug，按F5后，可以發(fā)現(xiàn)濃度值C(J,K)計(jì)算結(jié)果不對(duì)，但是無(wú)論更改程序中該子程序的任何計(jì)算式，得到的結(jié)果都是一樣的，好像跟我設(shè)置的計(jì)算式?jīng)]有關(guān)系，這是沒(méi)有讀取相應(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 這是子程序中的兩個(gè)部分，第一個(gè)子程序運(yùn)行后U(J,K)的結(jié)果是正確的，但是進(jìn)行第二個(gè)子程序時(shí)，要用到上一個(gè)的結(jié)果U(J,K)，運(yùn)行結(jié)果C(J,K)是錯(cuò)誤的，并且不管我怎么改C(J,K)的計(jì)算式，得出的結(jié)果不變，還是原來(lái)錯(cuò)誤的結(jié)果，不知道原因出在哪。 [ Last edited by sun805869434 on 2013-6-6 at 10:14 ] |
回復(fù)此樓» 猜你喜歡
315分 085602 求調(diào)劑
已經(jīng)有3人回復(fù)
-
求調(diào)劑，一志愿鄭州大學(xué)材料與化工專碩，英二數(shù)二342分，求老師收留
已經(jīng)有4人回復(fù)
-
285求調(diào)劑
已經(jīng)有8人回復(fù)
-
324求調(diào)劑
已經(jīng)有8人回復(fù)
-
一志愿華南師范大學(xué)-22408計(jì)算機(jī)-292分-求華南師范大學(xué)調(diào)劑
已經(jīng)有4人回復(fù)
-
材料調(diào)劑
已經(jīng)有9人回復(fù)
-
321求調(diào)劑
已經(jīng)有12人回復(fù)
-
調(diào)劑求助
已經(jīng)有4人回復(fù)
-
22408 266求調(diào)劑
已經(jīng)有3人回復(fù)
-
266分，一志愿電氣工程，本科材料，求材料專業(yè)調(diào)劑
已經(jīng)有4人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- fortran 程序有write和沒(méi)有write兩種情況計(jì)算的結(jié)果為什么會(huì)不一樣?
已經(jīng)有14人回復(fù)
- 一百個(gè)FORTRAN任務(wù)怎么能一次提交SSH計(jì)算
已經(jīng)有3人回復(fù)
- 幫忙把公式轉(zhuǎn)化為FORTRAN子程序
已經(jīng)有6人回復(fù)
- 一個(gè)主程序，一個(gè)subroutine程序，要如何將兩個(gè)程序組合在fortran里運(yùn)行
已經(jīng)有4人回復(fù)
- 又來(lái)求助啦，fortran里使用多文件，其中的子程序文件怎么觀察參數(shù)值��？
已經(jīng)有3人回復(fù)
- 請(qǐng)教 fortran 運(yùn)行錯(cuò)誤的原因
已經(jīng)有13人回復(fù)
- FORTRAN新手 求助主程序循環(huán)問(wèn)題
已經(jīng)有10人回復(fù)
- 大家?guī)臀铱匆粋�(gè)fortran的程序，我總是計(jì)算不出正確的結(jié)果
已經(jīng)有20人回復(fù)
- FORTRAN 基礎(chǔ)知識(shí)講解
已經(jīng)有21人回復(fù)
- 請(qǐng)教一個(gè)fortran小程序編譯出錯(cuò)的問(wèn)題，謝謝
已經(jīng)有9人回復(fù)
- 有關(guān)fortran的一次而問(wèn)題，希望大家能幫幫忙，謝謝
已經(jīng)有4人回復(fù)
- 【求助】f90子程序怎么編譯錯(cuò)誤？請(qǐng)大家?guī)兔�，謝謝
已經(jīng)有3人回復(fù)
- 【求助】Intel Visual Fortran與Compaq Visual Fortran的區(qū)別？
已經(jīng)有18人回復(fù)
學(xué)蟲(chóng)dj
金蟲(chóng) (正式寫(xiě)手)
- 應(yīng)助: 18 (小學(xué)生)
- 金幣: 892.4
- 散金: 63
- 帖子: 688
- 在線: 89.9小時(shí)
- 蟲(chóng)號(hào): 1829966
- 注冊(cè): 2012-05-22
- 性別: GG
- 專業(yè): 應(yīng)用地球物理學(xué)
9樓2013-06-07 08:45:29
pippi6
鐵桿木蟲(chóng) (著名寫(xiě)手)
工程和科學(xué)數(shù)值計(jì)算咨詢
- 應(yīng)助: 413 (碩士)
- 貴賓: 0.002
- 金幣: 7116.5
- 散金: 15
- 紅花: 63
- 帖子: 1639
- 在線: 798.9小時(shí)
- 蟲(chóng)號(hào): 2469437
- 注冊(cè): 2013-05-14
- 專業(yè): 計(jì)算數(shù)學(xué)與科學(xué)工程計(jì)算
2樓2013-06-06 13:38:25
學(xué)蟲(chóng)dj
金蟲(chóng) (正式寫(xiě)手)
- 應(yīng)助: 18 (小學(xué)生)
- 金幣: 892.4
- 散金: 63
- 帖子: 688
- 在線: 89.9小時(shí)
- 蟲(chóng)號(hào): 1829966
- 注冊(cè): 2012-05-22
- 性別: GG
- 專業(yè): 應(yīng)用地球物理學(xué)
3樓2013-06-06 15:46:02
sun805869434
金蟲(chóng) (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 173.5
- 散金: 150
- 紅花: 2
- 帖子: 57
- 在線: 26.9小時(shí)
- 蟲(chóng)號(hào): 1666767
- 注冊(cè): 2012-03-05
- 性別: MM
- 專業(yè): 傳熱傳質(zhì)學(xué)
4樓2013-06-06 18:37:32
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 一志愿上海海洋大學(xué)083200食品學(xué)碩，求調(diào)劑，接受其他專業(yè) +6 | what張 2026-04-01 | 7/350 |
|
|---|---|---|---|---|
|
[考研] 材料專碩322分 +9 | 哈哈哈吼吼吼哈 2026-04-02 | 9/450 |
|
|
|
[考研] 08工科求調(diào)劑290分 +5 | 1314捧花 2026-04-02 | 8/400 |
|
|
|
[考研] 262求調(diào)劑 +5 | 勵(lì)志一定發(fā)文章 2026-04-02 | 6/300 |
|
|
|
[考研] 一志愿廈門(mén)大學(xué)材料工程專碩354找調(diào)劑�。�！ +7 | 貝唄鋇鋇 2026-03-30 | 7/350 |
|
|
|
[考研] 材料工程322分 +8 | 哈哈哈吼吼吼哈 2026-04-01 | 8/400 |
|
|
|
[考研] 311求調(diào)劑 +16 | zchqwer 2026-04-01 | 18/900 |
|
|
|
[考研] 354求調(diào)劑 +4 | lxb598 2026-03-31 | 5/250 |
|
|
|
[考研] 805600專碩材料與化工348分求調(diào)劑 +6 | 上學(xué)啦！ 2026-04-01 | 6/300 |
|
|
|
[考研] 材料求調(diào)劑 +8 | 呢呢妮妮 2026-04-01 | 8/400 |
|
|
|
[考研] 建環(huán)，能源，土木老師路過(guò)看一看！��！ +4 | 嘿嘿uu 2026-04-01 | 4/200 |
|
|
|
[考研] 一志愿西安交大材料學(xué)碩（英一數(shù)二）347，求調(diào)劑到高分子/材料相關(guān)專業(yè) +7 | zju51 2026-03-31 | 9/450 |
|
|
|
[考研] 英一數(shù)二生物信息學(xué)287分，本科生物科學(xué)，求調(diào)劑 +3 | 碧水xyz 2026-03-29 | 4/200 |
|
|
|
[考研] 一志愿 南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩 +7 | @taotao 2026-03-30 | 7/350 |
|
|
|
[考研] 0856調(diào)劑 +7 | 曲聽(tīng)筠 2026-03-30 | 7/350 |
|
|
|
[考研] 299求調(diào)劑 +8 | 嗯嗯嗯嗯2 2026-03-27 | 8/400 |
|
|
|
[考研] 274求調(diào)劑 +6 | xiao愛(ài)同學(xué) 2026-03-30 | 6/300 |
|
|
|
[考研]
 一志愿大連理工大學(xué)材料求調(diào)劑
+6
|
Gymno 2026-03-30 | 6/300 |
|
|
|
[考研] 抱歉 +4 | 田洪有 2026-03-30 | 4/200 |
|
|
|
[考研] 266求調(diào)劑 +11 | 陽(yáng)陽(yáng)哇塞 2026-03-27 | 12/600 |
|