Fortran - construction si-alors

Un if… then instruction se compose d'une expression logique suivie d'une ou plusieurs instructions et terminée par un end if déclaration.

Syntaxe

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

if (logical expression) then      
   statement  
end if

Cependant, vous pouvez donner un nom au if block, puis la syntaxe du nom if déclaration serait, comme -

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

Si l'expression logique est évaluée à true, puis le bloc de code à l'intérieur du if…thenl'instruction sera exécutée. Si l'expression logique est évaluée àfalse, puis le premier jeu de code après le end if l'instruction sera exécutée.

Représentation schématique

Exemple 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

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

a is less than 20
value of a is 10

Exemple 2

Cet exemple montre un nommé if bloquer -

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