function ge_to_ccs_risk ( )

%*****************************************************************************80
%
%% ge_to_ccs_risk() converts the RISK matrix from GE to CCS format.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    12 March 2026
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'ge_to_ccs_risk():\n' );
  fprintf ( 1, '  ge_to_ccs_risk() converts a file of data for the game\n' );
  fprintf ( 1, '  of Risk from GE to CCS format.\n' );
  fprintf ( 1, '\n' );
%
%  The prefix is used to define the input and output filenames.
%
  prefix = 'risk';
%
%  Read the GE data.
%
  filename = strcat ( prefix, '_ge.txt' );
  Age = load ( filename ); 
%
%  Convert from GE to CCS format.
%
  [ nz_num, colptr, rowind, Accs ] = ge_to_ccs ( Age );
%
%  Write CCS data.
%
  ccs_write ( prefix, nz_num, colptr, rowind, Accs )

  return
end
