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

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

24小時(shí)熱門(mén)版塊排行榜

返回列表

當(dāng)前只顯示滿(mǎn)足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖

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

» 猜你喜歡

一志愿華中科技大學(xué)071000，求調(diào)劑已經(jīng)有4人回復(fù)
生物學(xué)一志愿985，分?jǐn)?shù)349求調(diào)劑已經(jīng)有4人回復(fù)
生物學(xué)調(diào)劑已經(jīng)有4人回復(fù)
求調(diào)劑院校信息已經(jīng)有4人回復(fù)
085600材料與化工306 已經(jīng)有4人回復(fù)
286求調(diào)劑已經(jīng)有10人回復(fù)
328求調(diào)劑，英語(yǔ)六級(jí)551，有科研經(jīng)歷已經(jīng)有9人回復(fù)
一志愿北京化工大學(xué)070300 學(xué)碩336求調(diào)劑已經(jīng)有4人回復(fù)
286分人工智能專(zhuān)業(yè)請(qǐng)求調(diào)劑愿意跨考！已經(jīng)有8人回復(fù)
資源與環(huán)境調(diào)劑申請(qǐng)(333分) 已經(jīng)有5人回復(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的回帖

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的回帖

查看全部 10 個(gè)回答

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的回帖

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的回帖

查看全部 10 個(gè)回答

普通表情龍兔虎貓高級(jí)回復(fù) (可上傳附件)

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

[考研] 286求調(diào)劑 +10	Faune 2026-03-21	10/500	2026-03-21 23:34 by 314126402
[考研] 333求調(diào)劑 +5	87639 2026-03-21	7/350	2026-03-21 19:31 by ColorlessPI
[考研] 326求調(diào)劑 +4	mlpqaz03 2026-03-15	4/200	2026-03-21 19:10 by ColorlessPI
[考研] 一志愿南大，0703化學(xué)，分?jǐn)?shù)336，求調(diào)劑 +3	收到VS 2026-03-21	3/150	2026-03-21 18:42 by 學(xué)員8dgXkO
[考研] 一志愿重慶大學(xué)085700資源與環(huán)境總分308求調(diào)劑 +7	墨墨漠 2026-03-20	7/350	2026-03-21 16:36 by barlinike
[考研] 268求調(diào)劑 +9	簡(jiǎn)單點(diǎn)0 2026-03-17	9/450	2026-03-21 15:37 by lature00
[考研] 265求調(diào)劑 +3	Jack?k?y 2026-03-17	3/150	2026-03-21 03:17 by JourneyLucky
[考研] 初始318分求調(diào)劑（有工作經(jīng)驗(yàn)） +3	1911236844 2026-03-17	3/150	2026-03-21 02:33 by JourneyLucky
[考研] 324分 085600材料化工求調(diào)劑 +4	llllkkkhh 2026-03-18	4/200	2026-03-21 01:24 by JourneyLucky
[考研] 22408 344分求調(diào)劑一志愿華電計(jì)算機(jī)技術(shù) +4	solanXXX 2026-03-20	4/200	2026-03-20 23:49 by alg094825
[考研] 材料專(zhuān)碩英一數(shù)二306 +7	z1z2z3879 2026-03-18	7/350	2026-03-20 23:48 by JourneyLucky
[考研] 一志愿南昌大學(xué)，327分，材料與化工085600 +9	Ncdx123456 2026-03-19	9/450	2026-03-20 23:41 by lovewei0727
[考研] 321求調(diào)劑 +9	何潤(rùn)采123 2026-03-18	11/550	2026-03-20 23:19 by JourneyLucky
[考研] 考研調(diào)劑求學(xué)校推薦 +3	伯樂(lè)29 2026-03-18	5/250	2026-03-20 22:59 by JourneyLucky
[論文投稿] 申請(qǐng)回稿延期一個(gè)月，編輯同意了。但系統(tǒng)上的時(shí)間沒(méi)變，給編輯又寫(xiě)郵件了，沒(méi)回復(fù) 10+3	wangf9518 2026-03-17	4/200	2026-03-19 23:55 by babero
[考研] 一志愿985，本科211，0817化學(xué)工程與技術(shù)319求調(diào)劑 +10	Liwangman 2026-03-15	10/500	2026-03-19 10:25 by 無(wú)際的草原
[考研] 312求調(diào)劑 +8	陌宸希 2026-03-16	9/450	2026-03-18 12:39 by Linda Hu
[考研] 一志愿蘇州大學(xué)材料工程（085601）專(zhuān)碩有科研經(jīng)歷三項(xiàng)國(guó)獎(jiǎng)兩個(gè)實(shí)用型專(zhuān)利一項(xiàng)省級(jí)立項(xiàng) +6	大火山小火山 2026-03-16	8/400	2026-03-17 15:05 by 無(wú)懈可擊111
[考研] 318求調(diào)劑 +3	Yanyali 2026-03-15	3/150	2026-03-16 16:41 by houyaoxu
[考研] 070300化學(xué)學(xué)碩求調(diào)劑 +6	太想進(jìn)步了0608 2026-03-16	6/300	2026-03-16 16:13 by kykm678