function Zlist=bklop(Zo,Zload,N,RdB)
% Calculate impedance list for a Klopfenstein taper
% of unit length.
%
% Zlist=bklop(Zo,Zload,N,RdB)
%
% Zo......Characteristic impedance (Ohms)
% Zload...Load impedance to match to (Ohms)
% N.......Number of sections used to approximate taper (integer)
% RdB.....Operating band ripple (dB)
%
% e.g. Zlist=bklop(50,100,60,-25) % Match a 100ohm load to a 50ohm line
% % with operating band ripple at -25dB.
% % Taper defined as list of 60 sections
%
% Note : Only valid for Zload>Zo
%
% Matches a load impedance Zload to a standard line impedance Zo
% using Klopfenstein taper.
% Taper profile is returned as a list of impedances, the optimum length
% for this design of taper is 0.565 lambda.
%
% Impedance Values<