function r8st_read_test ( )

%*****************************************************************************80
%
%% r8st_read_test() tests r8st_header_read(), r8st_data_read().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    26 September 2018
%
%  Author:
%
%    John Burkardt
%
  input_filename = 'kershaw_r8.st';

  fprintf ( 1, '\n' );
  fprintf ( 1, 'R8ST_READ_TEST\n' );
  fprintf ( 1, '  R8ST_HEADER_READ reads the header from an R8ST file.\n' );
  fprintf ( 1, '  R8ST_DATA_READ reads the data from an R8ST file.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Read the data from "%s".\n', input_filename );

  [ i_min, i_max, j_min, j_max, m, n, nst ] = r8st_header_read ( input_filename );

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

  [ ist, jst, ast ] = r8st_data_read ( input_filename, m, n, nst );

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

  return
end
