Fortran - if-then 构造

if…then 语句由一个逻辑表达式组成，后跟一个或多个语句，并以 end if 语句终止。

语法

if…then 语句的基本语法是 −

if (logical expression) then      
   statement  
end if

但是，您可以为 if 块命名，那么命名的 if 语句的语法将类似于 −

[name:] if (logical expression) then      
   ! various statements           
   . . .  
end if [name]

如果逻辑表达式的计算结果为true，，则将执行if…then语句内的代码块。 如果逻辑表达式的计算结果为false，则将执行end if语句之后的第一组代码。

流程图

示例 1

program ifProg
implicit none
   ! 局部变量声明
   integer :: a = 10
 
   ! 使用 if 语句检查逻辑条件
   if (a < 20 ) then
   
   ! if 条件为 true 则打印以下内容
   print*, "a is less than 20"
   end if
       
   print*, "value of a is ", a
 end program ifProg

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

a is less than 20
value of a is 10

示例 2

此示例演示了一个命名的 if 块 −

program markGradeA  
implicit none  
   real :: marks
   ! 指定标记
   marks = 90.4
   ! 使用 if 语句给出成绩
  
   gr: if (marks > 90.0) then  
   print *, " Grade A"
   end if gr
end program markGradeA   

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

Grade A

❮ fortran_decisions.htm