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

24小时热门版块排行榜    

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

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的回帖
查看全部 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的回帖

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

coolrainbow

木虫 (著名写手)

未来国家冻凉
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
引用回帖:
Originally posted by astringent at 2010-11-17 00:18:04:

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

赶快学学“打桩”调试去，计算机内部照样看~
赞一下(1人) 回复此楼
技术博客：http://hi.baidu.com/coolrainbow/blog
5楼2010-11-17 08:20:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 10 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 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
[考博] 申博自荐 +3 Linxia林夏 2026-04-13 3/150 2026-04-16 12:55 by 墨荷之露
[考研] 初试324 中药学 一志愿天中医 求调剂 +4 李的Lucky 2026-04-10 4/200 2026-04-16 09:22 by fqwang
[考研] 药学305求调剂 +7 玛卡巴卡boom 2026-04-11 7/350 2026-04-15 13:21 by 西北望—风沙
[考研] 各位老师好，求调剂，本科211，一志愿天津大学生物与医药学硕，差两名录取。 +11 路六六jjj 2026-04-13 11/550 2026-04-14 16:01 by zs92450
[考研] 药学305求调剂 +10 玛卡巴卡boom 2026-04-10 10/500 2026-04-14 15:55 by zs92450
[考研] 293求调剂 +16 我爱高数高数爱� 2026-04-12 18/900 2026-04-13 21:47 by 学员JpLReM
[考研] 。 +10 李多米lee. 2026-04-12 11/550 2026-04-12 22:58 by yuyin1233
[考研] 一志愿浙大生物325分求调剂 +9 zysheng 2026-04-12 9/450 2026-04-12 22:31 by yuyin1233
[考研] 346分，工科0854求调剂，专硕 +6 moser233 2026-04-12 7/350 2026-04-12 22:11 by fqwang
[考研] 291求调剂 +8 关忆北. 2026-04-11 8/400 2026-04-12 09:32 by 逆水乘风
[考研] 307求调剂 +10 tzq94092 2026-04-10 10/500 2026-04-12 08:18 by wise999
[考研] 一志愿厦大0856，306求调剂 +15 Bblinging 2026-04-11 15/750 2026-04-11 22:53 by 314126402
[考研] 352 求调剂 +6 yzion 2026-04-11 8/400 2026-04-11 16:24 by 明月此时有
[考研] 求调剂，一志愿大连理工大学354分 +5 雨声余生 2026-04-11 6/300 2026-04-11 16:12 by 雨声余生
[考研] 求调剂 +3 胃痉挛累了 2026-04-11 5/250 2026-04-11 14:13 by luhong1990
[考研] 本科211 工科085400 280分求调剂 可跨专业 +11 LZH（等待调剂中 2026-04-10 11/550 2026-04-11 08:39 by zhq0425
[考研] 368求调剂 +3 17385968172 2026-04-10 3/150 2026-04-10 20:12 by 电子奥德彪
信息提示
关闭
请填处理意见
关闭