| 查看: 790 | 回复: 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 |
回复此楼» 猜你喜欢
过年走亲戚时感受到了所开私家车的鄙视链
已经有10人回复
-
今年春晚有几个节目很不错，点赞！
已经有12人回复
-
情人节自我反思：在爱情中有过遗憾吗？
已经有13人回复
-
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低
已经有12人回复
-
基金正文30页指的是报告正文还是整个申请书
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 【资源】催化剂制备中浸渍（等体积浸渍）不断改进
已经有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