lo = logical(l [,kind])
logical,intent(in) :: l
integer,intent(in) :: kind
logical :: lo
l = all(mask [,dim])
logical,intent(in) :: mask(:)
integer,intent(in) :: dim
logical :: l
l = any(mask [,dim])
logical,intent(in) :: mask(:)
integer,intent(in) :: dim
logical :: l
i = count(mask [,dim])
logical,intent(in) :: mask(:)
integer,intent(in) :: dim
integer :: i