function f = p00_f ( test, m, n, x )

%*****************************************************************************80
%
%% p00_f() evaluates the M nonlinear functions for any problem.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    02 March 2026
%
%  Author:
%
%    John Burkardt
%
%  Reference:
%
%    Jorge More, Burton Garbow, and Kenneth Hillstrom,
%    Testing unconstrained optimization software,
%    ACM Transactions on Mathematical Software,
%    Volume 7, pages 17-41, 1981.
%
%  Input:
%
%    integer test, the problem number.
%
%    integer M, the number of functions.
%
%    integer N, the number of unknowns.
%
%    real X(N), the evaluation point.
%
%  Output:
%
%    real F(M), the value of the functions evaluated at X.
%
  if ( test == 1 )
    f = p01_f ( m, n, x );
  elseif ( test == 2 )
    f = p02_f ( m, n, x );
  elseif ( test == 3 )
    f = p03_f ( m, n, x );
  elseif ( test == 4 )
    f = p04_f ( m, n, x );
  elseif ( test == 5 )
    f = p05_f ( m, n, x );
  elseif ( test == 6 )
    f = p06_f ( m, n, x );
  elseif ( test == 7 )
    f = p07_f ( m, n, x );
  elseif ( test == 8 )
    f = p08_f ( m, n, x );
  elseif ( test == 9 )
    f = p09_f ( m, n, x );
  elseif ( test == 10 )
    f = p10_f ( m, n, x );
  elseif ( test == 11 )
    f = p11_f ( m, n, x );
  elseif ( test == 12 )
    f = p12_f ( m, n, x );
  elseif ( test == 13 )
    f = p13_f ( m, n, x );
  elseif ( test == 14 )
    f = p14_f ( m, n, x );
  elseif ( test == 15 )
    f = p15_f ( m, n, x );
  elseif ( test == 16 )
    f = p16_f ( m, n, x );
  elseif ( test == 17 )
    f = p17_f ( m, n, x );
  elseif ( test == 18 )
    f = p18_f ( m, n, x );
  elseif ( test == 19 )
    f = p19_f ( m, n, x );
  elseif ( test == 20 )
    f = p20_f ( m, n, x );
  elseif ( test == 21 )
    f = p21_f ( m, n, x );
  elseif ( test == 22 )
    f = p22_f ( m, n, x );
  elseif ( test == 23 )
    f = p23_f ( m, n, x );
  elseif ( test == 24 )
    f = p24_f ( m, n, x );
  elseif ( test == 25 )
    f = p25_f ( m, n, x );
  elseif ( test == 26 )
    f = p26_f ( m, n, x );
  else
    fprintf ( 1, '\n' );
    fprintf ( 1, 'p00_f(): Fatal error!\n' );
    fprintf ( 1, '  Illegal problem number = %d\n', test );
    error ( 'p00_f(): Fatal error!' );
  end

  return
end

