function jumprate_table = jumprate_table_init ( pair_num, par_num )

%*****************************************************************************80
%
%% JUMPRATE_TABLE_INIT initializes the jump rate table.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    22 January 2018
%
%  Author:
%
%    Original FORTRAN90 version by Guannan Zhang.
%    MATLAB version by John Burkardt.
%
%  Input parameters:
%
%    Input, integer PAIR_NUM, the number of pairs of 
%    crossover chains.
%    0 <= PAIR_NUM.
%
%    Input, integer PAR_NUM, the total number of parameters.
%    1 <= PAR_NUM.
%
%  Output parameters:
%
%    Output, real JUMPRATE_TABLE(PAR_NUM), the jumprate table.
%
  c = 2.38 / sqrt ( 2 * pair_num );

  jumprate_table = zeros(par_num,1);

  for i = 1 : par_num
    jumprate_table(i) = c / sqrt ( i );
  end

  return
end
