function value = ubvec_and ( n, ubvec1, ubvec2 )

%*****************************************************************************80
%
%% ubvec_and() computes the AND of two unsigned binary vectors.
%
%  Discussion:
%
%    A UBVEC is a vector of N binary digits.
%
%    A UBVEC can be interpreted as a binary representation of an
%    unsigned integer, with the first entry being the coefficient of
%    2^(N-1) and the last entry the coefficient of 1.
%
%    UBVEC   #
%    -----  --
%    00000   0
%    00001   1
%    00010   2
%    10000  16
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    18 November 2015
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer N, the length of the vectors.
%
%    integer UBVEC1(N), UBVEC2(N), the vectors.
%
%    integer VALUE(N), the AND of the two vectors.
%
  value(1:n) = min ( ubvec1(1:n), ubvec2(1:n) );

  return
end
