24小时热门版块排行榜    

查看: 1541  |  回复: 17
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

nwpusolid

铁虫 (正式写手)

[求助] 再问一段fortran代码

关于一段fortran的子例程子程序
SUBROUTINE UCP(DECRA,DESWA,STATEV,SERD,EC0,ESW0,P,QTILD,
        1  TEMP,DTEMP,PREDEF,DPRED,TIME,DTIME,CMNAME,LEXIMP,LEND,
        2  COORDS,NSTATV,NOEL,NPT,LAYER,KSPT,KSTEP,KINC)
.......
.......
.......
           GOTO 100
............
.........
100        RETURN
        END
请问大家,这段程序中,goto语句 转到 标号100位置后,执行 returan语句,
程序返回开始位置 还是结束呢??谢谢大家
回复此楼

» 猜你喜欢

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

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

nwpusolid

铁虫 (正式写手)

引用回帖:
4楼: Originally posted by nono2009 at 2013-06-16 07:45:57
RETURN表示结束这个子程序,回到调用这个子程序的上一级程序。

那么为什么一定要goto语句呢,既然是结束语句,直接将goto换成returen可以吗?
6楼2013-06-16 13:21:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 18 个回答

btx97

金虫 (小有名气)

【答案】应助回帖

★ ★ ★
感谢参与,应助指数 +1
nwpusolid: 金币+3 2013-06-16 18:08:08
return语句表示子程序运行结束。
2楼2013-06-16 05:23:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wangfeidd

铁虫 (初入文坛)

感谢参与,应助指数 +1
nono2009: 应助指数-1, 无效应助 2013-06-16 07:46:21
reture 是回到程序开始处
3楼2013-06-16 06:10:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nono2009

超级版主 (文学泰斗)

No gains, no pains.

优秀区长优秀区长优秀区长优秀区长优秀版主

【答案】应助回帖


感谢参与,应助指数 +1
nwpusolid: 金币+1 2013-06-16 18:08:12
RETURN表示结束这个子程序,回到调用这个子程序的上一级程序。
4楼2013-06-16 07:45:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 要不要读博 +8 王乔木 2024-05-24 8/400 2024-05-26 23:48 by 余东东锵锵
[硕博家园] 周日 +3 1加油哦棒 2024-05-26 3/150 2024-05-26 23:45 by 余东东锵锵
[基金申请] 感觉自然基金限制通过比例就是有点扯,学学B口,化学学部,不限制比例。 +6 wsjing 2024-05-26 10/500 2024-05-26 21:54 by 万津啊啊
[基金申请] 转发,”朋友说招呼都定点打到他那里了" +24 babu2015 2024-05-23 29/1450 2024-05-26 21:13 by gy116024
[硕博家园] 2024博士招生 +3 big 混子 2024-05-26 3/150 2024-05-26 20:47 by 宁多缺毋滥
[硕博家园] 博士复试,申请成绩复核,有机会翻盘吗? +22 长海二声笑 2024-05-21 29/1450 2024-05-26 14:48 by 鱼翔浅底1
[基金申请] 科研之友阅读量近一周增加了200多。 +11 hdzw9071 2024-05-24 12/600 2024-05-26 09:38 by wanghuawei
[考博] 25年博士申请 +5 zjc晨 2024-05-24 8/400 2024-05-25 22:45 by zjc晨
[论文投稿] 真是奇怪的编辑部? +5 jjdg 2024-05-23 5/250 2024-05-25 21:57 by cqu_zzh
[教师之家] 经常觉得挺累的 +13 zylfront 2024-05-22 19/950 2024-05-25 21:08 by hjc404
[基金申请] 化学口面上 +7 乐丰松庆 2024-05-23 16/800 2024-05-25 16:31 by LNP@mRNA
[基金申请] 函评什么时候结束 +8 阿呆不呆 2024-05-23 9/450 2024-05-24 22:37 by xyq916
[基金申请] 审不上青基又非升即走的青椒 和 牢里踩缝纫机的犯人哪个活的更舒服一点? +19 非非飞远了 2024-05-20 22/1100 2024-05-23 21:09 by chengmy19
[基金申请] 基金评审 +5 阿呆不呆 2024-05-20 5/250 2024-05-23 20:57 by 3001160025
[基金申请] 听说面青地E09已经送了么? +6 叉烧吃叉烧 2024-05-21 9/450 2024-05-23 12:24 by 叉烧吃叉烧
[论文投稿] 因为邮箱故障,没有收到论文接受后进入生产的邮件 5+3 VCOISTNT 2024-05-22 5/250 2024-05-23 10:03 by bobvan
[论文投稿] 关于通讯作者 5+4 irikiar 2024-05-21 4/200 2024-05-23 09:43 by moyoushang
[教师之家] 有没有在职教师同时做博后的? +6 克雷斯 2024-05-20 8/400 2024-05-23 08:08 by 克雷斯
[考博] 化工三篇sci只想有书读,急寻博导! +3 8139173 2024-05-21 5/250 2024-05-22 10:56 by 安塔瓦拉多
[论文投稿] 论文一审意见回来后发现实验程序编错了论证分析部分可能要大改 5+4 hshhenb 2024-05-20 5/250 2024-05-21 11:03 by bnullh
信息提示
请填处理意见