27 March     2024   8:09:51.188 AM      
 
zero_brent_test():
  Fortran77 version.
  Test zero_brent(), which seeks a root of a
  function f(x) in an interval [A,B].
 
  f_01(x) = sin ( x ) - x / 2                                                     
 
      A                 Z             B
    F(A)              F(Z)          F(B)
 
      1.00000000      1.89549427      2.00000000
    0.341471         0.00000       -0.907026E-01
  Number of calls to F =        8
 
  f_02(x) = 2 * x - exp ( - x )                                                   
 
      A                 Z             B
    F(A)              F(Z)          F(B)
 
      0.00000000      0.35173371      1.00000000
    -1.00000         0.00000         1.63212    
  Number of calls to F =        7
 
  f_03(x) = x * exp ( - x )                                                       
 
      A                 Z             B
    F(A)              F(Z)          F(B)
 
     -1.00000000      0.00000000      0.50000000
    -2.71828        0.267518E-23    0.303265    
  Number of calls to F =       12
 
  f_04(x) = exp ( x ) - 1 / ( 100 * x * x )                                       
 
      A                 Z             B
    F(A)              F(Z)          F(B)
 
      0.00010000      0.09534462     20.00000000
    -999999.       -0.222045E-15    0.485165E+09
  Number of calls to F =       16
 
  f_05(x) = (x+3) * (x-1) * (x-1)                                                 
 
      A                 Z             B
    F(A)              F(Z)          F(B)
 
     -5.00000000     -3.00000000      2.00000000
    -72.0000         0.00000         5.00000    
  Number of calls to F =       14
 
zero_test():
  Normal end of execution.
 
27 March     2024   8:09:51.188 AM