function a = r8cvv_rset ( mn, a, m, roff, i, ai )

%*****************************************************************************80
%
%% r8cvv_rset() sets row I from an R8CVV.
%
%  Discussion:
%
%    An R8CVV is a "vector of vectors" of R8's.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    27 November 2012
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer MN, the size of the cell array.
%
%    real A(MN), the cell array.
%
%    integer M, the number of rows in the array.
%
%    integer ROFF(M+1), the row offsets.
%
%    integer I, the row.
%    1 <= I <= M.
%
%    real AI(NR(I)), the new value of A(I,*).
%
%  Output:
%
%    real A(MN), the cell array.
%
  k1 = roff(i) + 1;
  k2 = roff(i+1);
  nv = k2 + 1 - k1;
  a(k1:k2) = ai(1:nv);

  return
end
