The ANY function determines whether any values in a logical mask are true either for an entire mask or along a given dimension of the mask.

## Syntax

ANY (mask [,dim])

mask is an INTENT(IN) array of type LOGICAL. It must not be scalar.

dim is an INTENT(IN) scalar INTEGER with a value within the range
*dim* ≤ n

The result is of type LOGICAL and the same kind as MASK. Its value and rank are determined as follows:

- The function will return a scalar logical value if
*mask*has rank one, or if*dim*is absent. The result has the value true if any element of*mask*is true. - The function will return a logical array of rank n-1 if
*dim*is present and*mask*has rank two or greater. The resulting array is of shape (*d*where (_{1},d_{2}, ...,d_{dim-1},d_{dim+1}, ...,d_{n})*d*is the shape of_{1},d_{2}, ...,d_{n})*mask*and n is the rank of*mask*. The result has the value true for each corresponding vector in*mask*that evaluates to true for any element in that vector.

## Example 1

real,dimension(4) :: q=(/1.,-2.,3.,4./) write(*,*) any(q < 0.) ! writes T## Example 2

integer, dimension (2,3) :: a, b a = reshape((/1,2,3,4,5,6/), (/2,3/)) write(*,'(2i3)') a ! writes 1 2 ! 3 4 ! 5 6 b = reshape((/1,2,3,5,6,4/), (/2,3/)) write(*,'(2i3)') b ! writes 1 2 ! 3 4 ! 5 6 write(*,*) any(a==b) ! writes T write(*,*) any(a==b, 1) ! writes T T F write(*,*) any(a==b, 2) ! writes T T