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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请教一下这样的程序逻辑分支用Fortran怎么写更高效呢？
151/2返回列表12下一页
查看: 1806  |  回复: 14
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

lon91ong

木虫 (初入文坛)

[交流] 请教一下这样的程序逻辑分支用Fortran怎么写更高效呢？

在C语言中都是用select case做下面的分支的，但是fortran中的select case跟C的似乎有所不同，分支图如下：

情况1--->流程入口1
                      |
                      ↓
情况2--->流程入口2
                      |
                      ↓
情况3--->流程入口3
                      |
                      ↓
default--->流程入口4
                      |
                      ↓
                流程结尾

具体而言，fortran中的select case的每一条case都类似于C中的case... break; 而无 break的情况不知该怎么写更高效一些
请教大侠
回复此楼

» 收录本帖的淘帖专辑推荐

计算机语言

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
[img]http://latex.codecogs.com/gif.latex?$\begin{eqnarray*} e^{\mathrm{i}x}=\cos x+\mathrm{i}\sin x\: \end{eqnarray*}$[/img]
1楼 2014-12-09 22:49:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)
用if试试吧
回复此楼
2楼2014-12-10 04:50:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★ ★
小木虫: 金币+0.5, 给个红包，谢谢回帖
lon91ong: 金币+1, 理解正确 2014-12-10 10:39:56
没有看懂你的流程图，你的意思是从某个入口进入后要接着运行完后面所有的情况？那就 if 不是很好吗？嵌套在一起就行了啊……
赞一下 回复此楼
3楼2014-12-10 07:24:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

匿名

本帖仅楼主可见
4楼2014-12-10 08:08:21
已阅   申请程序强帖   回复此楼   编辑   查看我的主页

kukuwh
祝福
5楼2014-12-10 08:25:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lon91ong

木虫 (初入文坛)
引用回帖:
3楼: Originally posted by snoopyzhao at 2014-12-10 07:24:55
没有看懂你的流程图，你的意思是从某个入口进入后要接着运行完后面所有的情况？那就 if 不是很好吗？嵌套在一起就行了啊……

你的理解没错，但是套嵌if的方式感觉很麻烦，尤其是分支多了以后
在c里面只需要一层select case就能解决的问题，希望用fortran也能简单点，起码不要像现在这么麻烦

[ 发自小木虫客户端 ]
赞一下 回复此楼
[img]http://latex.codecogs.com/gif.latex?$\begin{eqnarray*} e^{\mathrm{i}x}=\cos x+\mathrm{i}\sin x\: \end{eqnarray*}$[/img]
6楼2014-12-10 10:39:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
引用回帖:
6楼: Originally posted by lon91ong at 2014-12-10 10:39:36
你的理解没错，但是套嵌if的方式感觉很麻烦，尤其是分支多了以后
在c里面只需要一层select case就能解决的问题，希望用fortran也能简单点，起码不要像现在这么麻烦
...

我没有学过C，所以不知道C中的 select case 啥样
你要是不怕编译器警告，可以用 if (...) goto (....)
赞一下 回复此楼
7楼2014-12-10 14:30:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

weiwei43

至尊木虫 (正式写手)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
if(条件1)then
  入口1
elseif(条件2)then
  入口2
elseif(条件3)then
  入口3
......
else
  入口n
endif


这样不可以吗?
赞一下 回复此楼
8楼2014-12-10 22:17:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lon91ong

木虫 (初入文坛)
引用回帖:
8楼: Originally posted by weiwei43 at 2014-12-10 22:17:10
if(条件1)then
  入口1
elseif(条件2)then
  入口2
elseif(条件3)then
  入口3
......
else
  入口n
endif


这样不可以吗?

这样入口1进来的不会执行入口2之后的流程

[ 发自小木虫客户端 ]
赞一下 回复此楼
[img]http://latex.codecogs.com/gif.latex?$\begin{eqnarray*} e^{\mathrm{i}x}=\cos x+\mathrm{i}\sin x\: \end{eqnarray*}$[/img]
9楼2014-12-11 07:02:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询
★ ★ ★
小木虫: 金币+0.5, 给个红包，谢谢回帖
lon91ong: 金币+2, 逻辑清晰 2014-12-11 15:35:10
要看 情况1， 情况2 ， 情况3 之间的关系。如果排斥，就用case 或 if else block；上面已有例子 case 和 if else block的区别是case 是完全排他的，而if else block 是有顺序排他的， 即 elseif(情况2) then 实际是 if(情况2-情况1)。 如果不相互排斥且有交集，比如情况1做完后，满足情况2 还可以接着处理，可以用排列的单独if block。可是如果是这样，就不明白 default 的含义了。
赞一下 回复此楼
10楼2014-12-11 09:27:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lon91ong 的主题更新
151/2返回列表12下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 今天系统多次维护，明天很可能放榜！ +5 zju2000 2026-08-16 5/250 2026-08-16 23:23 by Haru815
[基金申请] 欢迎发来filecode的Mz6后的代码验证其规律 +32 医学老男孩 2026-08-13 74/3700 2026-08-16 21:05 by 医学老男孩
[基金申请] 时间戳又变了8-15 +13 archvillain 2026-08-15 25/1250 2026-08-16 20:13 by zhaosm1982
[基金申请] 快农历七夕节了，轻松一下，男人悄悄话，女施主请不要进来。 +3 Tide man 2026-08-14 3/150 2026-08-16 17:47 by jurkat.1640
[基金申请] 哪位老哥知道今年的国自然具体哪一天放榜？ +9 Ldrop2023 2026-08-13 9/450 2026-08-16 13:24 by wukun_007
[基金申请] 我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人 +11 家与远方 2026-08-10 16/800 2026-08-16 10:28 by ray43
[基金申请] 有时候，自然基金真的不能太认真 （我的申报经验） +10 majunge000 2026-08-11 12/600 2026-08-16 08:18 by xli1984
[精细化工] 招聘 金属平磨液，抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
[基金申请] filecode=后面第一个是大写字母 +6 wangze12014 2026-08-14 7/350 2026-08-15 20:12 by gltch
[基金申请] 各位道友，我要去昆明玩几天，回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
[硕博家园] 读博的好处 +4 lnee 2026-08-11 4/200 2026-08-14 10:20 by ahsoarli
[基金申请] filecode +15 documentary 2026-08-10 17/850 2026-08-14 10:08 by kissu88
[基金申请] 静等基金结果 +8 gjjjzhong 2026-08-10 21/1050 2026-08-13 17:56 by 且听虎啸
[基金申请] 重要来源：本周末出结果 +10 瞬息宇宙 2026-08-12 10/500 2026-08-13 15:46 by likettle
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] 分享一下我之前已中青C的计划书的filecode +4 布布和一二 2026-08-11 5/250 2026-08-13 12:56 by cratir
[基金申请] 结合人工智能，周易传统文化，filecode打分制来了，3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
[基金申请] 为什么网上很多人说本周 12号出结果 +6 瞬息宇宙 2026-08-10 7/350 2026-08-11 19:25 by Tide man
[基金申请] 什么时候出结果，有咨询渠道？？？ +3 Tide man 2026-08-11 3/150 2026-08-11 17:54 by kudofaye
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
信息提示
关闭
请填处理意见
关闭