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

24小时热门版块排行榜    

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

锐利的碎片

木虫 (正式写手)

star watcher
★ ★ ★
小木虫: 金币+0.5, 给个红包，谢谢回帖
lon91ong: 金币+2, 靠谱的交流 2014-12-12 14:54:32
fortran的select case里面是可以写多个值的
program main
implicit none
integer i

do i = 1, 10
   select case(i)
   case(1,2,3)
     print *,"Bingo"
   case default
     print *,"Oops"
   end select
end do

end program main
所以C的那种形式不太必要
详细的参考http://www.cs.mtu.edu/~shene/COU ... /chap03/select.html
赞一下 回复此楼
11楼2014-12-12 07:18:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lon91ong

木虫 (初入文坛)
引用回帖:
11楼: Originally posted by 锐利的碎片 at 2014-12-12 07:18:34
fortran的select case里面是可以写多个值的
program main
implicit none
integer i

do i = 1, 10
   select case(i)
   case(1,2,3)
     print *,"Bingo"
   case default
     print *,&quo ...

多个值可以交叉吗？比如case(1,2,3)...case(2,3,4)...

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

heyzol

金虫 (正式写手)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
用entry ,为程序定义多个入口

[ 发自手机版 http://muchong.com/3g ]
赞一下 回复此楼
小木虫:沙发+99，金币+99,恭喜抢个沙发，再给个红包
13楼2014-12-12 17:27:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lon91ong

木虫 (初入文坛)
引用回帖:
13楼: Originally posted by heyzol at 2014-12-12 17:27:29
用entry ,为程序定义多个入口

这个还从没接触过，给个详情页或代码

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

snoopyzhao

至尊木虫 (职业作家)
★ ★ ★ ★
小木虫: 金币+0.5, 给个红包，谢谢回帖
lon91ong: 金币+3, 方法不错😊 2014-12-15 07:02:50
引用回帖:
14楼: Originally posted by lon91ong at 2014-12-13 00:12:21
这个还从没接触过，给个详情页或代码
...

不要用entry……

两种方式，一种是
CODE:
goto (1, 2, 3, ...) state
1 continue
...
2 continue
...
...

另一种是用 select case
CODE:
select case (state)
case (1)
call state_1
call state_2
call state_3
...
case (2)
call state_2
call state_3
...
case (3)
call state_3
...
end select

contains
subroutine state_1
...
赞一下 回复此楼
15楼2014-12-14 13:51:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lon91ong 的主题更新
152/2返回列表上一页12
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 今天系统多次维护，明天很可能放榜！ +6 zju2000 2026-08-16 6/300 2026-08-17 10:01 by xter9665
[基金申请] 哪位老哥知道今年的国自然具体哪一天放榜？ +10 Ldrop2023 2026-08-13 10/500 2026-08-17 09:59 by 小豌豆_发芽
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 6GojgJvkDudM 2026-08-16 3/150 2026-08-17 09:49 by xLVPIRuSvCUe
[基金申请] 欢迎发来filecode的Mz6后的代码验证其规律 +32 医学老男孩 2026-08-13 74/3700 2026-08-16 21:05 by 医学老男孩
[论文投稿] 岩土工程学报什么时候才能终审完呐 25+3 yeager111 2026-08-10 4/200 2026-08-16 20:42 by tfang
[基金申请] 2027广东省杰青 +3 奶牛小黑 2026-08-15 6/300 2026-08-16 20:07 by 奶牛小黑
[基金申请] 有时候，自然基金真的不能太认真 （我的申报经验） +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
[基金申请] 小木虫上这么多卖论文的，真有人买论文么？感觉没必要啊 +12 Tide man 2026-08-10 13/650 2026-08-15 16:34 by 氺木
[基金申请] 关于Filecode分析方法 +10 majunge000 2026-08-10 13/650 2026-08-15 12:26 by hanpeng972
[基金申请] 是这周出结果还是下周出结果？ +4 yuleib84 2026-08-11 4/200 2026-08-14 23:05 by lfy8008
[硕博家园] 读博的好处 +4 lnee 2026-08-11 4/200 2026-08-14 10:20 by ahsoarli
[基金申请] 静等基金结果 +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打分制来了，3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
[基金申请] 2019年青年基金涵评意见，大家看看几个A，几个B? +11 Tide man 2026-08-11 11/550 2026-08-13 07:35 by 撸猫猫
[基金申请] 为什么网上很多人说本周 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
[基金申请] 确定了，国自然21号放榜 +6 布布和一二 2026-08-10 7/350 2026-08-10 19:15 by 2000zf36392
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
信息提示
关闭
请填处理意见
关闭