function crs_to_st_test01 ( )

%*****************************************************************************80
%
%% crs_to_st_test01() tests crs_to_st() using a 1-based CRS matrix.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    24 March 2026
%
%  Author:
%
%    John Burkardt
%
  m = 5;
  n = 5;
  ncrs = 12;
  ccrs = [ ...
    1, 2, 5, ...
    2, 5, ...
    1, 3, ...
    1, 4, ...
    2, 3, 5 ];
  icrs = [ 1, 4, 6, 8, 10, 13 ];
  Acrs = [ 11.0, 12.0, 15.0, 22.0, 25.0, 31.0, 33.0, 41.0, 44.0, 52.0, 53.0, 55.0 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'crs_to_st_test01()\n' );
  fprintf ( 1, '  Convert a 1-based CRS matrix to ST format.\n' );
%
%  Print the CRS matrix.
%
  crs_print ( m, n, ncrs, icrs, ccrs, Acrs, '  The CRS matrix:' );
%
%  Convert it.
%
  [ nst, ist, jst, Ast ] = crs_to_st ( m, n, ncrs, icrs, ccrs, Acrs );
%
%  Print the ST matrix.
%
  st_print ( m, n, nst, ist, jst, Ast, '  The ST matrix:' )

  return
end
