function cross_corr_test ( )

%*****************************************************************************80
%
%% cross_corr_test() tests cross_corr().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    18 August 2017
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'CROSS_CORR_TEST():\n' );
  fprintf ( 1, '  CROSS_CORR computes the sample cross correlations\n' );
  fprintf ( 1, '  between two signals.\n' );

  n = 101;
  x = linspace ( 0.0, 6.0 * pi, n );
  y1 = sin ( x );
  y2 = sin ( x + pi / 10.0 );
  m = floor ( n / 10 );

  c = cross_corr ( n, y1, y2, m );

  r8vec_print ( m + 1, c, '  Correlations of y1=sin(x), y2=sin(x+pi/10) with lags 0, 1, 2, ...' );

  return
end
