应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】这样调用子程序可以吗？
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 1007  |  回复: 9
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

astringent

铜虫 (著名写手)

[交流] 【求助】这样调用子程序可以吗？ 已有8人参与

我在主程序调用子程序test1（a1），然后再子程序test1中调用子程序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
回复此楼

» 本帖已获得的红花（最新10朵）

a449044676

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2010-11-16 05:41:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cean

金虫 (职业作家)

屌绳一条
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+1):鼓励应助，欢迎常来交流 2010-11-21 07:14:10
编程，调试，直到调通。

写出来，编译看看，有错改。没错运行，看结果对不对。不对再改。

就是这么简单。
赞一下(2人) 回复此楼
To do great work, you have to have a pure mind.
6楼2010-11-20 20:34:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 10 个回答

coolrainbow

木虫 (著名写手)

未来国家冻凉
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+1):鼓励应助 2010-11-17 10:14:24
首先告诉你答案：可以

其次告诉你：你完全可以自己试试就知道了，不用一分钟的时间，何必要问呢，编程有很大部分工作是要试的。当初我们编写多核程序和调用BLAS的时候，根本没有文档，完全是一个个试出来怎么用的
赞一下(2人) 回复此楼
技术博客：http://hi.baidu.com/coolrainbow/blog
2楼2010-11-16 11:17:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

astringent

铜虫 (著名写手)
引用回帖:
Originally posted by coolrainbow at 2010-11-16 11:17:38:
首先告诉你答案：可以

其次告诉你：你完全可以自己试试就知道了，不用一分钟的时间，何必要问呢，编程有很大部分工作是要试的。当初我们编写多核程序和调用BLAS的时候，根本没有文档，完全是一个个试出来怎么用的

我刚学fortran，处于迷茫状态，所以就怕在程序运行往调用程序端返值的时候出错，毕竟是在计算机内部，人看不到。本人的问题有点菜，请多包涵
赞一下 回复此楼
3楼2010-11-17 00:18:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gd88

金虫 (小有名气)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+1):鼓励应助 2010-11-17 10:14:37
引用回帖:
Originally posted by astringent at 2010-11-17 00:18:04:

我刚学fortran，处于迷茫状态，所以就怕在程序运行往调用程序端返值的时候出错，毕竟是在计算机内部，人看不到。本人的问题有点菜，请多包涵

额......
程序不是调试出来的吗？根据错误提示改就行了。

另，如果担心的是精度问题，那因该去注意数据的类型。
赞一下(2人) 回复此楼
4楼2010-11-17 01:50:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 10 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 22408 359分调剂 +3 Qshers 2026-03-27 3/150 2026-03-27 12:22 by wxiongid
[考研] 329求调剂 +4 星野? 2026-03-26 4/200 2026-03-27 12:00 by 不吃魚的貓
[考研] 321求调剂 +4 璞玉~~ 2026-03-25 4/200 2026-03-27 11:41 by sanrepian
[考研] 南昌大学材料专硕311分求调剂 +10 77chaselx 2026-03-20 10/500 2026-03-27 11:28 by wangjy2002
[考研] 材料与化工考研调剂 +16 孅華 2026-03-22 16/800 2026-03-27 11:23 by 王笑宇一定是研�
[考研] 311求调剂 +5 勇敢的小吴 2026-03-20 5/250 2026-03-27 11:07 by 不吃魚的貓
[考研] 求调剂323材料与化工 +7 1124361 2026-03-24 7/350 2026-03-27 10:22 by wangjy2002
[考研] 304求调剂 +3 曼殊2266 2026-03-27 3/150 2026-03-27 10:17 by guoweigw
[考研] 324求调剂 +8 hanamiko 2026-03-26 10/500 2026-03-27 08:06 by hypershenger
[考研] 一志愿武汉理工，总分321，英一数二，求老师收留。 +5 nnnnnnn5 2026-03-25 5/250 2026-03-27 04:42 by wxiongid
[考研] 286求调剂 +13 Faune 2026-03-21 13/650 2026-03-26 19:52 by peike
[考研] 一志愿厦门大学化学学硕307求调剂 +8 y7czhao 2026-03-26 8/400 2026-03-26 19:51 by 不吃魚的貓
[考研] 化学工程085602 305分求调剂 +17 RichLi_ 2026-03-25 17/850 2026-03-26 19:44 by plmuchong
[考研] 291 求调剂 +7 化工2026届毕业� 2026-03-21 8/400 2026-03-26 11:25 by AlenQIN.
[考研] 调剂 +4 13853210211 2026-03-24 4/200 2026-03-24 19:44 by ms629
[考研] 300求调剂，材料科学英一数二 +5 leaflight 2026-03-24 5/250 2026-03-24 16:25 by laoshidan
[考研] 一志愿东华大学化学070300，求调剂 +7 2117205181 2026-03-21 8/400 2026-03-22 22:55 by chixmc
[考研] 315分，诚求调剂，材料与化工085600 +3 13756423260 2026-03-22 3/150 2026-03-22 20:11 by edmund7
[考研] 生物学调剂 +5 Surekei 2026-03-21 5/250 2026-03-22 14:39 by tcx007
[考研] 一志愿深大，0703化学，总分302，求调剂 +4 七月-七七 2026-03-21 4/200 2026-03-21 18:20 by 学员8dgXkO
信息提示
关闭
请填处理意见
关闭