| 查看: 837 | 回复: 4 | |||
astringent铜虫 (著名写手)
|
[交流]
【求助】请教子程序return 已有3人参与
|
|
我在主程序那个调用了程序test，子程序test中有一个循环，通过一个条件，把符合条件的i值赋给变量ia，然后将ia的值传回主程序，我现在不知道在子程序test中有几个符合条件的i值，如果像我这样用return，是不是只能得到一个ia值？如果有多个符合条件的ia值，怎样才能将他们都传回主程序？请大家不吝赐教。 program main call test (ia) -- end subroutine test (ia) ia=0 do i=1,1000 if(条件成立) then ia=i if (ia.ne.0) return endif enddo |
回复此楼» 猜你喜欢
基于自然哲学类比的风化壳型稀土矿
已经有6人回复
-
评委有多少概率知道其他专家手中有哪些人的本子？
已经有4人回复
-
E0414, 我的本子有没有希望？
已经有17人回复
-
青A35岁以下通知答辩了吗
已经有4人回复
-
小城的小雨
已经有3人回复
-
看《给阿ma的情书》有感
已经有5人回复
-
国自然申请五篇代表作大比拼，感觉这个是最重要的
已经有4人回复
-
雷雨
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 【资源】催化剂制备中浸渍（等体积浸渍）不断改进
已经有151人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2010-12-07 07:11:33
astringent
铜虫 (著名写手)
- 应助: 16 (小学生)
- 金币: 2210.7
- 散金: 1233
- 红花: 4
- 帖子: 1180
- 在线: 354.8小时
- 虫号: 900839
- 注册: 2009-11-12
- 专业: 理论和计算化学
3楼2010-12-07 15:49:37
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2010-12-07 16:59:52
scatcj
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 3065.7
- 散金: 1
- 红花: 2
- 帖子: 287
- 在线: 60.3小时
- 虫号: 1136762
- 注册: 2010-11-01
- 性别: GG
- 专业: 理论和计算化学
5楼2010-12-07 23:30:09