function crs_read_test ( )

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

  fprintf ( 1, '\n' );
  fprintf ( 1, 'crs_read_test():\n' );
  fprintf ( 1, '  Read a sparse matrix in CRS format from 3 files.\n' );
%
%  Read the matrix data.
%
  [ row, col, val, nz, n ] = crs_read ( prefix );
%
%  Print the matrix.
%
  crs_print ( n, nz, row, col, val, '  The matrix in 1-based CCS format:' );

  return
end
