function ccs_read_test ( )

%*****************************************************************************80
%
%% ccs_read_test() tests ccs_read()
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    08 June 2022
%
%  Author:
%
%    John Burkardt
%
  prefix = 'simple';

  fprintf ( 1, '\n' );
  fprintf ( 1, 'ccs_read_test():\n' );
  fprintf ( 1, '  Read a sparse matrix in CCS format from 3 files.\n' );
%
%  Read the matrix data.
%
  [ icc, ccc, acc, ncc, n ] = ccs_read ( prefix );
%
%  Print the matrix.
%
  m = n;
  ccs_print ( m, n, ncc, icc, ccc, acc, '  The matrix in 1-based CCS format:' );

  return
end
