24小时热门版块排行榜    

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

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]
已阅   回复此楼   关注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 个回答

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

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的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 289 分105500药学专硕求调剂(找B区学校) +3 白云123456789 2026-04-13 3/150 2026-04-15 12:42 by 西北望—风沙
[考研] 307中医考研调剂 +3 于以采蘩 2026-04-14 3/150 2026-04-15 11:16 by xtt..
[考研] 通信工程求调剂!!! +4 zlb770521 2026-04-14 4/200 2026-04-14 18:19 by lbsjt
[考研] 材料相关专业344求调剂双非工科学校或课题组 +21 hualkop 2026-04-12 22/1100 2026-04-14 17:44 by lhj2009
[考研] 各位老师好,求调剂,本科211,一志愿天津大学生物与医药学硕,差两名录取。 +11 路六六jjj 2026-04-13 11/550 2026-04-14 16:01 by zs92450
[考研] 调剂 +12 月@163.com 2026-04-11 12/600 2026-04-14 15:37 by zs92450
[考研] 求调剂 +16 雪逢冬 2026-04-10 16/800 2026-04-14 14:27 by 逆水乘风
[考研] 农学0904 312求调剂 +4 Say Never 2026-04-11 4/200 2026-04-14 09:10 by zs92450
[考研] 300分求调剂 (085501机械专硕,本科扬大) +9 xu@841019 2026-04-11 10/500 2026-04-14 08:48 by 木木mumu~
[考研] 本科南方医科大学 一志愿985 药学学硕284分 求调剂 +5 弱水听文 2026-04-09 5/250 2026-04-12 13:16 by shengxi123
[考研] 296求调剂 +14 汪!?! 2026-04-10 16/800 2026-04-12 10:48 by zhouyuwinner
[考研] 085410 273求调剂 +10 X1999 2026-04-09 10/500 2026-04-12 09:24 by 逆水乘风
[考研] 一志愿厦大0856,306求调剂 +15 Bblinging 2026-04-11 15/750 2026-04-11 22:53 by 314126402
[考研] 调剂求助 +6 果然有我 2026-04-11 7/350 2026-04-11 16:22 by 明月此时有
[考研] 求调剂 +3 胃痉挛累了 2026-04-11 5/250 2026-04-11 14:13 by luhong1990
[考研] 调剂 +19 小张ZA 2026-04-10 20/1000 2026-04-10 22:08 by 猪会飞
[考研] 一志愿矿大,材料工程专硕314分,0856可调都可以 +15 无懈可击的巨人 2026-04-09 15/750 2026-04-10 18:10 by hmn_wj
[考研] 一志愿中南大学物理学,英一66,求调剂 +4 长烟旖旎 2026-04-08 5/250 2026-04-10 10:31 by 颖果儿
[考研] 070300化学 求调剂 +13 73372112 2026-04-08 13/650 2026-04-09 20:22 by maddjdld
[考研] 337求调剂 +4 Gky09300550, 2026-04-09 4/200 2026-04-09 17:18 by 帕尔马拉特
信息提示
请填处理意见