Fortran 77是否包含内在的ALL功能

Question

我正在尝试检查逻辑数组的所有元素是否为false而不迭代它。我在Compaq Visual Fortran 6.6手册中的ALL()函数中找不到。还有其他一些内在的方法，或Fortran 77支持ALL()吗？

这是我尝试过的。它编译，但我担心它会出错，因为它不在手册中：

IF(ALL(JLOGICALS .EQV. .FALSE.)) THEN
    !... 
END IF

Answer 1

Fortran 90标准中添加了ALL语句，严格来说，它不适用于纯FORTRAN 77编译器。

但是，大多数编译器都支持该语句，而使用Fortran，您可以混合使用标准。你的代码运行正常......

Here是Compaq Visual Fortran 6.6支持的内在函数列表。 ALL就是其中之一。