function a = i4mat_row_reduce ( m, n, i, a )

%*****************************************************************************80
%
%% I4MAT_ROW_REDUCE divides out common factors in row I of an I4MAT.
%
%  Discussion:
%
%    An I4MAT is an MxN array of I4's, stored by (I,J) -> [I+J*M].
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    10 September 2018
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    Input, integer M, the number of rows in the matrix.
%
%    Input, integer N, the number of columns in the matrix.
%
%    Input, integer I, the row to be reduced.  1 <= I <= M.
%
%    Input, integer A[M,N], the matrix whose row is to be reduced.
%
%    Output, integer A[M,N], row I of the matrix has been reduced.
%
  [ a(i,1:n), common_factor ] = i4vec_red ( n, a(i,1:n), 1 );

  return
end
