Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/fortran/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Fortran 77是否包含内在的ALL函数_Fortran_Fortran77 - Fatal编程技术网

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

Fortran 77是否包含内在的ALL函数,fortran,fortran77,Fortran,Fortran77,我试图检查逻辑数组的所有元素是否都为false,而不进行迭代。我在Compaq Visual Fortran 6.6手册的ALL()函数中找不到。是否有其他内在的方法来实现这一点,或者Fortran 77是否支持ALL() 这是我试过的。它可以编译,但我担心它会出错,因为它不在手册中: IF(ALL(JLOGICALS .EQV. .FALSE.)) THEN !... END IF ALL语句是在Fortran 90标准中添加的,因此严格来说,它不适用于纯Fortran 77编译器

我试图检查逻辑数组的所有元素是否都为false,而不进行迭代。我在Compaq Visual Fortran 6.6手册的
ALL()
函数中找不到。是否有其他内在的方法来实现这一点,或者Fortran 77是否支持
ALL()

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

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

ALL
语句是在Fortran 90标准中添加的,因此严格来说,它不适用于纯Fortran 77编译器

但是,大多数编译器都支持该语句,使用Fortran可以混合使用这些标准。您的代码应该运行良好

是Compaq Visual Fortran 6.6支持的内部函数列表<代码>所有都在其中

例如,请参见。