function jumprate_table_print ( jumprate_table, pair_num, par_num )

%*****************************************************************************80
%
%% jumprate_table_print() prints the jump rate table.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    22 January 2018
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    real JUMPRATE_TABLE(PAR_NUM), the jumprate table.
%
%    integer PAIR_NUM, the number of pairs of 
%    crossover chains.
%    0 <= PAIR_NUM.
%
%    integer PAR_NUM, the total number of parameters.
%    1 <= PAR_NUM.
% 
  fprintf ( 1, '\n' );
  fprintf ( 1, 'JUMPRATE_TABLE_PRINT\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '   I        Jumprate\n' );
  fprintf ( 1, '\n' );
  for i = 1 : par_num
    fprintf ( 1, '  %2d  %14.6g\n', i, jumprate_table(i) );
  end

  return
end
