| 查看: 1021 | 回复: 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» 猜你喜欢
085701环境工程，267求调剂
已经有12人回复
-
320分，材料与化工专业，求调剂
已经有7人回复
-
085701环境工程求调剂
已经有8人回复
-
295材料工程专硕求调剂
已经有5人回复
-
265求调剂
已经有8人回复
-
322求调剂
已经有4人回复
-
085602 307分 求调剂
已经有6人回复
-
0856，材料与化工321分求调剂
已经有7人回复
-
0703化学求调剂，各位老师看看我！！！
已经有5人回复
-
266分，求材料冶金能源化工等调剂
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 【求助】请教一个赋值的问题【已完结】
已经有3人回复
- 【求助】在fortran中可以这样写吗【已完结】
已经有2人回复
astringent
铜虫 (著名写手)
- 应助: 16 (小学生)
- 金币: 2210.7
- 散金: 1233
- 红花: 4
- 帖子: 1180
- 在线: 354.8小时
- 虫号: 900839
- 注册: 2009-11-12
- 专业: 理论和计算化学
3楼2010-11-17 00:18:04
coolrainbow
木虫 (著名写手)
未来国家冻凉
- 程序强帖: 2
- 应助: 1 (幼儿园)
- 贵宾: 0.1
- 金币: 3979.5
- 散金: 10
- 红花: 50
- 帖子: 1137
- 在线: 272.3小时
- 虫号: 239560
- 注册: 2006-04-07
- 性别: GG
- 专业: 理论和计算化学
2楼2010-11-16 11:17:38
4楼2010-11-17 01:50:36
coolrainbow
木虫 (著名写手)
未来国家冻凉
- 程序强帖: 2
- 应助: 1 (幼儿园)
- 贵宾: 0.1
- 金币: 3979.5
- 散金: 10
- 红花: 50
- 帖子: 1137
- 在线: 272.3小时
- 虫号: 239560
- 注册: 2006-04-07
- 性别: GG
- 专业: 理论和计算化学
5楼2010-11-17 08:20:21
