function i4vec_wrap_test ( )

%*****************************************************************************80
%
%% i4vec_wrap_test tests i4vec_wrap().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    30 May 2020
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'i4vec_wrap_test\n' );
  fprintf ( 1, '  i4vec_wrap() wraps an I4VEC into [LO,HI].\n' );

  n = 6;
  a = [ -2, 4, 7, 2, 9, 5 ];
  lo = 2;
  hi = 5;

  i4vec_transpose_print ( n, a, '  The vector:' );
  fprintf ( 1, '  Wrap interval is [%d,%d]\n', lo, hi );
  b = i4vec_wrap ( a, lo, hi );
  i4vec_transpose_print ( n, b, '  Wrapped vector:' )

  return
end
