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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请教一下这样的程序逻辑分支用Fortran怎么写更高效呢？
51/1返回列表
查看: 1436  |  回复: 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的回帖

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

snoopyzhao

至尊木虫 (职业作家)
★ ★
小木虫: 金币+0.5, 给个红包，谢谢回帖
lon91ong: 金币+1, 理解正确 2014-12-10 10:39:56
没有看懂你的流程图，你的意思是从某个入口进入后要接着运行完后面所有的情况？那就 if 不是很好吗？嵌套在一起就行了啊……
赞一下 回复此楼
3楼2014-12-10 07:24:55
已阅   回复此楼   关注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的回帖
查看全部 15 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿华中农业071010，320求调剂 +13 困困困困坤坤 2026-04-14 15/750 2026-04-16 14:29 by zhouxiaoyu
[考研] 恳请有学校收留 +6 柯淮然 2026-04-12 6/300 2026-04-16 07:23 by 学员JpLReM
[考研] 297，工科调剂? +10 河南农业大学-能 2026-04-14 10/500 2026-04-15 21:50 by noqvsozv
[考研] 22专硕求调剂 +9 haoyun上岸 2026-04-11 11/550 2026-04-15 14:47 by elainzaizai
[考研] 0854调剂 +13 长弓傲 2026-04-12 16/800 2026-04-15 13:45 by fenglj492
[考研] 药学305求调剂 +7 玛卡巴卡boom 2026-04-11 7/350 2026-04-15 13:21 by 西北望—风沙
[考研] 人工智能320调剂08工类还有机会吗 +18 振—TZ 2026-04-10 19/950 2026-04-14 10:34 by screening
[考研] 一志愿浙大生物325分求调剂 +9 zysheng 2026-04-12 9/450 2026-04-12 22:31 by yuyin1233
[考研] 344 材料专业 求调剂211 无地域要求 +8 hualkop 2026-04-11 8/400 2026-04-12 22:24 by fqwang
[考研] 085410 273求调剂 +10 X1999 2026-04-09 10/500 2026-04-12 09:24 by 逆水乘风
[考研] 求调剂，一志愿材料科学与工程985，365分， +8 材化李可 2026-04-11 10/500 2026-04-12 08:42 by 852137818
[考研] 求调剂 +11 翩翩一书生 2026-04-09 11/550 2026-04-11 19:57 by 逆水乘风
[考研] 359求调剂 +5 胃痉挛累了 2026-04-11 5/250 2026-04-11 19:55 by lbsjt
[考研] 283求调剂 086004考英二数二 +17 那个噜子 2026-04-10 18/900 2026-04-11 16:27 by 明月此时有
[考研] 0859，337求调剂 +4 研s. 2026-04-10 4/200 2026-04-11 11:34 by caotw2020
[考研] 346，工科0854求调剂，专硕 +7 moser233 2026-04-10 8/400 2026-04-11 08:52 by 猪会飞
[考研] 342电子信息专硕求调剂 +9 你让我怎么荔枝 2026-04-10 10/500 2026-04-11 08:33 by zhq0425
[考研] 化学工程与技术324调剂 +23 孙常华 2026-04-09 25/1250 2026-04-11 00:07 by 骑牛渡寒江
[考研] 263能源动力专硕求调剂 +4 加大号饭盒袋 2026-04-10 4/200 2026-04-10 20:52 by gong120082
[考研] 计算机类求调剂，22408-274分 +7 上岸de小虫 2026-04-09 8/400 2026-04-10 19:56 by fxue1114
信息提示
关闭
请填处理意见
关闭