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