Fortran - construção If-then-else

A if… then declaração pode ser seguida por um opcional else statement, que é executado quando a expressão lógica é falsa.

Sintaxe

>

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

if (logical expression) then      
   statement(s)  
else
   other_statement(s)
end if

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

[name:] if (logical expression) then      
   ! various statements           
   . . . 
   else
   !other statement(s)
   . . . 
end if [name]

Se a expressão lógica for avaliada como true, então o bloco de código dentro do if…then declaração será executada, caso contrário, o bloco de código dentro do else bloco será executado.

Diagrama de fluxo

Exemplo

program ifElseProg
implicit none
   ! local variable declaration
   integer :: a = 100
 
   ! 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"
   else
   print*, "a is not less than 20"
   end if
       
   print*, "value of a is ", a
	
end program ifElseProg

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

a is not less than 20
value of a is 100