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，那么第一个代码块之后的 if 语句会被执行。

流程图：

示例 1

program ifProg
implicit none
   ! local variable declaration
   integer :: a = 10
 
   ! check the logical condition using if statement
   if (a < 20 ) then
   
   !if condition is true then print the following 
   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
   ! assign marks   
   marks = 90.4
   ! use an if statement to give grade
  
   gr: if (marks > 90.0) then  
   print *, " Grade A"
   end if gr
end program markGradeA  

当上述代码被编译和执行时，它产生了以下结果：

Grade A