function i4_unswap3_test ( )

%*****************************************************************************80
%
%% I4_UNSWAP3_TEST tests I4_UNSWAP3.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    13 May 2015
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'I4_UNSWAP3_TEST\n' );
  fprintf ( 1, '  I4_UNSWAP3 swaps three integers.\n' );
  fprintf ( 1, '  It can also reverse the effect of I4_SWAP3.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Starting with (I,J,K), unswap 3 times.\n' );
  fprintf ( 1, '\n' );

  i = 1;
  j = 202;
  k = 3003003;

  fprintf ( 1, '  %8d  %8d  %8d\n', i, j, k );

  for l = 1 : 3
    [ i, j, k ] = i4_unswap3 ( i, j, k );
    fprintf ( 1, '  %8d  %8d  %8d\n', i, j, k );
  end

  fprintf ( 1, '\n' );
  fprintf ( 1, ' Start with (I,J,K), swap, then unswap.\n' );
  fprintf ( 1, '\n' );

  i = 1;
  j = 202;
  k = 3003003;

  fprintf ( 1, '  %8d  %8d  %8d\n', i, j, k );
  [ i, j, k ] = i4_swap3 ( i, j, k );
  fprintf ( 1, '  %8d  %8d  %8d\n', i, j, k );
  [ i, j, k ] = i4_unswap3 ( i, j, k );
  fprintf ( 1, '  %8d  %8d  %8d\n', i, j, k );

  return
end
