24小时热门版块排行榜    

查看: 867  |  回复: 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的回帖

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的回帖
查看全部 5 个回答

snoopyzhao

至尊木虫 (职业作家)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+1):谢谢参与应助! 2010-12-07 16:23:07
你改一下子程序 IA 的定义,使之是一个数组或向量,然后把符合条件的值存在里面,最后再一起传回去就是了……
2楼2010-12-07 07:11:33
已阅   回复此楼   关注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的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[文学芳草园] 梦想 +5 myrtle 2026-08-26 8/400 2026-09-02 02:42 by Leogzhya
[基金申请] 投票:  有多少人是今天查系统知道结果的? +17 爱看书的可乐 2026-08-26 19/950 2026-09-02 00:19 by xiangy672
[基金申请] 国社科又开始会评了,不知道这次命运如何 +7 雨打竹帘 2026-08-30 11/550 2026-08-31 23:16 by hittle2008
[基金申请] 基金未中,这种答复是模板吗? +6 zhaosm1982 2026-08-27 7/350 2026-08-31 21:18 by qdxxmc
[基金申请] 面上意见出来了 +12 黄鸟于飞Chao 2026-08-29 23/1150 2026-08-31 18:57 by 黄鸟于飞Chao
[基金申请] 能否申诉? +7 echo8914667 2026-08-30 8/400 2026-08-31 17:00 by yihongxu
[基金申请] 基金不中,共勉 +12 eulota 2026-08-26 12/600 2026-08-31 08:42 by ZJTJZ
[基金申请] 有没有仍没收到信息的 +7 德尚中行 2026-08-27 8/400 2026-08-30 20:52 by purplejack
[考博] 找导师 +6 yuanjiabao 2026-08-29 7/350 2026-08-30 14:40 by 生科新手
[基金申请] 我就是申请一个面上项目而已,这评审意见是按照杰青的条件评的吧? +6 gouxfjh 2026-08-28 11/550 2026-08-30 07:57 by gouxfjh
[基金申请] 国自然评审意见 +13 wangmingqi 2026-08-28 19/950 2026-08-29 10:22 by Poppy1104
[基金申请] 2026年叶企孙基金 +4 bud_bud 2026-08-27 7/350 2026-08-29 07:23 by foolishmani
[基金申请] 系统查不到 +11 董八千 2026-08-26 11/550 2026-08-28 18:06 by Leogzhya
[基金申请] 基金系统什么内容也没有 30+4 winsaint 2026-08-27 9/450 2026-08-28 11:06 by maolC
[基金申请] 怎么查啊 +6 huang1991js 2026-08-26 6/300 2026-08-28 08:42 by winsaint
[基金申请] 看板上这么多中的,有点像50人群里49个人都是骗子的那种感觉…… +5 a089 2026-08-26 6/300 2026-08-27 14:05 by jonewore
[基金申请] 为什么 国际(地区)合作与交流项目 没有放榜? 10+3 majunge000 2026-08-26 11/550 2026-08-27 08:42 by 北京莱茵编辑
[基金申请] 我不理解! +15 Edward_pc 2026-08-26 23/1150 2026-08-26 20:34 by zzuzxg
[基金申请] 国际合作可查了,中了面上 (EPI+1)(金币+50) +18 Ldrop2023 2026-08-26 18/900 2026-08-26 11:15 by cmrandy
[基金申请] 牛来!米来!面来! +8 beefly 2026-08-26 8/400 2026-08-26 08:37 by xuzhipiao
信息提示
请填处理意见