Fortran - construção if-then

A if… then declaração consiste em uma expressão lógica seguida por uma ou mais declarações e terminada por um end if declaração.

Sintaxe

A sintaxe básica de um if… then declaração é -

if (logical expression) then      
   statement  
end if

No entanto, você pode dar um nome ao if bloco, então a sintaxe do nome if declaração seria, como -

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

Se a expressão lógica for avaliada como true, então o bloco de código dentro do if…thendeclaração será executada. Se a expressão lógica for avaliada comofalse, então o primeiro conjunto de código após o end if declaração será executada.

Diagrama de fluxo

Exemplo 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

Quando o código acima é compilado e executado, ele produz o seguinte resultado -

a is less than 20
value of a is 10

Exemplo 2

Este exemplo demonstra um nome if bloco -

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

Quando o código acima é compilado e executado, ele produz o seguinte resultado -

Grade A