| 查看: 913 | 回复: 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朵）
a449044676» 猜你喜欢
假如你的研究生提出不合理要求
已经有6人回复
-
对氯苯硼酸纯化
已经有3人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有12人回复
-
不自信的我
已经有12人回复
-
所感
已经有4人回复
-
论文终于录用啦！满足毕业条件了
已经有28人回复
-
要不要辞职读博？
已经有7人回复
-
北核录用
已经有3人回复
-
实验室接单子
已经有3人回复
-
磺酰氟产物，毕不了业了！
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 【求助】请教一个赋值的问题【已完结】
已经有3人回复
- 【求助】在fortran中可以这样写吗【已完结】
已经有2人回复
coolrainbow
木虫 (著名写手)
未来国家冻凉
- 程序强帖: 2
- 应助: 1 (幼儿园)
- 贵宾: 0.1
- 金币: 3979.5
- 散金: 10
- 红花: 50
- 帖子: 1137
- 在线: 272.3小时
- 虫号: 239560
- 注册: 2006-04-07
- 性别: GG
- 专业: 理论和计算化学
5楼2010-11-17 08:20:21
coolrainbow
木虫 (著名写手)
未来国家冻凉
- 程序强帖: 2
- 应助: 1 (幼儿园)
- 贵宾: 0.1
- 金币: 3979.5
- 散金: 10
- 红花: 50
- 帖子: 1137
- 在线: 272.3小时
- 虫号: 239560
- 注册: 2006-04-07
- 性别: GG
- 专业: 理论和计算化学
2楼2010-11-16 11:17:38
astringent
铜虫 (著名写手)
- 应助: 16 (小学生)
- 金币: 2210.7
- 散金: 1233
- 红花: 4
- 帖子: 1180
- 在线: 354.8小时
- 虫号: 900839
- 注册: 2009-11-12
- 专业: 理论和计算化学
3楼2010-11-17 00:18:04
4楼2010-11-17 01:50:36