function ccs_header_print ( icc, ccc, title )

%*****************************************************************************80
%
%% ccs_header_print() prints the header of a CCS matrix.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    26 June 2022
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer ICC(NCC), CCC(N+1), row and compressed column indices.
%
%    string TITLE: a title for the matrix.
%
  m = max ( icc );
  n = length ( ccc ) - 1;
  ncc = length ( icc );

  fprintf ( 1, '\n' );
  fprintf ( 1, '%s\n', title );
  fprintf ( 1, '  CCS matrix header:\n' );
  fprintf ( 1, '  Number of rows        M = %d\n', m );
  fprintf ( 1, '  Number of columns     N = %d\n', n );
  fprintf ( 1, '  Number of nonzeros  NCC = %d\n', ncc );
  fprintf ( 1, '  Compressed column indices:\n' )
  disp ( ccc );

  return
end
