Fortran - Operadores relacionales

La siguiente tabla muestra todos los operadores relacionales compatibles con Fortran. Asumir variableA tiene 10 y variable B tiene 20, entonces -

Operador	Equivalente	Descripción	Ejemplo
==	.eq.	Comprueba si los valores de dos operandos son iguales o no, si es así, la condición se convierte en verdadera.	(A == B) no es cierto.
/ =	.nordeste.	Comprueba si los valores de dos operandos son iguales o no, si los valores no son iguales, la condición se convierte en verdadera.	(A! = B) es cierto.
>	.gt.	Comprueba si el valor del operando izquierdo es mayor que el valor del operando derecho, si es así, la condición se convierte en verdadera.	(A> B) no es cierto.
<	.lt.	Comprueba si el valor del operando izquierdo es menor que el valor del operando derecho, si es así, la condición se convierte en verdadera.	(A <B) es cierto.
> =	.ge.	Comprueba si el valor del operando izquierdo es mayor o igual que el valor del operando derecho, si es así, la condición se convierte en verdadera.	(A> = B) no es cierto.
<=	.le.	Comprueba si el valor del operando izquierdo es menor o igual que el valor del operando derecho, si es así, la condición se convierte en verdadera.	(A <= B) es cierto.

Ejemplo

Pruebe el siguiente ejemplo para comprender todos los operadores lógicos disponibles en 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

Cuando compila y ejecuta el programa anterior, produce el siguiente resultado:

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