Fortran 77 是否包含内在的 ALL 函数

Question

我正在尝试检查逻辑数组的所有元素是否为假而不遍历它。我在 Compaq Visual Fortran 6.6 手册中的 ALL() 函数中找不到。是否有其他一些内在的方法可以做到这一点，或者 Fortran 77 是否支持 ALL()？

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

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

Answer 1

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

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

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