Fortran - construir si-entonces

Un if… then declaración consiste en una expresión lógica seguida de una o más declaraciones y terminada por una end if declaración.

Sintaxis

La sintaxis básica de un if… then declaración es -

if (logical expression) then      
   statement  
end if

Sin embargo, puede dar un nombre al if bloque, luego la sintaxis del nombre if declaración sería, como -

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

Si la expresión lógica se evalúa como true, luego el bloque de código dentro del if…thense ejecutará la sentencia. Si la expresión lógica se evalúa comofalse, luego el primer conjunto de código después del end if se ejecutará la sentencia.

Diagrama de flujo

Ejemplo 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

Cuando el código anterior se compila y ejecuta, produce el siguiente resultado:

a is less than 20
value of a is 10

Ejemplo 2

Este ejemplo demuestra un nombre if bloque -

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

Cuando el código anterior se compila y ejecuta, produce el siguiente resultado:

Grade A