function ge_to_crs_risk ( )

%*****************************************************************************80
%
%% ge_to_crs_risk() converts the RISK matrix from GE to CRS format.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    11 June 2022
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'ge_to_crs_risk():\n' );
  fprintf ( 1, '  ge_to_crs() converts a GE matrix to CRS format.\n' );
  fprintf ( 1, '  Read a file defining the RISK matrix in GE format.\n' );
  fprintf ( 1, '  Write files defining the RISK matrix in CRS format.\n' );
  fprintf ( 1, '\n' );
%
%  Read file of GE data.
%
  prefix = 'risk'
  filename = strcat ( prefix, '_ge.txt' );
  fprintf ( 1, '  Reading GE file "%s"\n', filename );
  A = load ( filename ); 
%
%  Convert from GE to CRS format.
%
  [ n, nz, row, col, val ] = ge_to_crs ( A );
%
%  Write CRS data.
%
  crs_write ( prefix, row, col, val );

  return
end
