If… then construct

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

语法 (Syntax)

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语句之后的第一组代码。

流程图 (Flow Diagram)

例子1 (Example 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 (Example 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