any(mask [, dim])
determines if any of the values in the logical array mask
along dimension dim
are .true.
.
Fortran 95 and later
Transformational function
result = any(mask [, dim])
mask
- the type of the argument shall be logical
and it shall not be scalar.dim
- (optional) dim
shall be a scalar integer with a value that lies between one and the rank of mask
.any(mask)
returns a scalar value of type logical
where the kind type parameter is the same as the kind type parameter of mask
. If dim
is present, then any(mask, dim)
returns an array with the rank of mask
minus 1. The shape is determined from the shape of mask
where the dim
dimension is elided.
any(mask)
is true if any element of mask
is true; otherwise, it is false. It also is false if mask
has zero size.
If the rank of mask
is one, then any(mask, dim)
is equivalent to any(mask)
. If the rank is greater than one, then any(mask,
dim)
is determined by applying any
to the array sections.
program test_any
logical l
l = any((/.true., .true., .true./))
print *, l
call section
contains
subroutine section
integer a(2,3), b(2,3)
a = 1
b = 1
b(2,2) = 2
print *, any(a .eq. b, 1)
print *, any(a .eq. b, 2)
end subroutine section
end program test_any