function i4_swap3_test ( )

%*****************************************************************************80
%
%% I4_SWAP3_TEST tests I4_SWAP3.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    13 May 2015
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'I4_SWAP3_TEST\n' );
  fprintf ( 1, '  I4_SWAP3 swaps three integers.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Starting with (I,J,K), swap 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_swap3 ( i, j, k );
    fprintf ( 1, '  %8d  %8d  %8d\n', i, j, k );
  end

  return
end
