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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请教一下这样的程序逻辑分支用Fortran怎么写更高效呢？
152/2返回列表上一页12
查看: 1426  |  回复: 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
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 344 材料专业 求调剂211 无地域要求 +6 hualkop 2026-04-11 6/300 2026-04-12 15:00 by seattle40
[考研] 295分求调剂 +12 ?要上岸? 2026-04-10 12/600 2026-04-12 12:49 by 学zh
[考研] 0860004 求调剂 309分 +9 Yin DY 2026-04-08 9/450 2026-04-11 22:55 by dongdian1
[考研] 070300化学279求调剂 +19 哈哈哈^_^ 2026-04-08 20/1000 2026-04-11 20:43 by stoner78
[考研] 0854调剂 +5 音像店听花鼓戏 2026-04-10 5/250 2026-04-11 10:49 by qingpingzhu
[考研] 293求调剂 +6 勇远库爱314 2026-04-08 6/300 2026-04-11 10:08 by zhq0425
[考研] 080100力学316求调剂 +8 L_Hairui 2026-04-07 8/400 2026-04-11 10:00 by zhq0425
[考研] 085800 能源动力求调剂 +6 阿biu啊啊啊啊啊 2026-04-10 6/300 2026-04-10 15:03 by hemengdong
[考研] 求调剂 材料与工程 324分 专硕 +19 翩翩一书生 2026-04-10 21/1050 2026-04-10 11:41 by wp06
[考研] 调剂申请086000一志愿西北农林科技大学生物与医药320分-本科齐鲁工业大学 +3 美美女士 2026-04-09 3/150 2026-04-10 10:31 by liuhuiying09
[考研] 一志愿中科大070300化学，314分求调剂 +12 wakeluofu 2026-04-09 12/600 2026-04-10 09:57 by liuhuiying09
[考研] 297求调剂 +27 GENJIOW 2026-04-07 30/1500 2026-04-09 23:20 by wolf97
[考研] 初试分332，一志愿报考西北工业大学， +11 故人?? 2026-04-09 11/550 2026-04-09 21:54 by JineShine
[考研] 本科211 工科085400 280分求调剂 可跨专业 +3 LZH（等待调剂中 2026-04-09 3/150 2026-04-09 21:29 by wutongshun
[考研] 083200 初试305分 求调剂 暂不考虑跨专业 +15 Claireyyyy 2026-04-09 15/750 2026-04-09 16:11 by zhuimr
[考研] 生物学学硕，初试351分，求调剂 +4 …～、王…～ 2026-04-08 5/250 2026-04-08 21:49 by limeifeng
[考研] 机械工程313分找工科调剂 +3 双一流本科机械 2026-04-08 3/150 2026-04-08 20:41 by 土木硕士招生
[考研] 344求调剂 +11 魏子per 2026-04-07 11/550 2026-04-07 23:01 by JourneyLucky
[考研] 071000生物学，一志愿深圳大学296分，求调剂 +12 TIckLw 2026-04-06 13/650 2026-04-07 20:34 by lijunpoly
[考研] 调剂 +4 mcbbc 2026-04-06 5/250 2026-04-07 12:33 by upczlm1989
信息提示
关闭
请填处理意见
关闭