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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】这样调用子程序可以吗？
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 1015  |  回复: 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的回帖

0702wuyan

禁虫 (正式写手)
本帖内容被屏蔽
7楼2010-11-21 10:34:40
已阅   回复此楼   关注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 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085602 307分 求调剂 +5 不知道叫什么！ 2026-03-26 5/250 2026-03-27 19:20 by 无际的草原
[考研] 【求调剂】085601材料工程专硕 | 总分272 | +4 脚滑的守法公民 2026-03-27 4/200 2026-03-27 18:07 by wxiongid
[考研] 352分 化工与材料 +3 海纳百川Ly 2026-03-27 3/150 2026-03-27 17:18 by 杨杨杨紫
[考研] 安徽大学专硕生物与医药专业(086000)324分，英语已过四六级，六级521，求调剂 +4 美味可乐鸡翅 2026-03-26 4/200 2026-03-27 15:27 by 星空星月
[考研] 考研化学308分求调剂 +10 你好明天你好 2026-03-23 12/600 2026-03-27 14:43 by shangxh
[考研] 求调剂 +3 刘柯@ 2026-03-24 4/200 2026-03-27 11:28 by shangxh
[考研] 0703化学一志愿南京师范大学303求调剂 +3 zzffylgg 2026-03-24 3/150 2026-03-27 10:42 by shangxh
[考研] 317求调剂 +7 蛋黄咸肉粽 2026-03-26 7/350 2026-03-27 02:29 by fmesaito
[考研] 325求调剂 +3 Aoyijiang 2026-03-23 3/150 2026-03-26 20:46 by 不吃魚的貓
[考研] 321求调剂 +5 材料cailiao 2026-03-21 5/250 2026-03-26 20:41 by fmesaito
[考研] 材料考研求调剂 +3 Dendel 2026-03-23 6/300 2026-03-26 17:51 by fmesaito
[考研] 334分 一志愿武理-080500 材料求调剂 +4 李李不服输 2026-03-25 4/200 2026-03-25 21:26 by 星空星月
[考研] 机械学硕总分317求调剂！！！！ +4 Acaciad 2026-03-25 4/200 2026-03-25 19:59 by hanserlol
[考研] 考研一志愿苏州大学初始315（英一）求调剂 +3 sbdksD 2026-03-24 4/200 2026-03-25 18:16 by xcjcqu
[考研] 361求调剂 +3 Glack 2026-03-22 3/150 2026-03-23 22:03 by fuyu_
[考研] 一志愿重庆大学085700资源与环境，总分308求调剂 +7 墨墨漠 2026-03-23 8/400 2026-03-23 20:36 by Creta
[考研] 276求调剂 +3 YNRYG 2026-03-21 4/200 2026-03-23 08:31 by 醉在风里
[考研] 308求调剂 +3 墨墨漠 2026-03-21 3/150 2026-03-22 16:54 by i_cooler
[考研] 求调剂 +4 要好好无聊 2026-03-21 4/200 2026-03-21 18:57 by 学员8dgXkO
[考研] 一志愿重庆大学085700资源与环境总分308求调剂 +7 墨墨漠 2026-03-20 7/350 2026-03-21 16:36 by barlinike
信息提示
关闭
请填处理意见
关闭