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