Fortran: costrutto If-then-else

Un if… then l'istruzione può essere seguita da un opzionale else statement, che viene eseguito quando l'espressione logica è falsa.

Sintassi

>

La sintassi di base di un file if… then… else l'affermazione è -

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

Tuttavia, se dai un nome al file if block, quindi la sintassi del file named if-else dichiarazione sarebbe, come -

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

Se l'espressione logica restituisce true, quindi il blocco di codice all'interno del file if…then verrà eseguita l'istruzione, altrimenti il ​​blocco di codice all'interno del file else blocco verrà eseguito.

Diagramma di flusso

Esempio

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 il codice precedente viene compilato ed eseguito, produce il seguente risultato:

a is not less than 20
value of a is 100