子程序求解实系数多项式的实根。该多项式的首系数不可为零。主程序中包含一个算例，以便于学习和理解。-Subroutine to solve real roots of polynomials with real coefficients. The first coefficients of the polynomial can not be zero. A numerical example is included in the main program, in order to learn and understand.