24小时热门版块排行榜    

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

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

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

nono2009

超级版主 (文学泰斗)

No gains, no pains.

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

引用回帖:
10楼: Originally posted by pippi6 at 2013-06-16 14:54:34
一般地否定goto值得商榷。
在许多情况下,尤其在lz的例子里,goto用的的确不好。但goto也有方便之处。比如迭代控制
        iteration=0
100  iteration= iteration+1
        ......
       If(error > e ...

我同意你的观点,这也是GOTO今天仍然存在的原因。但你举的例子不算很合适,一般的迭代控制可以也应该避免使用goto。
11楼2013-06-16 15:00:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nono2009

超级版主 (文学泰斗)

No gains, no pains.

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

引用回帖:
13楼: Originally posted by nwpusolid at 2013-06-16 18:16:52
把源代码给您看看,这里goto语句用的真的不好吗?
        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,LAYE ...

首要是程序运行正确,至于程序写的是否漂亮是其次的。
14楼2013-06-16 19:15:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nono2009

超级版主 (文学泰斗)

No gains, no pains.

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

引用回帖:
15楼: Originally posted by nwpusolid at 2013-06-16 21:51:12
你好,想像您提问一个问题,我能否再subroutine子程序利用文件操作,(因为这个子程序是被主程序多次调用的)每调用一次子程序将子程序的一些重要变量就写入到文件,我只知道一些简单的write函数和文件打开的open函 ...

subroutine子程序中可以操作文件。我已经10多年没有自己写程序了,帮不了你。
16楼2013-06-17 06:27:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 nwpusolid 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 最新消息:2024国自然下载文件名变了 +15 dream200606 2024-06-16 28/1400 2024-06-17 19:04 by 6543yes
[硕博家园] 硕博巨婴,也许才刚刚开始 +32 SNaiL1995 2024-06-12 84/4200 2024-06-17 16:04 by 20171214
[基金申请] 2024国社科通讯评审 +11 qsd10086 2024-06-13 21/1050 2024-06-17 15:49 by 张郎才进
[有机交流] 苯酚和炔醇反应,mitsunobu反应 5+3 TONGMEIMEI 2024-06-12 9/450 2024-06-17 15:00 by dschong
[文学芳草园] 累并快乐着 +14 MYHLD521 2024-06-14 14/700 2024-06-17 14:51 by shl2112501
[催化] 镍负载氧化铝的保存问题 8+3 lwn0130 2024-06-15 4/200 2024-06-17 10:48 by adaihao
[硕博家园] 博士毕业高校和就业的相关问题 +6 SCITOPPP 2024-06-14 10/500 2024-06-17 10:08 by SCITOPPP
[博后之家] 山东大学(青岛)“天然药物生物智造”课题组 招聘“博士后”(年薪20.4-55.6万元) +5 第二种态度 2024-06-11 11/550 2024-06-17 10:08 by 小懂事k
[找工作] 应届大龄土博教职选择,石河子大学和广西大学 10+4 茅山老道士 2024-06-10 34/1700 2024-06-16 22:05 by yugege2009
[找工作] 杭电、天津科技、青农和宁波工程学院如何选? +11 味道很好啊 2024-06-13 21/1050 2024-06-16 13:57 by wanglongzh
[论文投稿] 二审返修送审10天了,原来一审的3个审稿人只有2个接受了审稿,会邀请新审稿人么? 50+3 huanpo116 2024-06-15 5/250 2024-06-16 10:27 by bobvan
[基金申请] BO4的YQ答辩通知发布了吗? +6 博学笃行 2024-06-11 6/300 2024-06-15 16:04 by 悲催科研狗
[基金申请] 为什么我的博后基金还在流动站审核中?不会是学院给我卡了吧? +14 王凯12 2024-06-13 26/1300 2024-06-15 15:22 by 好人与坏人
[基金申请] 工材E口JQ有消息了吗 +4 babyduck 2024-06-11 4/200 2024-06-14 17:23 by firepick
[硕博家园] 关于硕博连读的一些疑问? +4 Lwenter 2024-06-14 4/200 2024-06-14 14:32 by ou0551
[有机交流] ππ堆积会发生在有机溶剂中吗 5+3 zibuyu0420 2024-06-13 4/200 2024-06-14 14:17 by 小肉干
[论文投稿] ACS Nano投稿后分配到副编辑手里12天了,能确定送审了吗? +5 潇洒怡惜 2024-06-12 10/500 2024-06-14 09:56 by 潇洒怡惜
[论文投稿] 最近写了一篇控制优化领域的文章,可以投哪里啊?有没有水一些的期刊推荐 +7 香瓜木香 2024-06-12 13/650 2024-06-14 07:05 by 香瓜木香
[论文投稿] 文章proof要求使用机构的邮箱 5+3 不可不信缘 2024-06-11 11/550 2024-06-14 07:00 by 3001160025
[有机交流] 原料反应完了,怎么知道是产物还是中间体 +6 小胡在努力 2024-06-11 8/400 2024-06-13 13:33 by 091602
信息提示
请填处理意见