| 查看: 1005 | 回复: 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» 猜你喜欢
复试调剂，一志愿南农083200食品科学与工程
已经有5人回复
-
一志愿南师大0703化学 275求调剂
已经有3人回复
-
0703化学
已经有3人回复
-
308求调剂
已经有7人回复
-
289求调剂
已经有4人回复
-
求调剂推荐 材料 304
已经有12人回复
-
材料与化工085600，总分304，本科有两篇sci参与，求调剂
已经有11人回复
-
考研化学308分求调剂
已经有12人回复
-
085600，材料与化工321分，求调剂
已经有9人回复
-
265求调剂
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 【求助】请教一个赋值的问题【已完结】
已经有3人回复
- 【求助】在fortran中可以这样写吗【已完结】
已经有2人回复
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
coolrainbow
木虫 (著名写手)
未来国家冻凉
- 程序强帖: 2
- 应助: 1 (幼儿园)
- 贵宾: 0.1
- 金币: 3979.5
- 散金: 10
- 红花: 50
- 帖子: 1137
- 在线: 272.3小时
- 虫号: 239560
- 注册: 2006-04-07
- 性别: GG
- 专业: 理论和计算化学
5楼2010-11-17 08:20:21
6楼2010-11-20 20:34:53
|
本帖内容被屏蔽 |
7楼2010-11-21 10:34:40
Jeydragon
木虫 (正式写手)
- 应助: 5 (幼儿园)
- 金币: 4611.2
- 散金: 268
- 红花: 11
- 帖子: 993
- 在线: 229.6小时
- 虫号: 966560
- 注册: 2010-03-10
- 专业: 大地测量学
8楼2010-12-19 22:13:51
9楼2011-11-27 15:52:17
10楼2011-11-28 21:53:29
