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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】这样调用子程序可以吗？
51/1返回列表
查看: 1036  |  回复: 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的回帖

Jeydragon

木虫 (正式写手)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+1):欢迎常来程序语言版！ 2010-12-20 20:19:32
好多话感觉自己经历过了才感觉容易，高手刚开始怎么过来的？
赞一下(2人) 回复此楼
欲海沉浮名利争，石光电火步此生；风尘情事挥不尽，观世不笑是痴人。
8楼2010-12-19 22:13:51
已阅   回复此楼   关注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 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 恳请有学校收留 +7 柯淮然 2026-04-12 7/350 2026-04-16 22:50 by cfdbai
[考研] 300求调剂 +11 橙a777 2026-04-15 11/550 2026-04-16 22:43 by cfdbai
[考研] 一志愿华中农业071010，320求调剂 +14 困困困困坤坤 2026-04-14 16/800 2026-04-16 22:02 by 猪会飞
[考研] 304求调剂 +5 castLight 2026-04-16 5/250 2026-04-16 21:49 by 学员JpLReM
[考研] 290求调剂 +23 luoziheng 2026-04-10 25/1250 2026-04-16 17:25 by 冰雪遇见猪
[考研] 291求调剂 +11 关忆北. 2026-04-14 11/550 2026-04-16 15:18 by jiahl2024
[基金申请] RY：中国产出的科学垃圾论文，绝对数量和比例都世界第一 +7 zju2000 2026-04-14 18/900 2026-04-16 11:36 by 欢乐颂叶蓁
[考研] 药学求调剂 +14 喽哈加油 2026-04-14 16/800 2026-04-16 10:15 by beilsong20
[考研] 279学硕食品专业求调剂院校 20+7 孤独的狼爱吃羊 2026-04-12 29/1450 2026-04-16 09:00 by screening
[考研] 通信工程求调剂！！！ +6 zlb770521 2026-04-14 6/300 2026-04-15 20:00 by 学员JpLReM
[考研] 化工学硕294分，求导师收留 +32 yzyzx 2026-04-12 36/1800 2026-04-14 17:45 by lhj2009
[考研] 求调剂 +16 雪逢冬 2026-04-10 16/800 2026-04-14 14:27 by 逆水乘风
[考研] 085600材料与化工349分求调剂 +16 李木子啊哈哈 2026-04-12 17/850 2026-04-14 09:11 by fenglj492
[考研] 农学0904 312求调剂 +4 Say Never 2026-04-11 4/200 2026-04-14 09:10 by zs92450
[考研] 0831一轮调剂失败求助 +10 小熊睿睿_s 2026-04-11 10/500 2026-04-12 22:43 by 长弓傲
[考研] 农学0904 312求调剂 +6 Say Never 2026-04-10 6/300 2026-04-11 10:33 by wwj2530616
[考研] 281求调剂 +11 觉得好的吧 2026-04-10 11/550 2026-04-11 09:35 by 逆水乘风
[考研] 337求调剂 +4 研s. 2026-04-10 4/200 2026-04-11 08:57 by zhq0425
[考研] 342电子信息专硕求调剂 +9 你让我怎么荔枝 2026-04-10 10/500 2026-04-11 08:33 by zhq0425
[考研] 263能源动力专硕求调剂 +3 加大号饭盒袋 2026-04-10 3/150 2026-04-10 22:23 by 286640313
信息提示
关闭
请填处理意见
关闭