Fortran - 关系运算符

下表显示了 Fortran 支持的所有关系运算符。假设变量A为 10，变量B为 20，则 -

操作员	相等的	描述	例子
==	.eq.	检查两个操作数的值是否相等，如果相等则条件为真。	(A == B) 不正确。
/=	.ne。	检查两个操作数的值是否相等，如果值不相等则条件成立。	(A != B) 为真。
>	.gt.	检查左操作数的值是否大于右操作数的值，如果是，则条件为真。	(A > B) 不正确。
<	.lt.	检查左操作数的值是否小于右操作数的值，如果是，则条件为真。	(A < B) 为真。
>=	.ge。	检查左操作数的值是否大于或等于右操作数的值，如果是，则条件为真。	(A >= B) 不正确。
<=	.le。	检查左操作数的值是否小于或等于右操作数的值，如果是，则条件为真。	(A <= B) 为真。

例子

尝试以下示例来了解 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

当您编译并执行上述程序时，它会产生以下结果 -

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

fortran_operators.htm