function ccs_to_ge_test01 ( )

%*****************************************************************************80
%
%% ccs_to_ge_test01() tests ccs_to_ge() using a 1-based CCS matrix.
%
%  Discussion:
%
%    This test uses a trivial matrix whose full representation is:
%
%          2  3  0  0  0
%          3  0  4  0  6
%      A = 0 -1 -3  2  0
%          0  0  1  0  0
%          0  4  2  0  1
%
%    The 1-based CCS representation is
%
%      #  ICC  CCC  ACC
%     --  ---  ---  ---
%      1    1    1    2
%      2    2         3
%
%      3    1    3    3
%      4    3        -1
%      5    5         4
%
%      6    2    6    4
%      7    3        -3
%      8    4         1
%      9    5         2
%
%     10    3   10    2
%
%     11    2   11    6
%     12    5         1
%
%     13    *   13
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    14 March 2026
%
%  Author:
%
%    John Burkardt
%
  m = 5;
  n = 5;
  nccs = 12;

  Accs = [ ...
    2.0,  3.0, ...
    3.0, -1.0,  4.0, ...
    4.0, -3.0,  1.0, 2.0, ...
    2.0, ...
    6.0, 1.0 ];
  cccs = [ ...
    1, 3, 6, 10, 11, 13 ];
  iccs = [ ...
    1, 2, ...
    1, 3, 5, ...
    2, 3, 4, 5, ...
    3, ...
    2, 5 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'ccs_to_ge_test01()\n' );
  fprintf ( 1, '  Convert a 1-based CCS matrix to GE format.\n' );
%
%  Print the CCS matrix.
%
  ccs_print ( m, n, nccs, iccs, cccs, Accs, '  The CCS matrix:' );
%
%  Convert it.
%
  Age = ccs_to_ge ( m, n, nccs, iccs, cccs, Accs );
%
%  Print the ST matrix.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, '  The GE matrix:\n' );
  disp ( Age )

  return
end
