Fortran关系运算符

下表列出了所有的Fortran支持的关系运算符。假设变量A=10和变量B=20，则：

操作符	等同	描述	示例
==	.eq.	检查两个操作数的值相等与否，如果是，则条件变为真。	(A == B) i不为 true.
/=	.ne.	检查，两个操作数的值相等与否，如果值不相等，则条件变为真。	(A != B) 为 true.
>	.gt.	检查，左操作数的值大于右操作数的值，如果是的话那么条件为真。	(A > B)不为true.
<	.lt.	检查，左操作数的值是否小于右操作数的值，如果是的话那么条件为真。	(A < B) 是 true.
>=	.ge.	检查，左边的操作数的值是否大于或等于右操作数的值，如果是，则条件变为真。	(A >= B) 不为 true.
<=	.le.	检查，左边的操作数的值是否小于或等于右操作数的值，如果是，则条件变为真。	(A <= B) 为 true.

示例

试试下面的例子就明白所有在Fortran语言可用的逻辑运算符：

program logicalOp

! this program checks logical operators
implicit none  

   ! variable declaration
   logical :: a, b
   
   ! assigning values 
   a = .true.   
   b = .false. 
   
   if (a .and. b) then
      print *, "Line 1 - Condition is true"
   else
      print *, "Line 1 - Condition is false"
   end if
   
   if (a .or. b) then
      print *, "Line 2 - Condition is true"
   else
      print *, "Line 2 - Condition is false"
   end if
          
   ! changing values 
   a = .false.   
   b = .true. 
   
   if (.not.(a .and. b)) then
      print *, "Line 3 - Condition is true"
   else
      print *, "Line 3 - Condition is false"
   end if
   
   if (b .neqv. a) then
      print *, "Line 4 - Condition is true"
   else
      print *, "Line 4 - Condition is false"
   end if
   
   if (b .eqv. a) then
      print *, "Line 5 - Condition is true"
   else
      print *, "Line 5 - Condition is false"
   end if
   
end program logicalOp

当编译并执行上述程序,将产生以下结果：

Line 1 - Condition is false
Line 2 - Condition is true
Line 3 - Condition is true
Line 4 - Condition is true
Line 5 - Condition is false

我要分享文章