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 就在其中。