Fortran - 逻辑运算符

下表显示了 Fortran 支持的所有逻辑运算符。假设变量A保持 .true。并且变量B保持 .false。，那么 -

操作员	描述	例子
。和。	称为逻辑与运算符。如果两个操作数均非零，则条件为真。	（A 和 B）是错误的。
。或者。	称为逻辑或运算符。如果两个操作数中的任何一个非零，则条件为真。	（A 或 B）是正确的。
。不是。	称为逻辑非运算符。用于反转其操作数的逻辑状态。如果条件为真，则逻辑 NOT 运算符将为假。	!(A 和 B) 为真。
.eqv。	称为逻辑等效运算符。用于检查两个逻辑值是否相等。	(A .eqv. B) 为假。
.neqv。	称为逻辑非等价运算符。用于检查两个逻辑值不相等。	(A .neqv. B) 是正确的。

例子

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

fortran_operators.htm