23 February 2026   9:31:49.764 PM

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

  f = humps_fun(x)
  f(  0.300000    ) =    96.5000    
  f(  0.900000    ) =    21.7027    
  iteration limit n =     25
  x_tol =   0.100000E-05

  Number of iterations:    26
  f(  0.637008    ) =    11.2528    
  f(  0.637011    ) =    11.2528    

  f = test_fun(x)
  f(  -2.00000    ) =    31.1360    
  f(   1.00000    ) =    9.41471    
  iteration limit n =     35
  x_tol =   0.100000E-05

  Number of iterations:    31
  f(  -1.27418    ) =   -10.0882    
  f(  -1.27418    ) =   -10.0882    

golden_section_test():
  Normal end of execution.
23 February 2026   9:31:49.764 PM