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
   ! 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