24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 804  |  回复: 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
回复此楼

» 猜你喜欢

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

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

snoopyzhao

至尊木虫 (职业作家)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+1):谢谢参与应助! 2010-12-07 16:23:07
你改一下子程序 IA 的定义,使之是一个数组或向量,然后把符合条件的值存在里面,最后再一起传回去就是了……
2楼2010-12-07 07:11:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

astringent

铜虫 (著名写手)

引用回帖:
Originally posted by snoopyzhao at 2010-12-07 07:11:33:
你改一下子程序 IA 的定义,使之是一个数组或向量,然后把符合条件的值存在里面,最后再一起传回去就是了……

首先感谢您的解答,我还有一个问题。是不是我在主程序和子程序中把ia都定义成数组,然后按照现在的写法就可以实现我的目的?
3楼2010-12-07 15:49:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+1):谢谢参与应助! 2010-12-07 21:29:34
这个试一下就知道了,你主程序中的和子程序中的应该写成一致的才行……
4楼2010-12-07 16:59:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

scatcj

木虫 (小有名气)

★ ★
小木虫(金币+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控制好就行了
Troubleisafriend!
5楼2010-12-07 23:30:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 astringent 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 315分 085602 求调剂 +5 26考研上岸版26 2026-04-02 5/250 2026-04-02 19:06 by hxwb99
[考研] 土木304求调剂 +3 兔突突突, 2026-04-02 3/150 2026-04-02 17:33 by 15779914047
[考研] 085600,材料与化工321分求调剂 +11 大馋小子 2026-03-28 11/550 2026-04-02 15:59 by yunlongyang
[考研] 一志愿同济大学323分(080500)求调剂 +6 yikeniu 2026-04-01 6/300 2026-04-02 14:19 by smileboy2006
[考研] 计算机265跨调环境 +5 Yumeng_6 2026-03-27 5/250 2026-04-02 10:54 by guanxin1001
[考研] 343求调剂085601 +4 要努力学习x 2026-03-29 5/250 2026-04-02 09:01 by xuhui0306
[考研] 食品学硕362求调剂 +3 xuanxianxian 2026-04-01 3/150 2026-04-01 21:05 by 啊李999
[考研] 324求调剂 +10 hanamiko 2026-03-26 12/600 2026-04-01 16:59 by oooqiao
[考研] 0710生物学考研调剂 +3 李多米lee. 2026-03-27 4/200 2026-04-01 16:21 by zzchen2000
[考研] 08工科275求调剂,可跨考。 +5 AaAa7420 2026-03-31 5/250 2026-04-01 15:21 by 159357hjz
[考研] 301求调剂 +8 axibli 2026-04-01 8/400 2026-04-01 09:51 by 我的船我的海
[考研] 土木304求调剂 +5 顶级擦擦 2026-03-31 5/250 2026-04-01 08:15 by fdcxdystjk¥
[考研] 085601 329分调剂 +6 yzsa12 2026-03-31 6/300 2026-03-31 15:23 by yanflower7133
[考博] 材料专业申博 +5 杜雨婷dyt 2026-03-29 5/250 2026-03-31 11:19 by oooqiao
[考研] 一志愿中海洋320化学工程与技术学硕求调剂 +8 披星河 2026-03-30 8/400 2026-03-31 08:53 by lbsjt
[考研] 食品工程专硕一志愿中海洋309求调剂 +5 小张zxy张 2026-03-26 10/500 2026-03-31 00:29 by jp9609
[考研] 085600 286分 材料求调剂 +11 麻辣鱿鱼 2026-03-27 12/600 2026-03-30 19:33 by Wang200018
[考研] 一志愿南开大学0710生物学359求调剂 +5 兔兔兔111223314 2026-03-29 7/350 2026-03-30 18:29 by 兔兔兔111223314
[考研] 2026年华南师范大学欢迎化学,化工,生物,生医工等专业优秀学子加入! +3 llss0711 2026-03-28 6/300 2026-03-29 10:26 by llss0711
[考研] 312,生物学求调剂 +3 小译同学abc 2026-03-28 3/150 2026-03-28 15:32 by 落睿可思
信息提示
请填处理意见