function ccs_to_ge_test02 ( )

%*****************************************************************************80
%
%% ccs_to_ge_test02() tests ccs_to_ge) using a 0-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 0-based CCS representation is
%
%      #  ICC  CCC  ACC
%     --  ---  ---  ---
%      0    0    0    2
%      1    1         3
%
%      2    0    2    3
%      3    2        -1
%      4    4         4
%
%      5    1    5    4
%      6    2        -3
%      7    3         1
%      8    4         2
%
%      9    2    9    2
%
%     10    1   10    6
%     11    4         1
%
%     12    *   12
%
%  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 = [ ...
    0, 2, 5, 9, 10, 12 ];
  iccs = [ ...
    0, 1, ...
    0, 2, 4, ...
    1, 2, 3, 4, ...
    2, ...
    1, 4  ];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'ccs_to_ge_test02():\n' );
  fprintf ( 1, '  Convert a 0-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
