24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1006  |  回复: 9
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

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朵)

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

小子wx

铜虫 (小有名气)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖
jjdg(金币+1): 感谢参与 2011-11-29 01:36:32
可以的    我经常这样干的
10楼2011-11-28 21:53:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 10 个回答

coolrainbow

木虫 (著名写手)

未来国家冻凉

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

其次告诉你:你完全可以自己试试就知道了,不用一分钟的时间,何必要问呢,编程有很大部分工作是要试的。当初我们编写多核程序和调用BLAS的时候,根本没有文档,完全是一个个试出来怎么用的
技术博客: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,处于迷茫状态,所以就怕在程序运行往调用程序端返值的时候出错,毕竟是在计算机内部,人看不到。本人的问题有点菜,请多包涵

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

另,如果担心的是精度问题,那因该去注意数据的类型。
4楼2010-11-17 01:50:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 277跪求调剂 +4 1915668 2026-03-27 5/250 2026-03-27 14:18 by 杨光于青云
[考研] 291求调剂 +11 hhhhxn.. 2026-03-23 16/800 2026-03-27 14:14 by hhhhxn..
[考研] 0703化学求调剂,各位老师看看我!!! +4 祁祺祺 2026-03-25 4/200 2026-03-27 13:55 by stillstella
[考研] 0703化学338求调剂! +6 Zuhui0306 2026-03-26 7/350 2026-03-27 10:35 by shangxh
[考研] 340求调剂 +3 jhx777 2026-03-27 3/150 2026-03-27 08:56 by 不吃魚的貓
[考研] 343求调剂 +4 赠我一本书 2026-03-23 4/200 2026-03-27 00:40 by wxiongid
[考研] 349求调剂 +5 杰斯塔里斯 2026-03-21 5/250 2026-03-27 00:31 by wxiongid
[考研] 071000生物学求调剂,初试成绩343 +6 小小甜面团 2026-03-25 6/300 2026-03-26 23:01 by 不吃魚的貓
[考研] 327求调剂 +7 prayer13 2026-03-23 7/350 2026-03-26 20:48 by 不吃魚的貓
[考研] 325求调剂 +3 Aoyijiang 2026-03-23 3/150 2026-03-26 20:46 by 不吃魚的貓
[考研] 材料调剂 5+4 想要一壶桃花水 2026-03-25 10/500 2026-03-26 19:56 by 不吃魚的貓
[考研] 材料277求调剂 +5 min3 2026-03-24 5/250 2026-03-26 15:13 by zzll406
[考研] 网络空间安全0839招调剂 +4 w320357296 2026-03-25 6/300 2026-03-25 17:59 by 255671
[考研] 086003食品工程求调剂 +6 淼淼111 2026-03-24 6/300 2026-03-25 10:29 by 3Strings
[有机交流] 有机合成求助 20+3 FENGSHUJEI 2026-03-23 5/250 2026-03-24 19:31 by 88817753
[考研] 材料考研调剂生 +3 黄粱一梦千年 2026-03-24 3/150 2026-03-24 17:00 by barlinike
[考研] 一志愿河北工业大学0817化工278分求调剂 +7 jhybd 2026-03-23 12/600 2026-03-24 09:03 by jhybd
[考研] 384求调剂 +3 子系博 2026-03-22 6/300 2026-03-23 21:45 by 子系博
[考研] 336化工调剂 +4 王大坦1 2026-03-23 5/250 2026-03-23 18:32 by allen-yin
[考研] 308求调剂 +3 墨墨漠 2026-03-21 3/150 2026-03-22 16:54 by i_cooler
信息提示
请填处理意见