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