astringent

銅蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 16 (小學(xué)生)
金幣: 2210.7
散金: 1233
紅花: 4
帖子: 1180
在線: 354.8小時(shí)
蟲(chóng)號(hào): 900839
注冊(cè): 2009-11-12
專(zhuān)業(yè): 理論和計(jì)算化學(xué)

[交流] 【求助】這樣調(diào)用子程序可以嗎？已有8人參與

我在主程序調(diào)用子程序test1（a1），然后再子程序test1中調(diào)用子程序test2（a1），如下所示：
program main
-----
integer a1
call test1(a1)
if(a1=1) then
---
end if
end

subroutine test1(a1)
integer a1
a1=0
call test2(a1)
if (a1=1) then
----
return
end test1

subroutine test2(a1)
integer a1
a1=0
if (條件成立) then
a1=1
endif
return
end

回復(fù)此樓

» 本帖已獲得的紅花（最新10朵）

a449044676

» 猜你喜歡

調(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ù)
材料專(zhuān)碩322分已經(jīng)有9人回復(fù)
372分材料與化工（085600）一志愿湖南大學(xué)求調(diào)劑已經(jīng)有5人回復(fù)
318求調(diào)劑，計(jì)算材料方向已經(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)價(jià)值貼推薦，對(duì)您同樣有幫助:

【求助】請(qǐng)教一個(gè)賦值的問(wèn)題【已完結(jié)】已經(jīng)有3人回復(fù)
【求助】在fortran中可以這樣寫(xiě)嗎【已完結(jié)】已經(jīng)有2人回復(fù)

1樓 2010-11-16 05:41:09

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

coolrainbow

木蟲(chóng) (著名寫(xiě)手)

未來(lái)國(guó)家凍涼

程序強(qiáng)帖: 2
應(yīng)助: 1 (幼兒園)
貴賓: 0.1
金幣: 3979.5
散金: 10
紅花: 50
帖子: 1137
在線: 272.3小時(shí)
蟲(chóng)號(hào): 239560
注冊(cè): 2006-04-07
性別: GG
專(zhuān)業(yè): 理論和計(jì)算化學(xué)

★ ★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖交流
nono2009(金幣+1):鼓勵(lì)應(yīng)助 2010-11-17 10:14:24

首先告訴你答案：可以

其次告訴你：你完全可以自己試試就知道了，不用一分鐘的時(shí)間，何必要問(wèn)呢，編程有很大部分工作是要試的。當(dāng)初我們編寫(xiě)多核程序和調(diào)用BLAS的時(shí)候，根本沒(méi)有文檔，完全是一個(gè)個(gè)試出來(lái)怎么用的

贊一下(2人)

回復(fù)此樓

技術(shù)博客：http://hi.baidu.com/coolrainbow/blog

2樓2010-11-16 11:17:38

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

astringent

銅蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 16 (小學(xué)生)
金幣: 2210.7
散金: 1233
紅花: 4
帖子: 1180
在線: 354.8小時(shí)
蟲(chóng)號(hào): 900839
注冊(cè): 2009-11-12
專(zhuān)業(yè): 理論和計(jì)算化學(xué)

引用回帖:

Originally posted by coolrainbow at 2010-11-16 11:17:38:
首先告訴你答案：可以

其次告訴你：你完全可以自己試試就知道了，不用一分鐘的時(shí)間，何必要問(wèn)呢，編程有很大部分工作是要試的。當(dāng)初我們編寫(xiě)多核程序和調(diào)用BLAS的時(shí)候，根本沒(méi)有文檔，完全是一個(gè)個(gè)試出來(lái)怎么用的

我剛學(xué)fortran，處于迷茫狀態(tài)，所以就怕在程序運(yùn)行往調(diào)用程序端返值的時(shí)候出錯(cuò)，畢竟是在計(jì)算機(jī)內(nèi)部，人看不到。本人的問(wèn)題有點(diǎn)菜，請(qǐng)多包涵

贊一下

回復(fù)此樓

3樓2010-11-17 00:18:04

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

gd88

金蟲(chóng) (小有名氣)

