21 January   2013  10:53:29.324 AM      
 
ZERO_RC_PRB:
  FORTRAN77 version
  Test the ZERO_RC library.
 
TEST01
  Test ROOT_RC, which searches for an
  approximate solution of F(X) = 0.
 
       X              XERR            FX              FERR
 
    -2.10000                         1.59515    
   -0.504846        0.100000E+31     1.38010         1.59515    
     9.73172        0.100000E+31    -10.6850         1.38010    
     2.18582         10.2366        -2.76280         10.6850    
    0.342921         2.69067        0.598856         2.76280    
    0.649905         1.84290        0.146236        0.598856    
    0.743313         1.53592       -0.708192E-02    0.146236    
    0.739094        0.934077E-01   -0.143746E-04    0.708192E-02
    0.739085        0.891887E-01    0.354947E-09    0.143746E-04
 
  Uncertainty if F(X) less than tolerance
 
TEST02
  Test ROOTS_RC, which seeks a solution of
  the N-dimensional nonlinear system F(X) = 0.
 
       FERR          X
 
                     1.20000         1.00000         1.00000         1.00000    
     4.59541         1.19947        0.999981        0.999560        0.999560    
     4.57237         1.19752        0.999923        0.998090        0.997770    
     4.84603         1.19732         1.00098        0.991025         1.00346    
     4.52301         1.19551        0.999460        0.997217        0.995691    
    0.663646         1.00000        0.952595        0.905116        0.802596    
    0.617477         1.00000        0.951918        0.903321        0.805150    
    0.601792         1.00000        0.951562        0.902957        0.806104    
    0.602173         1.00000        0.951448        0.902682        0.805741    
    0.114591         1.00000         1.00000        0.997632        0.986179    
    0.678219E-02     1.00000         1.00000        0.999952        0.999273    
    0.502579E-03     1.00000         1.00000         1.00001         1.00006    
    0.454491E-04     1.00000         1.00000         1.00000         1.00001    
    0.341350E-07     1.00000         1.00000         1.00000         1.00000    
 
  Sum of |f(x)| less than tolerance.
 
ZERO_RC_PRB:
  Normal end of execution.
 
21 January   2013  10:53:29.325 AM