function J = p00_j ( test, m, n, x )

%*****************************************************************************80
%
%% p00_j() evaluates the jacobian for any problem.
%
%  Discussion:
%
%    The jacobian matrix of a set of M functions F(I) that depend
%    on N variables X(J) is
%
%      FJAC(I,J)  =  d F(I) / d X(J)
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    25 November 2002
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer test, the problem number.
%
%    integer M, the number of equations.
%
%    integer N, the number of variables.
%
%    real X(N), the evaluation point.
%
%  Output:
%
%    real J(M,N), the jacobian matrix.
%
  if ( test == 1 )
    J = p01_j ( m, n, x );
  elseif ( test == 2 )
    J = p02_j ( m, n, x );
  elseif ( test == 3 )
    J = p03_j ( m, n, x );
  elseif ( test == 4 )
    J = p04_j ( m, n, x );
  elseif ( test == 5 )
    J = p05_j ( m, n, x );
  elseif ( test == 6 )
    J = p06_j ( m, n, x );
  elseif ( test == 7 )
    J = p07_j ( m, n, x );
  elseif ( test == 8 )
    J = p08_j ( m, n, x );
  elseif ( test == 9 )
    J = p09_j ( m, n, x );
  elseif ( test == 10 )
    J = p10_j ( m, n, x );
  elseif ( test == 11 )
    J = p11_j ( m, n, x );
  elseif ( test == 12 )
    J = p12_j ( m, n, x );
  elseif ( test == 13 )
    J = p13_j ( m, n, x );
  elseif ( test == 14 )
    J = p14_j ( m, n, x );
  elseif ( test == 15 )
    J = p15_j ( m, n, x );
  elseif ( test == 16 )
    J = p16_j ( m, n, x );
  elseif ( test == 17 )
    J = p17_j ( m, n, x );
  elseif ( test == 18 )
    J = p18_j ( m, n, x );
  elseif ( test == 19 )
    J = p19_j ( m, n, x );
  elseif ( test == 20 )
    J = p20_j ( m, n, x );
  elseif ( test == 21 )
    J = p21_j ( m, n, x );
  elseif ( test == 22 )
    J = p22_j ( m, n, x );
  elseif ( test == 23 )
    J = p23_j ( m, n, x );
  elseif ( test == 24 )
    J = p24_j ( m, n, x );
  elseif ( test == 25 )
    J = p25_j ( m, n, x );
  elseif ( test == 26 )
    J = p26_j ( m, n, x );
  else
    fprintf ( 1, '\n' );
    fprintf ( 1, 'p00_j(): Fatal error!\n' );
    fprintf ( 1, '  Illegal problem number = %d\n', test );
    error ( 'p00_j(): Fatal error!\n' );
  end

  return
end

