24小时热门版块排行榜

返回列表

astringent

铜虫 (著名写手)

应助: 16 (小学生)
金币: 2210.7
散金: 1233
红花: 4
帖子: 1180
在线: 354.8小时
虫号: 900839
注册: 2009-11-12
专业: 理论和计算化学

[交流] 【求助】这样调用子程序可以吗？已有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

» 猜你喜欢

假如你的研究生提出不合理要求已经有6人回复
对氯苯硼酸纯化已经有3人回复
求助:我三月中下旬出站，青基依托单位怎么办？已经有12人回复
不自信的我已经有12人回复
所感已经有4人回复
论文终于录用啦！满足毕业条件了已经有28人回复
要不要辞职读博？已经有7人回复
北核录用已经有3人回复
实验室接单子已经有3人回复
磺酰氟产物，毕不了业了！已经有8人回复

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

【求助】请教一个赋值的问题【已完结】已经有3人回复
【求助】在fortran中可以这样写吗【已完结】已经有2人回复

1楼 2010-11-16 05:41:09

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

coolrainbow

木虫 (著名写手)

未来国家冻凉

程序强帖: 2
应助: 1 (幼儿园)
贵宾: 0.1
金币: 3979.5
散金: 10
红花: 50
帖子: 1137
在线: 272.3小时
虫号: 239560
注册: 2006-04-07
性别: GG
专业: 理论和计算化学

★ ★
小木虫(金币+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

铜虫 (著名写手)

应助: 16 (小学生)
金币: 2210.7
散金: 1233
红花: 4
帖子: 1180
在线: 354.8小时
虫号: 900839
注册: 2009-11-12
专业: 理论和计算化学

引用回帖:

Originally posted by coolrainbow at 2010-11-16 11:17:38:
首先告诉你答案：可以

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

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

赞一下

回复此楼

3楼2010-11-17 00:18:04

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