版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進(jìn)行手機(jī)號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

北京石油化工學(xué)院2026年研究生招生接收調(diào)劑公告

返回列表

sun805869434

金蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 173.5
散金: 150
紅花: 2
帖子: 57
在線: 26.9小時
蟲號: 1666767
注冊: 2012-03-05
性別: MM
專業(yè): 傳熱傳質(zhì)學(xué)

[求助] 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ù)此樓

» 猜你喜歡

08工科求調(diào)劑290分已經(jīng)有5人回復(fù)
301求調(diào)劑已經(jīng)有11人回復(fù)
270求調(diào)劑已經(jīng)有9人回復(fù)
一志愿廈門大學(xué)材料工程專碩354找調(diào)劑�。�！已經(jīng)有7人回復(fù)
311求調(diào)劑已經(jīng)有14人回復(fù)
298求B區(qū)調(diào)劑已經(jīng)有5人回復(fù)
一志愿北京科技大學(xué)085601材料工程英一數(shù)二初試總分335求調(diào)劑已經(jīng)有9人回復(fù)
求調(diào)劑推薦已經(jīng)有3人回復(fù)
一志愿北京理工大學(xué)本科211材料工程294求調(diào)劑已經(jīng)有9人回復(fù)
初試301，代碼085701環(huán)境工程，本碩一致，四六級已過，有二區(qū)一作，共發(fā)表5篇論文已經(jīng)有5人回復(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ù)

優(yōu)秀是一種習(xí)慣

1樓 2013-06-06 09:27:22

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

回帖支持 ( 顯示支持度最高的前 50 名 )

pippi6

鐵桿木蟲 (著名寫手)

工程和科學(xué)數(shù)值計算咨詢

應(yīng)助: 413 (碩士)
貴賓: 0.002
金幣: 7116.5
散金: 15
紅花: 63
帖子: 1639
在線: 798.9小時
蟲號: 2469437
注冊: 2013-05-14
專業(yè): 計算數(shù)學(xué)與科學(xué)工程計算

引用回帖:

7樓: Originally posted by sun805869434 at 2013-06-06 21:01:21
我的程序比較多，復(fù)制比較不方面，我把附件發(fā)上來，您能幫我看看嗎？這是一個主程序，和一個子程序。謝謝。...

太多不行，你需要自己先簡化。不能指望別人讀1000條程序之類。我可以回答你的問題，幫助你提高技巧，但不是幫你干活

贊一下(2人)

回復(fù)此樓

8樓2013-06-06 21:27:39

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

pippi6

鐵桿木蟲 (著名寫手)

工程和科學(xué)數(shù)值計算咨詢

應(yīng)助: 413 (碩士)
貴賓: 0.002
金幣: 7116.5
散金: 15
紅花: 63
帖子: 1639
在線: 798.9小時
蟲號: 2469437
注冊: 2013-05-14
專業(yè): 計算數(shù)學(xué)與科學(xué)工程計算

【答案】應(yīng)助回帖

引用回帖:

9樓: Originally posted by 學(xué)蟲dj at 2013-06-07 08:45:29
定義全局變量過多就容易很亂，因為全局變量只要一個地方改了，同樣的其他地方都變化，麻煩！盡量少用

不是這樣說的。全局變量要在module里定義，然后use。另一種辦法就是使用include。這樣就不會出現(xiàn)不一致的的情況了。

贊一下(1人)

回復(fù)此樓

10樓2013-06-07 09:28:31

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

普通回帖

pippi6

鐵桿木蟲 (著名寫手)

工程和科學(xué)數(shù)值計算咨詢

應(yīng)助: 413 (碩士)
貴賓: 0.002
金幣: 7116.5
散金: 15
紅花: 63
帖子: 1639
在線: 798.9小時
蟲號: 2469437
注冊: 2013-05-14
專業(yè): 計算數(shù)學(xué)與科學(xué)工程計算

【答案】應(yīng)助回帖

感謝參與，應(yīng)助指數(shù) +1

你的問題有關(guān)運(yùn)行結(jié)果，所以需要你調(diào)用部分的程序。這樣說說是無法判斷的。

贊一下

回復(fù)此樓

2樓2013-06-06 13:38:25

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

學(xué)蟲dj

