function ubvec = ubvec_unrank_gray ( rank, n )

%*****************************************************************************80
%
%% ubvec_unrank_gray() unranks a UBVEC.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    19 November 2015
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer RANK, the rank of the UBVEC.
%    0 <= RANK < 2^N.
%
%    integer N, the size of the UBVEC.
%
%  Output:
%
%    integer UBVEC(N), the UBVEC of given rank.
%
  ui4 = ui4_unrank_gray ( rank );
  ubvec = ui4_to_ubvec ( ui4, n );

  return
end
