Fortran - 嵌套 If 构造

您可以在另一个if或else if语句中使用一个if或else if语句 。

语法

嵌套if语句的语法如下 −

if ( logical_expression 1) then
   !当布尔表达式 1 为 true 时执行 
   …
   
   if(logical_expression 2)then 
      ! 当布尔表达式 2 为 true 时执行
      …
   end if
end if

示例

program nestedIfProg
implicit none
   ! 局部变量声明
   integer :: a = 100, b= 200
 
   ! 使用 if 语句检查逻辑条件
   if( a == 100 ) then
  
   ! 如果条件为 true，则检查以下内容
      
   if( b == 200 ) then
  
   ! if 内部 if 条件为 true
   print*, "Value of a is 100 and b is 200" 
  
   end if
   end if
   
   print*, "exact value of a is ", a
   print*, "exact value of b is ", b
 
end program nestedIfProg

当上面的代码被编译并执行时，会产生以下结果 −

Value of a is 100 and b is 200
exact value of a is 100
exact value of b is 200

❮ fortran_decisions.htm