function [B,degB] = polseten(A,degA,a,dega,i,j)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% sets the entry (i,j) of a polynomial matrix B to be  %
% a. Otherwise B=A.                                    %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% M. Sebek, June 1990                                  %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% function used: polsize;


[rA,cA] = polsize(A,degA);
if i>rA | j>cA
  error('polseten: out of size');
end

if dega > degA
  B=[A zeros(rA,(dega-degA)*cA)];
  degB=dega;
elseif dega<degA
  B=A;
  degB=degA;
  if dega<0, a=zeros(1,degA+1); else a=[a zeros(1,degA-dega)]; end
else
  B=A;
  degB=degA;
end

B(i,j:cA:j+degB*cA)=a;