function modifiedw = putlevel( w, newcofs, level )
% FUNCTION:    putlevel           Part of DPWT Toolbox
%
% SYNOPSIS:    MODIFIEDW = putlevel( W, NEWCOFS, LEVEL )
%
% DESCRIPTION: Given the vector of wavelet coefficients W
%              putlevel embeds NEWCOFS in W at the
%              level location indicated by LEVEL to create
%              MODIFIEDW.
%
% SEE ALSO:    getlevel

%
% AUTHOR: Neil Getz
% DATE: 5-4-92
%
% COPYRIGHT: Neil Getz
%

if(nargin < 2),
  help putlevel;
  return;
end

p = log(length(w))/log(2);
if( rem(p,1) ~= 0 ),
  error('putlevel: The length of arg 1 must be a positive power of 2.');
end

if( sum(rem(level,1)) ~= 0 ) ,
  error('putlevel: arg 3 must be an integer >= -1');
end

if(level>=p),
  error('putlevel: level number (arg2) too high for this function (arg1).');
end;

modifiedw = w;
if ( level == -1 ),
  modifiedw(1) = newcofs;
  return;
else
  modifiedw(2^level + [1:2^level]) = newcofs;
end