Fortran - Construction if-else if-else

Un if La construction d'instruction peut avoir un ou plusieurs else-ifconstructions. Quand leif la condition échoue, le suivi immédiatement else-ifest exécuté. Quand leelse-if échoue également, son successeur else-if instruction (le cas échéant) est exécutée, et ainsi de suite.

Le else optionnel est placé à la fin et il est exécuté lorsqu'aucune des conditions ci-dessus n'est vraie.

• Toutes les instructions else (else-if et else) sont facultatives.

• else-if peut être utilisé une ou plusieurs fois.

• else doit toujours être placé à la fin de la construction et ne doit apparaître qu'une seule fois.

Syntaxe

La syntaxe d'un if...else if...else la déclaration est -

[name:] 
if (logical expression 1) then 
   ! block 1   
else if (logical expression 2) then       
   ! block 2   
else if (logical expression 3) then       
   ! block 3  
else       
   ! block 4   
end if [name]

Exemple

program ifElseIfElseProg
implicit none

   ! local variable declaration
   integer :: a = 100
 
   ! check the logical condition using if statement
   if( a == 10 ) then
  
      ! if condition is true then print the following 
      print*, "Value of a is 10" 
   
   else if( a == 20 ) then
  
      ! if else if condition is true 
      print*, "Value of a is 20" 
  
   else if( a == 30 ) then
   
      ! if else if condition is true  
      print*, "Value of a is 30" 
  
   else
   
      ! if none of the conditions is true 
      print*, "None of the values is matching" 
      
   end if
   
   print*, "exact value of a is ", a
 
end program ifElseIfElseProg

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

None of the values is matching
exact value of a is 100