fortran select case

Fortran语言中的select case是一种条件语句，用于根据不同的表达式值执行相应的代码块。它相当于其他编程语言中的switch语句。

select case语句由一个表达式和一系列case分支组成。当表达式的值与某个case分支的值相匹配时，与之对应的代码块将被执行。如果没有任何一种情况匹配，可以使用optional的default分支，即当表达式的值与所有case的值都不匹配时执行的代码块。

select case的语法如下：

select case (expression)
  case value1
    ...
  case value2
    ...
  case value3, value4
    ...
  case default
    ...
end select

其中，expression是一个表达式，可以是任何可计算的值。value1, value2等是表达式可能的值，可以是常量、变量或表达式。

下面是一个示例：

program select_case_example
  implicit none
  integer :: num

  print*, "请输入一个数字："
  read*, num

  select case (num)
    case (1)
      print*, "你输入了数字1"
    case (2, 3)
      print*, "你输入了数字2或3"
    case (4:6)
      print*, "你输入了数字在4到6之间"
    case default
      print*, "你输入了一个其他数字"
  end select

end program select_case_example

在这个示例中，根据用户输入的数字，程序将给出相应的回应。如果输入的数字是1，将输出"你输入了数字1"；如果输入的数字是2或3，将输出"你输入了数字2或3"；如果输入的数字是4到6之间的数，将输出"你输入了数字在4到6之间"；如果输入的数字不满足以上任何条件，将输出"你输入了一个其他数字"。

select case语句在对于多种情况的选择时非常便捷，使得程序结构更清晰和易读。