Checks for repeated roots of a polynomial.
REPROOT(p, findroots, tol)
p 
 
A series, the coefficients of the polynomial in descending powers (highest order to lowest). If findroots is 0, p represents the roots of the polynomial. 

findroots 
 
Optional. An integer, the form of input series p:


tol 
 
Optional. A real, the tolerance threshold to determine repeated roots. Defaults to 1e3. 
An integer. 1 if repeated roots exist else 0.
reproot({1, 3, 3, 1})
returns 1, indicating the polynomial has multiple roots.
reproot(poly({1, 1, 2}))
returns 1, indicating the polynomial has multiple roots.
REPROOT is a support routine used by RESIDUE and RESIDUEZ.