function a = i4vec_identity_row ( n, i )

%*****************************************************************************80
%
%% I4VEC_IDENTITY_ROW returns a row of the identity matrix as an I4VEC.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    19 August 2018
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    Input, integer N, the number of entries in the vector.
%
%    Input, integer I, the index of the entry to be set to 1.
%
%    Output, integer A(N), the vector.
%
  a = zeros ( 1, n );

  if ( 1 <= i && i <= n )
    a(i) = 1;
  end

  return
end

