function value = p0_prior_density ( par_num, zp )

%*****************************************************************************80
%
%% p0_prior_density() evaluates the prior density function.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    24 January 2018
%
%  Author:
%
%    Original FORTRAN90 version by Guannan Zhang.
%    MATLAB version by John Burkardt.
%
%  Input:
%
%    integer PAR_NUM, the total number of parameters.
%    1 <= PAR_NUM.
%
%    real ZP(PAR_NUM), the argument of the density function.
%
%  Output:
%
%    real VALUE, the value of the prior density function.
%
  a = -10.0;
  b = +10.0;

  value = 1.0;
  
  for i = 1 : par_num
    value = value * r8_uniform_pdf ( a, b, zp(i) );
  end

  return
end

