Fortran - if-else if-else 构造
if 语句结构可以有一个或多个可选的 else-if 结构。 当if条件失败时，执行紧随其后的else-if。 当 else-if 也失败时，将执行其后继 else-if 语句（如果有），依此类推。
可选的 else 放在最后，当上述条件都不成立时执行。
所有 else 语句（else-if 和 else）都是可选的。
else-if 可以使用一次或多次。
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
! 局部变量声明
integer :: a = 100
! 使用 if 语句检查逻辑条件
if( a == 10 ) then
! 如果条件为 true 则打印以下内容
print*, "Value of a is 10"
else if( a == 20 ) then
! if else if 条件为 true
print*, "Value of a is 20"
else if( a == 30 ) then
! if else if 条件为 true
print*, "Value of a is 30"
else
! 如果没有一个条件为 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
