function chrpak_test022 ( )

%*****************************************************************************80
%
%% chrpak_test022() tests i4_to_hex_digit() and hex_digit_to_i4().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    31 August 2009.
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'chrpak_test022():\n' );
  fprintf ( 1, '  i4_to_hex_digit(): I4 -> hexadecimal digit\n' );
  fprintf ( 1, '  hex_digit_to_i4(): hexadecimal digit -> I4.\n' );
  fprintf ( 1, '\n' );
 
  for i = -2 : 11
    ch = i4_to_hex_digit ( i );
    i2 = hex_digit_to_i4 ( ch );
    fprintf ( 1, '  %8d  "%c"  %8d\n', i, ch, i2 );
  end
 
  return
end
