Next: ALLOCATED, Previous: ALARM, Up: Intrinsic Procedures
ALL
— All values in MASK along DIM are trueALL(MASK [, DIM])
determines if all the values are true in MASK
in the array along dimension DIM.
RESULT = ALL(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.
|
ALL(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 ALL(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.
ALL(MASK)
is true if all elements of MASK are true.
It also is true if MASK has zero size; otherwise, it is false.
ALL(MASK,DIM)
is equivalent
to ALL(MASK)
. If the rank is greater than one, then ALL(MASK,DIM)
is determined by applying ALL
to the array sections.
program test_all logical l l = all((/.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 *, all(a .eq. b, 1) print *, all(a .eq. b, 2) end subroutine section end program test_all