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

列印頁面