function c8mat_sft_test ( )

%*****************************************************************************80
%
%% c8mat_sft_test() tests c8mat_sftb() and c8mat_sftf().
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    21 June 2010
%
%  Author:
%
%    John Burkardt
%
  n1 = 10;
  n2 = 4;

  fprintf ( 1, '\n' );
  fprintf ( 1, 'C8MAT_SFT_TEST\n' );
  fprintf ( 1, '  C8MAT_SFTF computes the forward slow Fourier transform.\n' );
  fprintf ( 1, '  C8MAT_SFTB computes the backward slow Fourier transform.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  The data has dimension N1 = %d by N2 = %d\n', n1, n2 );

  x = c8mat_uniform_01 ( n1, n2 );

  c8mat_print_some ( n1, n2, x, 1, 1, 10, 10, '  The data X:' );
%
%  Compute the slow Fourier transform of the data.
%
  y = c8mat_sftf ( n1, n2, x );

  c8mat_print_some ( n1, n2, y, 1, 1, 10, 10, '  The Fourier coefficients Y:' );

  x2 = c8mat_sftb ( n1, n2, y );

  c8mat_print_some ( n1, n2, x2, 1, 1, 10, 10, '  The recovered data:' );

  return
end
