function [ chain_filename, gr_filename, gr_threshold, jumpstep, limits, ...
  printstep, restart_read_filename, restart_write_filename ] ...
  = p0_value ( par_num )

%*****************************************************************************80
%
%% p0_value() sets information, including numeric data.
%
%  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:
%
%    string CHAIN_FILENAME, the "base" filename
%    to be used for the chain files.  If this is the empty string '',
%    then the chain files will not be written.  This name should 
%    include a string of 0s which will be replaced by the chain 
%    indices.  For example, "chain000.txt" would work as long as the
%    number of chains was 1000 or less.
%
%    string GR_FILENAME, the name of the file
%    in which values of the Gelman-Rubin statistic will be recorded,
%    or '' if this file is not to be written.
%
%    real GR_THRESHOLD, the convergence tolerance for
%    the Gelman-Rubin statistic.
%
%    integer JUMPSTEP, forces a "long jump" every
%    JUMPSTEP generations.
%
%    real LIMITS(2,PAR_NUM), lower and upper bounds
%    for each parameter.
%
%    integer PRINTSTEP, the interval between generations 
%    on which the Gelman-Rubin statistic will be computed and written to a file.
%
%    string RESTART_READ_FILENAME, the name of the file
%    containing restart information, or '' if this is not a restart run.
%
%    string RESTART_WRITE_FILENAME, the name of the file
%    to be written, containing restart information, or '' if a restart file 
%    is not to be written.
%
  chain_filename = 'p0_chain00.txt';
  gr_filename = 'p0_gr.txt';
  gr_threshold = 1.2;
  jumpstep = 5;
  limits = zeros(2,par_num);
  limits(1,1:par_num) = -10.0;
  limits(2,1:par_num) = +10.0;
  printstep = 10;
  restart_read_filename = '';
  restart_write_filename = 'p0_restart.txt';

  return
end
