bisection_min_test():
  Fortran90 version
  bisection_min() seeks a minimizer
  of a function f(x) in the interval [a,b],
  assuming f(x) is strictly unimodal over [a,b],

  f = humps_fun(x)
  f(  0.300000    ) =    96.5000    
  f(  0.900000    ) =    21.7027    
  x_tol =   0.100000E-05

  Number of iterations:  21
  Function evaluations:  43
  f(  0.637009    ) =    11.2528    
  f(  0.637009    ) =    11.2528    
  f(  0.637009    ) =    11.2528    

  f = test_fun(x)
  f(  -2.00000    ) =    31.1360    
  f(   1.00000    ) =    9.41471    
  x_tol =   0.100000E-05

  Number of iterations:  23
  Function evaluations:  47
  f(  -1.27418    ) =   -10.0882    
  f(  -1.27418    ) =   -10.0882    
  f(  -1.27418    ) =   -10.0882    

bisection_min_test():
  Normal end of execution.
04 March 2026  10:28:02.099 AM