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