function [numopen, denopen, denclsd]=dephlead(num,den,s1)

% Hadi Saadat, 1998

discr=[
'                                                                         '
'  The function phlead(num, den, s1) is used for the design of a phase-   '
'  lead compensator.  num & den are row vectors of polynomial coefficients'
'  of the uncompensated open-loop plant transfer function and s1 =