function value = r8vec_gt ( n, a1, a2 )

%% R8VEC_GT == ( A1 > A2 ) for R8VEC'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)
%
%  Modified:
%
%    05 February 2005
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    Input, integer N, the dimension of the vectors.
%
%    Input, real A1(N), A2(N), the vectors to be compared.
%
%    Output, logical VALUE, is TRUE if and only if A1 > A2.
%
  value = 0;

  for i = 1 : n

    if ( a2(i) < a1(i) )
      value = 1;
      break
    elseif ( a1(i) < a2(i) )
      value = 0;
      break
    end

  end