这个Fortran条件表达式将如何评估？

Question

在变量NMOM下面的Fortran95代码中，NMOM是一个整数，总是等于3。

P0的值是多少，1还是-1？除以2然后乘以2位让我感到困惑，我不知道你为什么要这么做，但是这是一位90年代的非程序员科学家写的，他已经不想问了。

P0=1
IF(NMOM-NMOM/2*2.EQ.1)P0=-1

代码是在Linux机器上用lf95编译的。

Answer 1

我不知道Fortran，但我猜它是在测试NMOM是奇数还是偶数。首先，用parens重写以模拟操作符优先级：

IF(NMOM-((NMOM/2)*2).EQ.1)P0=-1

如果我们使用整数数学，那么( NMOM /2)*2 == NMOM，如果它是偶数，它将等于NMOM-1，如果它是奇数。