Fortran 数组的变换函数

all(array) ! 如果数组都为真，则为真
any(array) ! 如果有一个为真，则为真
count(array) ! 返回真元素个数
product/sum(array, mask) ! 符合 mask 的和或积
maxloc/maxval/minloc/minval(array, mask) ! 符合 mask 的位置或值