function value = p2_prior_density ( par_num, zp )

%*****************************************************************************80
%
%% p2_prior_density() evaluates the prior density function.
%
%  Discussion:
%
%    The initial sample was generated from a normal distribution with
%    variance-covariance matrix 5 * Id.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    25 January 2018
%
%  Author:
%
%    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.
%
  zp_mean_1d = 0.0;
  zp_sd_1d = sqrt ( 5.0 );

  value = 1.0;
  for i = 1 : par_num
    value = value * r8_normal_pdf ( zp_mean_1d, zp_sd_1d, zp(i) );
  end

  return
end

