20231115  180156.376
 
toms429_test():
  FORTRAN77 version
  Test toms429().
 
TEST01
  p(x) = x^4 + 5.6562x^3 + 5.8854x^2
             + 7.3646x   + 6.1354
 
  Approximate roots:
 
  -1.001,
  -4.7741, 
   0.0089 + 1.1457 i,
   0.0089 - 1.1457 i.
 
 roots are in an annulus of inner radius 0.454E+00 and outer radius 0.836E+01
 there are no real positive roots
 the real negative roots(if any) are between-0.454E+00 and-0.666E+01
 
TEST02
  p(x) = x^4 - 8 x^3 + 24 x^2 - 32 x + 16
 
  Exact roots:
 
  2 (multiplicity 4)
 
 roots are in an annulus of inner radius 0.333E+00 and outer radius 0.330E+02
 the positive roots(if any) are between, 0.333E+00 and 0.900E+01
 there are no negative real roots
 there are no roots with negative real parts
 
TEST03
  p(x) = x^5 - 1
 
  Exact roots:
 
  0.3090 + 0.9510 i
 -0.8090 + 0.5877 i
 -0.8090 - 0.5877 i
  0.3090 - 0.9510 i
  1
 
 roots are in an annulus of inner radius 0.500E+00 and outer radius 0.200E+01
 the positive roots(if any) are between, 0.500E+00 and 0.200E+01
 there are no negative real roots
 
toms429_test():
  Normal end of execution.
 
20231115  180156.376