function r8ge_to_r8ccs_test ( )

%*****************************************************************************80
%
%% r8ge_to_r8ccs_test() tests r8ge_to_r8ccs().
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    19 February 2026
%
%  Author:
%
%    John Burkardt
%
  m = 5;
  n = 5;
  Age = [ 11, 12, 13,  0, 15; ...
           0,  0, 23,  0,  0; ...
          31,  0, 33,  0, 35; ...
          41, 42,  0, 44,  0; ...
           0, 52,  0, 54, 55 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'r8ge_to_r8ccs_test():\n' );
  fprintf ( 1, '  r8ge_to_r8ccs() converts an r8g3 matrix to r8ccs format.\n' );

  r8ge_print ( m, n, Age, '  The R8GE matrix:' );

  [ nz_num, colptr, rowind, Accs ] = r8ge_to_r8ccs ( m, n, Age );

  r8ccs_print ( m, n, nz_num, colptr, rowind, Accs, '  The r8ccs matrix:' );


  return
end
