| 查看: 889 | 回复: 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 |
回复此楼» 猜你喜欢
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有11人回复
-
2027博士申请-临床检验诊断学、病原生物学、微生物方向
已经有4人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有17人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有10人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有22人回复
-
越来越担心硕士毕业后没有竞争力了
已经有14人回复
-
论文的挂名怎么评判贡献？基金申请中，排名第一的挂名文章
已经有3人回复
-
申博自荐 2篇一区TOP+1篇EI+2公开发明专利 2027博士申请
已经有3人回复
-
闲聊
已经有6人回复
-
申博求助
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 【资源】催化剂制备中浸渍（等体积浸渍）不断改进
已经有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