function value = i4vec_ge ( a1, a2 )

%*****************************************************************************80
%
%% i4vec_ge == ( A1 => A2 ) for i4vec's.
%
%  Discussion:
%
%    The comparison is lexicographic.
%
%    A1 => A2 <=>                              A1(1) => A2(1) or
%                 ( A1(1)     == A2(1)     and A1(2) => A2(2) ) or
%                 ...
%                 ( A1(1:N-1) == A2(1:N-1) and A1(N) => A2(N)
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    25 October 2020
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer A1(N), A2(N), the vectors to be compared.
%
%  Output:
%
%    logical VALUE, is true if and only if A1 => A2.
%
  n = length ( a1 );

  value = false;

  for i = 1 : n

    if ( a2(i) <= a1(i) )
      value = true;
      break
    elseif ( a1(i) < a2(i) )
      value = false;
      break
    end

  end

  return
end
