function i4st_read_test ( )

%*****************************************************************************80
%
%% i4st_read_test() tests i4st_header_read(), i4st_data_read().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    27 September 2018
%
%  Author:
%
%    John Burkardt
%
  filename = 'kershaw_i4.st';

  fprintf ( 1, '\n' );
  fprintf ( 1, 'I4ST_READ_TEST\n' );
  fprintf ( 1, '  I4ST_HEADER_READ reads the header from an I4ST file.\n' );
  fprintf ( 1, '  I4ST_DATA_READ reads the data from an I4ST file.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Read the data from "%s".\n', filename );

  [ i_min, i_max, j_min, j_max, m, n, nst ] = i4st_header_read ( filename );

  i4st_header_print ( i_min, i_max, j_min, j_max, m, n, nst );

  [ ist, jst, ast ] = i4st_data_read ( filename, m, n, nst );

  i4st_print ( m, n, nst, ist, jst, ast, '  Sparse Triplet data from file' );

  return
end
