24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

astringent

铜虫 (著名写手)

应助: 16 (小学生)
金币: 2210.7
散金: 1233
红花: 4
帖子: 1180
在线: 354.8小时
虫号: 900839
注册: 2009-11-12
专业: 理论和计算化学

[交流] 【求助】请教子程序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

回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

【资源】催化剂制备中浸渍（等体积浸渍）不断改进已经有151人回复

1楼 2010-12-07 06:27:08

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

scatcj

木虫 (小有名气)

应助: 2 (幼儿园)
金币: 3065.7
散金: 1
红花: 2
帖子: 287
在线: 60.3小时
虫号: 1136762
注册: 2010-11-01
性别: GG
专业: 理论和计算化学

★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+1):谢谢参与应助！ 2010-12-12 20:28:56

引用回帖:

Originally posted by astringent at 2010-12-07 06:27:08:
我在主程序那个调用了程序test，子程序test中有一个循环，通过一个条件，把符合条件的i值赋给变量ia，然后将ia的值传回主程序，我现在不知道在子程序test中有几个符合条件的i值，如果像我这样用return，是不是只能 ...

在子程序中控制也可以的，不用return也行的啊，只要if控制好就行了