function fft_cd_test ( )

%*****************************************************************************80
%
%% fft_cd_test tests fft_cd().
%
%  Reference:
%
%    Samuel Conte, Carl de Boor,
%    Elementary Numerical Analysis,
%    Third Edition,
%    SIAM, 2017,
%    ISBN: 978-1-611975-19-2.
%
% start simple

  fprintf ( 1, '\n' );
  fprintf ( 1, 'fft_cd_test:\n' );
  fprintf ( 1, '  Test fft_cd()\n' );

% [Z1,Z2,INZEE] = fft_cd(ones(1,8), zeros(1,8),1);
%t = (0:7)/8*2*pi; 
  t = (0:119)/120*2*pi; 
  [Z1,Z2,INZEE] = fft_cd(sin(t), sin(t),1);
  [Z3,Z4,newin] = fft_cd(Z1,Z2,INZEE);

  return
end