金蟲 (正式寫手)

應(yīng)助: 18 (小學(xué)生)
金幣: 892.4
散金: 63
帖子: 688
在線: 89.9小時
蟲號: 1829966
注冊: 2012-05-22
性別: GG
專業(yè): 應(yīng)用地球物理學(xué)

【答案】應(yīng)助回帖

感謝參與，應(yīng)助指數(shù) +1

我感覺是你定義的全局變量的原因，為啥要定義那么多全局變量嫩

贊一下

回復(fù)此樓

窮則獨善其事，達(dá)則兼濟(jì)天下

3樓2013-06-06 15:46:02

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

sun805869434

金蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 173.5
散金: 150
紅花: 2
帖子: 57
在線: 26.9小時
蟲號: 1666767
注冊: 2012-03-05
性別: MM
專業(yè): 傳熱傳質(zhì)學(xué)

引用回帖:

3樓: Originally posted by 學(xué)蟲dj at 2013-06-06 15:46:02
我感覺是你定義的全局變量的原因，為啥要定義那么多全局變量嫩

我有很多個子程序，這只是其中的兩個，其他的子程序中能用到的我都定義了。要是全局變量的原因的話，為什么第一個能運(yùn)行并得到正確的結(jié)果，而第二個就不能了呢？跟第二個程序中需要調(diào)用第一個運(yùn)行結(jié)果有關(guān)嗎？

贊一下

回復(fù)此樓

優(yōu)秀是一種習(xí)慣

4樓2013-06-06 18:37:32

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

sun805869434

金蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 173.5
散金: 150
紅花: 2
帖子: 57
在線: 26.9小時
蟲號: 1666767
注冊: 2012-03-05
性別: MM
專業(yè): 傳熱傳質(zhì)學(xué)

引用回帖:

2樓: Originally posted by pippi6 at 2013-06-06 13:38:25
你的問題有關(guān)運(yùn)行結(jié)果，所以需要你調(diào)用部分的程序。這樣說說是無法判斷的。

請問我需要提供什么才能判斷出哪出毛病了？謝謝

贊一下

回復(fù)此樓

優(yōu)秀是一種習(xí)慣

5樓2013-06-06 18:50:26

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

pippi6

鐵桿木蟲 (著名寫手)

工程和科學(xué)數(shù)值計算咨詢

應(yīng)助: 413 (碩士)
貴賓: 0.002
金幣: 7116.5
散金: 15
紅花: 63
帖子: 1639
在線: 798.9小時
蟲號: 2469437
注冊: 2013-05-14
專業(yè): 計算數(shù)學(xué)與科學(xué)工程計算

【答案】應(yīng)助回帖

★ ★ ★ ★ ★
sun805869434: 金幣+5, ★有幫助 2013-06-14 09:03:30

引用回帖:

5樓: Originally posted by sun805869434 at 2013-06-06 18:50:26
請問我需要提供什么才能判斷出哪出毛病了？謝謝...

你只給了 SUBROUTINE。你從哪里調(diào)用這個SUBROUTINE的呢？不運(yùn)行是看不出來怎么錯的啊。光有這個SUBROUTINE是運(yùn)行不了的啊。

贊一下

回復(fù)此樓

6樓2013-06-06 20:32:17

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

sun805869434

金蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 173.5
散金: 150
紅花: 2
帖子: 57
在線: 26.9小時
蟲號: 1666767
注冊: 2012-03-05
性別: MM
專業(yè): 傳熱傳質(zhì)學(xué)

引用回帖:

6樓: Originally posted by pippi6 at 2013-06-06 20:32:17
你只給了 SUBROUTINE。你從哪里調(diào)用這個SUBROUTINE的呢？不運(yùn)行是看不出來怎么錯的啊。光有這個SUBROUTINE是運(yùn)行不了的啊。...

我的程序比較多，復(fù)制比較不方面，我把附件發(fā)上來，您能幫我看看嗎？這是一個主程序，和一個子程序。謝謝。

贊一下

回復(fù)此樓

» 本帖附件資源列表

