将复杂条件从 C 转换为 Fortran

Question

我有一个小的 C 函数来转换 Fortran

baralign(n, b)  {   

  return ((n&~(~0<<b)) ? (n&(~0<<b))+(1<<b):(n))

}

我将上述语句中的条件用 Fortran 语言编写如下

if (IAND(n,NOT(ISHFT(NOT(0),b))))

我不确定这个情况。当我运行此代码时，出现错误:

IF clause requires a scalar LOGICAL expression.

Answer 1

该问题与问题 Implicit conversion integer <--> logical in Fortran if statement 相关，但是这个问题略有不同，因为提问者知道问题的本质。

您不能像在 C 中那样将整数表达式放入 Fortran 中的 if 条件中

integer :: n, b

if (IAND(n,NOT(ISHFT(NOT(0),b))))

不可能。条件必须是逻辑表达式。

如果对于整数表达式的任何非零值都应该为 true，那么您必须在那里进行整数比较

if (IAND(n,NOT(ISHFT(NOT(0),b))) /= 0) then

如果您要求表达式恰好为 1，则可以使用 == 1 代替。

剩下的可能是

  baralign = IAND(n,ISHFT(NOT(0),b)) + ISHFT(1, b)
else
  baralign = n
end if

但我不知道代码的用途，所以我无法确定。