function zp = p2_prior_sample ( par_num )

%*****************************************************************************80
%
%% P2_PRIOR_SAMPLE samples from the prior distribution.
%
%  Discussion:
%
%    The initial sample was generated from a normal distribution with
%    variance-covariance matrix 5 * Id.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    25 January 2018
%
%  Author:
%
%    John Burkardt
%
%  Input parameters:
%
%    Input, integer PAR_NUM, the total number of parameters.
%    1 <= PAR_NUM.
%
%  Output parameters:
%
%    Output, real ZP(PAR_NUM), the sample from the distribution.
%
  zp_mean_1d = 0.0;
  zp_sd_1d = sqrt ( 5.0 );

  zp = zeros ( par_num, 1 );
  for i = 1 : par_num
    zp(i) = r8_normal_sample ( zp_mean_1d, zp_sd_1d );
  end

  return
end

