应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 再问一段fortran代码
181/2返回列表12下一页
查看: 1549  |  回复: 17
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

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语句，
程序返回开始位置 还是结束呢？？谢谢大家
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼2013-06-15 22:40:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询
引用回帖:
9楼: Originally posted by nono2009 at 2013-06-16 14:12:23
可以。用Goto本身就说明程序写得不好。...

一般地否定goto值得商榷。
在许多情况下，尤其在lz的例子里，goto用的的确不好。但goto也有方便之处。比如迭代控制
        iteration=0
100  iteration= iteration+1
        ......
       If(error > epsilon) goto 100
这样的方式我觉得还是很直观的。当然，有别的替代。更像是风格不一样，难言好坏。早先的fortranIV，fortran66，可能还没有cycle，exit这样的控制方式，所以大量的使用goto，程序不清晰，我也确实觉得不好。主要是不容易查错。
赞一下(1人) 回复此楼
10楼2013-06-16 14:54:34
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

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的回帖

nwpusolid

铁虫 (正式写手)
引用回帖:
2楼: Originally posted by btx97 at 2013-06-16 05:23:02
return语句表示子程序运行结束。

那么为什么一定要goto语句呢，既然是结束语句，直接将goto换成returen可以吗?
赞一下 回复此楼
5楼2013-06-16 13:21:04
 已阅   回复此楼   关注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的回帖

nwpusolid

铁虫 (正式写手)
引用回帖:
3楼: Originally posted by wangfeidd at 2013-06-16 06:10:11
reture 是回到程序开始处

开始处是什么意思？是继续继续子程序还是就回到主程序？？
赞一下 回复此楼
7楼2013-06-16 13:22:03
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询

【答案】应助回帖

感谢参与，应助指数 +1
引用回帖:
6楼: Originally posted by nwpusolid at 2013-06-16 13:21:11
那么为什么一定要goto语句呢，既然是结束语句，直接将goto换成returen可以吗?...

对。这句可以直接替换为return。实际上，在subroutine最后的return是不必要的。
赞一下 回复此楼
8楼2013-06-16 13:29:55
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nono2009

超级版主 (文学泰斗)

No gains, no pains.

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

【答案】应助回帖

★ ★
nwpusolid: 金币+2 2013-06-16 18:07:25
引用回帖:
6楼: Originally posted by nwpusolid at 2013-06-16 13:21:11
那么为什么一定要goto语句呢，既然是结束语句，直接将goto换成returen可以吗?...

可以。用Goto本身就说明程序写得不好。
赞一下 回复此楼
9楼2013-06-16 14:12:23
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 nwpusolid 的主题更新
181/2返回列表12下一页
普通表情 龙 兔 虎 猫 SCI英文润色翻译-EnPapers美团队-先修改后付款
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 化学会年会改成一年开一次了？ +7 babu2015 2024-06-12 15/750 2024-06-17 20:28 by 落笔画枫
[基金申请] 太卷了 +11 shuigubio 2024-06-17 22/1100 2024-06-17 19:53 by 胖虎
[考博] 这个博士要读吗 +9 Sea Breeze 2024-06-16 17/850 2024-06-17 19:50 by zeolitess
[论文投稿] 论文已接收，但发现修改稿传的是旧版该怎么办？ +3 zsq54321 2024-06-15 6/300 2024-06-17 19:45 by wjykycg
[论文投稿] 审稿问题：为什么荧光激发波长和紫外吸收波长差的大？ 10+5 sdawege 2024-06-14 10/500 2024-06-17 18:54 by HH-探针
[找工作] 初始合伙人来啦！（生物试剂耗材标准品） +11 欢快的小科研人 2024-06-15 21/1050 2024-06-17 18:47 by 欢快的小科研人
[考博] 34岁读博士晚吗 +30 emitdne 2024-06-13 30/1500 2024-06-17 17:08 by 白米粒向日葵
[硕博家园] 硕博巨婴，也许才刚刚开始 +32 SNaiL1995 2024-06-12 84/4200 2024-06-17 16:04 by 20171214
[文学芳草园] 累并快乐着 +14 MYHLD521 2024-06-14 14/700 2024-06-17 14:51 by shl2112501
[基金申请] Nature 11日发文，中国著名学者们称造假迫不得已 +6 babu2015 2024-06-14 6/300 2024-06-16 18:37 by 喜欢和一氧化二�
[找工作] 杭电、天津科技、青农和宁波工程学院如何选？ +11 味道很好啊 2024-06-13 21/1050 2024-06-16 13:57 by wanglongzh
[基金申请] 博后基金，博管会会提前知道消息吗？ +4 yuyiang 2024-06-13 4/200 2024-06-16 11:40 by yangyuzhong4
[基金申请] 关于博后基金的bug问题 +6 lxr1991 2024-06-14 9/450 2024-06-15 21:17 by since—2010
[基金申请] BO4的YQ答辩通知发布了吗？ +6 博学笃行 2024-06-11 6/300 2024-06-15 16:04 by 悲催科研狗
[基金申请] 博后基金，以往的结果点不开，怎么回事呢？最后一次机会了，两次都没中前面。 +7 kyukitu 2024-06-14 13/650 2024-06-15 06:46 by 我是王小帅
[论文投稿] 投了一篇4区的SCI，审稿人一个拒稿，一个小修，编辑给了大修。 +9 安稳22123 2024-06-13 10/500 2024-06-14 23:45 by jurkat.1640
[论文投稿] 文章proof要求使用机构的邮箱 5+3 不可不信缘 2024-06-11 11/550 2024-06-14 07:00 by 3001160025
[基金申请] 博士后面上项目状态还是专家评审吗 10+9 Thatcheremu 2024-06-13 55/2750 2024-06-13 21:23 by 乌合麒麟
[论文投稿] 摩擦磨损论文投稿 +3 jmysan 2024-06-12 3/150 2024-06-13 08:36 by 莱茵润色
[硕博家园] 申博 +3 悦悦小小鱼 2024-06-12 3/150 2024-06-12 15:11 by chen5805
信息提示
关闭
请填处理意见
关闭