程序強(qiáng)帖: 2
應(yīng)助: 0 (幼兒園)
金幣: 556.6
帖子: 110
在線: 18.4小時(shí)
蟲(chóng)號(hào): 122658
注冊(cè): 2005-12-04
專(zhuān)業(yè): Policy Assessment

★ ★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖交流
nono2009(金幣+1):鼓勵(lì)應(yīng)助 2010-11-17 10:14:37

引用回帖:

Originally posted by astringent at 2010-11-17 00:18:04:

我剛學(xué)fortran，處于迷茫狀態(tài)，所以就怕在程序運(yùn)行往調(diào)用程序端返值的時(shí)候出錯(cuò)，畢竟是在計(jì)算機(jī)內(nèi)部，人看不到。本人的問(wèn)題有點(diǎn)菜，請(qǐng)多包涵

額......
程序不是調(diào)試出來(lái)的嗎？根據(jù)錯(cuò)誤提示改就行了。

另，如果擔(dān)心的是精度問(wèn)題，那因該去注意數(shù)據(jù)的類(lèi)型。

贊一下(2人)

回復(fù)此樓

4樓2010-11-17 01:50:36

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

coolrainbow

木蟲(chóng) (著名寫(xiě)手)

未來(lái)國(guó)家凍涼

程序強(qiáng)帖: 2
應(yīng)助: 1 (幼兒園)
貴賓: 0.1
金幣: 3979.5
散金: 10
紅花: 50
帖子: 1137
在線: 272.3小時(shí)
蟲(chóng)號(hào): 239560
注冊(cè): 2006-04-07
性別: GG
專(zhuān)業(yè): 理論和計(jì)算化學(xué)

★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖交流

引用回帖:

趕快學(xué)學(xué)“打樁”調(diào)試去，計(jì)算機(jī)內(nèi)部照樣看~

贊一下(1人)

回復(fù)此樓

技術(shù)博客：http://hi.baidu.com/coolrainbow/blog

5樓2010-11-17 08:20:21

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

cean

金蟲(chóng) (職業(yè)作家)

屌繩一條

應(yīng)助: 23 (小學(xué)生)
金幣: 53.1
散金: 2045
紅花: 2
帖子: 3442
在線: 578.8小時(shí)
蟲(chóng)號(hào): 1147499
注冊(cè): 2010-11-15
專(zhuān)業(yè): 公共關(guān)系學(xué)

★ ★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖交流
nono2009(金幣+1):鼓勵(lì)應(yīng)助，歡迎常來(lái)交流 2010-11-21 07:14:10

編程，調(diào)試，直到調(diào)通。

寫(xiě)出來(lái)，編譯看看，有錯(cuò)改。沒(méi)錯(cuò)運(yùn)行，看結(jié)果對(duì)不對(duì)。不對(duì)再改。

就是這么簡(jiǎn)單。

贊一下(2人)

回復(fù)此樓

To do great work, you have to have a pure mind.

6樓2010-11-20 20:34:53

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

0702wuyan

禁蟲(chóng) (正式寫(xiě)手)

本帖內(nèi)容被屏蔽

7樓2010-11-21 10:34:40

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

Jeydragon

木蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 5 (幼兒園)
金幣: 4611.2
散金: 268
紅花: 11
帖子: 993
在線: 229.6小時(shí)
蟲(chóng)號(hào): 966560
注冊(cè): 2010-03-10
專(zhuān)業(yè): 大地測(cè)量學(xué)

★ ★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖交流
余澤成(金幣+1):歡迎常來(lái)程序語(yǔ)言版！ 2010-12-20 20:19:32

好多話感覺(jué)自己經(jīng)歷過(guò)了才感覺(jué)容易，高手剛開(kāi)始怎么過(guò)來(lái)的？

贊一下(2人)

回復(fù)此樓

欲海沉浮名利爭(zhēng)，石光電火步此生；風(fēng)塵情事?lián)]不盡，觀世不笑是癡人。

8樓2010-12-19 22:13:51

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

a449044676

新蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 13
帖子: 3
在線: 1.4小時(shí)
蟲(chóng)號(hào): 1512225
注冊(cè): 2011-11-27
專(zhuān)業(yè): 結(jié)構(gòu)工程

★

送鮮花一朵
jjdg(金幣+1): 感謝參與 2011-11-29 01:36:39

這什么意思？

回復(fù)此樓

9樓2011-11-27 15:52:17

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

小子wx

銅蟲(chóng) (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 938.6
帖子: 93
在線: 44.1小時(shí)
蟲(chóng)號(hào): 1229838
注冊(cè): 2011-03-11
專(zhuān)業(yè): 電磁場(chǎng)與波

★ ★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖
jjdg(金幣+1): 感謝參與 2011-11-29 01:36:32

可以的我經(jīng)常這樣干的

贊一下(2人)

回復(fù)此樓

10樓2011-11-28 21:53:29

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

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

[考研] 283分材料與化工求調(diào)劑 +11	羅KAKA 2026-04-02	11/550	2026-04-02 15:34 by 小touming
[考研] 材料求調(diào)劑一志愿哈工大324 +10	閆旭東 2026-03-28	12/600	2026-04-02 14:37 by olim
[考研] 283求調(diào)劑 +3	jiouuu 2026-04-02	4/200	2026-04-02 14:08 by 噠噠噠呱呱呱
[考研] 298求B區(qū)調(diào)劑 +4	zzz，，r 2026-04-02	5/250	2026-04-02 12:17 by 土木碩士招生
[考研] 0710生物學(xué)336分求調(diào)劑 +3	kiyy 2026-04-01	3/150	2026-04-02 10:54 by w蟲(chóng)蟲(chóng)123
[考研] 377求調(diào)劑 +3	RASKIN 2026-04-02	3/150	2026-04-02 09:45 by zzchen2000
[考研] 土木304求調(diào)劑 +6	兔突突突， 2026-03-31	7/350	2026-04-02 09:06 by coolminer
[考研] 一志愿346上海大學(xué)生物學(xué) +3	上海大學(xué)346調(diào)劑 2026-04-01	3/150	2026-04-02 08:36 by w蟲(chóng)蟲(chóng)123
[考研] 08工科275分求調(diào)劑 +13	AaAa7420 2026-03-31	13/650	2026-04-02 06:19 by 286640313
[考研] 285求調(diào)劑 +11	AZMK 2026-04-01	11/550	2026-04-01 22:40 by peike
[考研] 303分 0807學(xué)碩求調(diào)劑 +3	TYC3632 2026-04-01	3/150	2026-04-01 19:24 by lwk2004
[考研] 生物與醫(yī)藥考研調(diào)劑 +5	鐵憨憨123425 2026-03-31	5/250	2026-04-01 18:01 by syh9288
[考研] 085410人工智能初試316分求調(diào)劑 +3	殘星拂曙 2026-03-31	3/150	2026-04-01 11:09 by 小熊raider
[考研] 322求調(diào)劑 +8	三水sss 2026-04-01	8/400	2026-04-01 10:19 by 唐沐兒
[考研] 一志愿華南師范361分，化學(xué)求調(diào)劑 +4	Nicole88888 2026-04-01	4/200	2026-04-01 10:08 by 唐沐兒
[考研] 材料科學(xué)與工程求調(diào)劑 +13	深V宿舍吧 2026-03-29	13/650	2026-03-31 19:50 by Dyhoer
[考研] 085601一志愿西北工業(yè)大學(xué)初試346 +4	085601初試346 2026-03-30	4/200	2026-03-31 07:47 by jp9609
[考研] 材料專(zhuān)碩 085600求調(diào)劑 +7	BBQ233 2026-03-30	7/350	2026-03-30 17:44 by oooqiao
[考研] 求調(diào)劑 +10	張zz111 2026-03-27	11/550	2026-03-30 09:17 by 無(wú)際的草原
[考研] 312，生物學(xué)求調(diào)劑 +3	小譯同學(xué)abc 2026-03-28	3/150	2026-03-28 15:32 by 落�？伤