Fortran if-else if-else 语句

if 语句可以有一个或多个可选的 else if。如果 if 条件失败，则执行紧随其后的 else if。当 else if 也失败时，执行其后续 else if 语句（如果有的话），依此类推。

可选的 else 放在末尾，当上述条件均不成立时执行。

• 所有其他语句（else if 和 else）都是可选的。
• 否则，如果可以使用一次或多次。
• else 必须始终放置在构造的末尾，并且只应出现一次。

if…else if…else 语句的语法是:

[name:]
if (logical expression 1) then
   ! block 1
else if (logical expression 2) then
   ! block 2
else if (logical expression 3) then
   ! block 3
else
   ! block 4
end if [name]

实例

program ifElseIfElseProg
implicit none
   ! local variable declaration
   integer :: a = 100
   ! check the logical condition using if statement
   if( a == 10 ) then
      ! if condition is true then print the following
      print*, "Value of a is 10"
   else if( a == 20 ) then
      ! if else if condition is true
      print*, "Value of a is 20"
   else if( a == 30 ) then
      ! if else if condition is true
      print*, "Value of a is 30"
   else
      ! if none of the conditions is true
      print*, "None of the values is matching"
   end if
   print*, "exact value of a is ", a
end program ifElseIfElseProg

结果为:

None of the values is matching
exact value of a is 100