function zp = p0_prior_sample ( par_num )

%*****************************************************************************80
%
%% p0_prior_sample() samples from the prior distribution.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    22 January 2018
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer PAR_NUM, the total number of parameters.
%    1 <= PAR_NUM.
%
%  Output:
%
%    real ZP(PAR_NUM), the sample from the distribution.
%
  a = -10.0;
  b = +10.0;

  zp = zeros ( par_num, 1 );

  for i = 1 : par_num
    zp(i,1) = r8_uniform_sample ( a, b );
  end

  return
end
