function i4vec_distances_test ( )

%*****************************************************************************80
%
%% I4VEC_DISTANCES_TEST tests I4VEC_DISTANCES.
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    05 January 2018
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'I4VEC_DISTANCES_TEST\n' );
  fprintf ( 1, '  I4VEC_DISTANCES computes the pairwise distances between elements\n' );
  fprintf ( 1, '  of an I4VEC.\n' );

  n = 5;
  locate = [ 0, 3, 10, 20, 100 ] ;
  d = i4vec_distances ( n, locate );

  i4vec_print ( n, locate, '  Locations:' );
  i4vec_print ( n * ( n - 1 ) / 2, d, '  Distances:' );
#
#  Terminate.
#
  fprintf ( 1, '\n' );
  fprintf ( 1, 'I4VEC_DISTANCES_TEST:\n' );
  fprintf ( 1, '  Normal end of execution.\n' );

  return
end