歡迎監(jiān)督和反饋：小木蟲僅提供交流平臺，不對該內(nèi)容負(fù)責(zé)。
本內(nèi)容由用戶自主發(fā)布，如果其內(nèi)容涉及到知識產(chǎn)權(quán)問題，其責(zé)任在于用戶本人，如對版權(quán)有異議，請聯(lián)系郵箱：xiaomuchong@tal.com
附件 1 : USER.f90

2013-06-06 21:00:44, 1.91 K

附件 2 : MAIN.f90

2013-06-06 21:00:50, 1.27 K

優(yōu)秀是一種習(xí)慣

7樓2013-06-06 21:01:21

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

學(xué)蟲dj

金蟲 (正式寫手)

應(yīng)助: 18 (小學(xué)生)
金幣: 892.4
散金: 63
帖子: 688
在線: 89.9小時
蟲號: 1829966
注冊: 2012-05-22
性別: GG
專業(yè): 應(yīng)用地球物理學(xué)

【答案】應(yīng)助回帖

定義全局變量過多就容易很亂，因為全局變量只要一個地方改了，同樣的其他地方都變化，麻煩！盡量少用

贊一下

回復(fù)此樓

窮則獨善其事，達(dá)則兼濟(jì)天下

9樓2013-06-07 08:45:29

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 sun805869434 的主題更新

返回列表

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 0856材料與化工調(diào)劑，339 +13	10213207 2026-03-31	13/650	2026-04-02 11:35 by michael2011
[考研] 266分，一志愿電氣工程，本科材料，求材料專業(yè)調(diào)劑 +3	哇呼哼呼哼 2026-04-02	3/150	2026-04-02 10:41 by caotw2020
[考研] 289求調(diào)劑 +23	新時代材料 2026-03-27	26/1300	2026-04-02 10:29 by oooqiao
[考研] 337求調(diào)劑 +11	《樹》 2026-03-29	11/550	2026-04-02 10:20 by 不吃魚的貓
[考研] 一志愿上海海洋大學(xué)083200食品學(xué)碩，求調(diào)劑，接受其他專業(yè) +5	what張 2026-04-01	5/250	2026-04-01 22:35 by guanxin1001
[考研] 材料科學(xué)與工程339求調(diào)劑 +11	hyz0119 2026-03-31	12/600	2026-04-01 18:40 by 偉大河北
[考研] 289求調(diào)劑 +7	BrightLL 2026-03-29	7/350	2026-03-31 22:05 by 544594351
[考研] 0856求調(diào)劑 +9	楒桉 2026-03-28	9/450	2026-03-31 19:06 by 暮澤12
[考研] 336材料求調(diào)劑 +10	陳瀅瑩 2026-03-26	12/600	2026-03-31 17:59 by jp9609
[考研] 353求調(diào)劑 +3	江上楓_26 2026-03-28	3/150	2026-03-31 15:53 by jp9609
[考研] 求收留 +8	1943443204 2026-03-28	8/400	2026-03-31 15:00 by -迷了路啊路
[考研] 一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分 +13	辰沐5211314 2026-03-26	13/650	2026-03-31 14:37 by 記事本2026
[考研] 求調(diào)劑 +8	11ggg 2026-03-30	8/400	2026-03-31 13:56 by nanaliuyun
[考研] 323分食品與營養(yǎng)調(diào)劑 +3	嘿ooo 2026-03-31	3/150	2026-03-31 09:38 by longlotian
[考研] 食品工程專碩一志愿中海洋309求調(diào)劑 +5	小張zxy張 2026-03-26	10/500	2026-03-31 00:29 by jp9609
[考研] 281求調(diào)劑 +5	亞克西good 2026-03-26	7/350	2026-03-30 20:42 by dophin1985
[考研] 一志愿中南大學(xué)化學(xué)0703總分337求調(diào)劑 +6	niko- 2026-03-27	6/300	2026-03-30 10:25 by herarysara
[考研] 305求調(diào)劑 +8	RuiFairyrui 2026-03-28	8/400	2026-03-29 08:22 by fmesaito
[碩博家園] 招收生物學(xué)/細(xì)胞生物學(xué)調(diào)劑 +4	IceGuo 2026-03-26	5/250	2026-03-29 01:25 by griffith2014
[考研] 340求調(diào)劑 +5	jhx777 2026-03-27	5/250	2026-03-28 04:18 by fmesaito