function [ o, c, e ] = polynomial_scale ( s, m, o, c, e )

%*****************************************************************************80
%
%% polynomial_scale() scales a polynomial.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    01 January 2014
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    real S, the scale factor.
%
%    integer M, the spatial dimension.
%
%    integer O, the "order" of the polynomial.
%
%    real C(O), the coefficients of the polynomial.
%
%    integer E(O), the indices of the exponents of the polynomial.
%
%  Output:
%
%    integer O, the "order" of the scaled polynomial.
%
%    real C(O), the coefficients of the scaled polynomial.
%
%    integer E(O), the indices of the exponents of the 
%    scaled polynomial.
%
  c(1:o) = s * c(1:o);

  return
end

