Fortran - Construction If-then-else

Un if… then l'instruction peut être suivie d'une instruction facultative else statement, qui s'exécute lorsque l'expression logique est fausse.

Syntaxe

>

La syntaxe de base d'un if… then… else la déclaration est -

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

Cependant, si vous donnez un nom au if block, puis la syntaxe du nom if-else déclaration serait, comme -

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

Si l'expression logique est évaluée à true, puis le bloc de code à l'intérieur du if…then sera exécutée, sinon le bloc de code à l'intérieur du else block sera exécuté.

Représentation schématique

Exemple

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

Lorsque le code ci-dessus est compilé et exécuté, il produit le résultat suivant -

a is not less than 20
value of a is 100