admin 管理员组文章数量: 1184232
2024年4月27日发(作者：text提取时间中的年月日)
fortran select case语句
FORTRAN SELECT CASE 语句
FORTRAN 的 SELECT CASE 语句是一个非常强大的选择语句，用
来指定当出现某种情况时执行特定的语句，可以替代 IF-THEN-ELSE
结构和 SWITCH-CASE 结构，可以让程序编写更加灵活，更容易阅读
与维护。
SELECT CASE 语句格式如下：
SELECT CASE(表达式)
CASE 值1
语句1
CASE 值2
语句2
….
CASE DEFAULT
语句3
END SELECT
其中，表达式可以是任意有效的 FORTRAN 标量表达式，它的类
型包括整数，实数，字符串及其他数据类型。
CASE 值1 、 CASE 值2 等等是 CASE 值，它们必须和表达式的
类型匹配；当表达式的值等于某个 CASE 值时，紧接着的语句会被执
行，然后跳出该 SELECT CASE 块，开始执行 SELECT CASE 之后的语
句。
- 1 -
CASE DEFAULT 是 SELECT CASE 的可选结束语句，当表达式的值
不等于任何一个 CASE 值时，CASE DEFAULT 后的语句会被执行，然
后跳出 SELECT CASE 块。
下面是一个例子，它演示了如何使用 SELECT CASE 语句来判断
一个整数并打印出相应的消息：
C
PROGRAM SELECT_CASE
IMPLICIT NONE
INTEGER :: i
WRITE(*,*) ‘Please enter an integer number : ’
READ(*,*) i
SELECT CASE (i)
CASE (1,3,5,7,9)
WRITE(*,*) ‘The number is an odd number.’
CASE (2,4,6,8,10)
WRITE(*,*) ‘The number is an even number.’
END SELECT
END PROGRAM SELECT_CASE
上面的程序会把用户输入的数字进行比较，如果该数字是奇数，
就会打印 “The number is an odd number”；如果是偶数就会打印
“The number is an even number”。
SELECT CASE 语句是一个很强大的语句，它可以让程序更加灵活，
- 2 -
也可以更好地分解和管理复杂的判断流程，但有时候它也会使代码变
得更复杂：如果 CASE 值很多，那么 SELECT CASE 块会变得很长，
这种情况下，IFT- THEN- ELSE 结构可能更加合适。
FORTRAN中SELECT CASE的语法要求
SELECT CASE语句的基本语法格式如下：
SELECT CASE(表达式)
CASE 值1
执行语句1
CASE 值2
执行语句2
…
……
CASE DEFAULT
执行语句n
END SELECT
从上面的语法可以看出，SELECT CASE语句由表达式、多个CASE
以及CASE DEFAULT三部分组成，以END SELECT结束：
(1)表达式部分：表达式是一个标量表达式，它的类型包括整数、
实数、字符串及其他数据类型。
(2) CASE值部分：可以是任何有效的FORTRAN标量表达式，它
们必须与表达式的类型相匹配，当表达式的值等于某个CASE值时，
紧接着的语句会执行，然后跳出该SELECT CASE块，开始执行SELECT
- 3 -
CASE之后的语句。
(3) CASE DEFAULT部分：是SELECT CASE的可选结束语句，当
表达式的值不等于任何一个CASE值时，其后的语句会执行，然后跳
出SELECT CASE块。
下面就来看一些SELECT CASE的使用例子吧：
例1：
real :: student_score
…
SELECT CASE (student_score)
CASE (90, 95)
WRITE(*,*) ‘Excellent! A+!’
CASE (80, 85)
WRITE(*,*) ‘Good! A!’
CASE DEFAULT
WRITE(*,*) ‘You’d better to study harder!’
END SELECT
例2：
integer :: rank
…
- 4 -
版权声明：本文标题：fortran select case语句 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1714169103a668195.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论