function value = p00_i4 ( problem, action, name, value )

%*****************************************************************************80
%
%% P00_I4 sets or gets I4 parameters for any problem.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    18 March 2007
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer PROBLEM, the number of the desired test problem.
%
%    string ACTION,
%    'D' to set a parameter to its default value.
%    'S' to set a parameter,
%    'G' to get a parameter,
%    'I' to increment a parameter.
%
%    string NAME, the name of the variable.
%    '#' is the number of calls to the integrand routine.
%
%    integer VALUE.
%    * If ACTION = 'I', then VALUE is an input quantity, and is the
%      new value to be added to NAME.
%    * If ACTION = 'S', then VALUE is an input quantity, and is the
%      new value to be assigned to NAME.
%
%  Output:
%
%    integer VALUE.
%    * If ACTION = 'G', then VALUE is an output quantity, and is the
%      current value of NAME.
%
  if ( problem == 1 )
    value = p01_i4 ( action, name, value );
  elseif ( problem == 2 )
    value = p02_i4 ( action, name, value );
  elseif ( problem == 3 )
    value = p03_i4 ( action, name, value );
  elseif ( problem == 4 )
    value = p04_i4 ( action, name, value );
  elseif ( problem == 5 )
    value = p05_i4 ( action, name, value );
  elseif ( problem == 6 )
    value = p06_i4 ( action, name, value );
  elseif ( problem == 7 )
    value = p07_i4 ( action, name, value );
  elseif ( problem == 8 )
    value = p08_i4 ( action, name, value );
  elseif ( problem == 9 )
    value = p09_i4 ( action, name, value );
  elseif ( problem == 10 )
    value = p10_i4 ( action, name, value );
  elseif ( problem == 11 )
    value = p11_i4 ( action, name, value );
  elseif ( problem == 12 )
    value = p12_i4 ( action, name, value );
  elseif ( problem == 13 )
    value = p13_i4 ( action, name, value );
  elseif ( problem == 14 )
    value = p14_i4 ( action, name, value );
  elseif ( problem == 15 )
    value = p15_i4 ( action, name, value );
  elseif ( problem == 16 )
    value = p16_i4 ( action, name, value );
  elseif ( problem == 17 )
    value = p17_i4 ( action, name, value );
  elseif ( problem == 18 )
    value = p18_i4 ( action, name, value );
  elseif ( problem == 19 )
    value = p19_i4 ( action, name, value );
  elseif ( problem == 20 )
    value = p20_i4 ( action, name, value );
  elseif ( problem == 21 )
    value = p21_i4 ( action, name, value );
  elseif ( problem == 22 )
    value = p22_i4 ( action, name, value );
  elseif ( problem == 23 )
    value = p23_i4 ( action, name, value );
  elseif ( problem == 24 )
    value = p24_i4 ( action, name, value );
  elseif ( problem == 25 )
    value = p25_i4 ( action, name, value );
  elseif ( problem == 26 )
    value = p26_i4 ( action, name, value );
  elseif ( problem == 27 )
    value = p27_i4 ( action, name, value );
  elseif ( problem == 28 )
    value = p28_i4 ( action, name, value );
  elseif ( problem == 29 )
    value = p29_i4 ( action, name, value );
  elseif ( problem == 30 )
    value = p30_i4 ( action, name, value );
  elseif ( problem == 31 )
    value = p31_i4 ( action, name, value );
  elseif ( problem == 32 )
    value = p32_i4 ( action, name, value );
  else
    fprintf ( 1, '\n' );
    fprintf ( 1, 'P00_I4 - Fatal error!\n' );
    fprintf ( 1, '  Illegal problem number = %d\n', problem );
    error ( 'P00_I4 - Fatal error!' );
  end

  return
end
