Fortran - Opérateurs relationnels

Le tableau suivant présente tous les opérateurs relationnels supportés par Fortran. Supposons une variableA détient 10 et variable B détient 20, alors -

Opérateur	Équivalent	La description	Exemple
==	.eq.	Vérifie si les valeurs de deux opérandes sont égales ou non, si oui, la condition devient vraie.	(A == B) n'est pas vrai.
/ =	.ne.	Vérifie si les valeurs de deux opérandes sont égales ou non, si les valeurs ne sont pas égales, la condition devient vraie.	(A! = B) est vrai.
>	.gt.	Vérifie si la valeur de l'opérande gauche est supérieure à la valeur de l'opérande droit, si oui, la condition devient vraie.	(A> B) n'est pas vrai.
<	.lt.	Vérifie si la valeur de l'opérande gauche est inférieure à la valeur de l'opérande droit, si oui, la condition devient vraie.	(A <B) est vrai.
> =	.ge.	Vérifie si la valeur de l'opérande gauche est supérieure ou égale à la valeur de l'opérande droit, si oui, la condition devient vraie.	(A> = B) n'est pas vrai.
<=	.le.	Vérifie si la valeur de l'opérande gauche est inférieure ou égale à la valeur de l'opérande droit, si oui, la condition devient vraie.	(A <= B) est vrai.

Exemple

Essayez l'exemple suivant pour comprendre tous les opérateurs logiques disponibles dans Fortran -

! this program checks relational operators
implicit none  

   ! variable declaration
   integer :: a, b
   
   ! assigning values 
   a = 10   
   b = 20
   
   if (a .eq. b) then
      print *, "Line 1 - a is equal to b"
   else
      print *, "Line 1 - a is not equal to b"
   end if

   if (a > b) then
      print *, "Line 2 - a is greater than b"
   else
      print *, "Line 2 - a is less than b"
   end if
   
   if (a <= b) then
      print *, "Line 3 - a is less than or equal to b"
   else
      print *, "Line 3 - a is greater than b"
   end if
   
   a = 20   
   b = 20
   
   if (a .eq. b) then
      print *, "Line 4 - a is equal to b"
   else
      print *, "Line 4 - a is not equal to b"
   end if
end

Lorsque vous compilez et exécutez le programme ci-dessus, il produit le résultat suivant -

Line 1 - a is not equal to b
Line 2 - a is less than b
Line 3 - a is less than or equal to b
Line 4 - a is equal to b