function mm_header_write ( output_unit, id, type, rep, field, symm )

%*****************************************************************************80
%
%% mm_header_write() prints header information to a Matrix Market file.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    30 April 2004
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer OUTPUT_UNIT, the output unit identifier.
%
%    character ID, the Matrix Market identifier.
%    This value must be '%%MatrixMarket'.
%
%    character TYPE, the Matrix Market type.
%    This value must be 'matrix'.
%
%    character REP, the Matrix Market 'representation'
%    indicator.  Possible values include:
%    'coordinate'   (for sparse data)
%    'array'        (for dense data)
%    'elemental'    (to be added)
%
%    character FIELD, the Matrix Market 'field'.
%    Possible values include:
%    'real'
%    'double'
%    'complex'
%    'integer'
%    'pattern'
%
%    character SYMM, the Matrix Market symmetry.
%    Possible values include:
%    'symmetric'
%    'hermitian'
%    'skew-symmetric'
%    'general'
%
  fprintf ( output_unit, '%s  %s  %s  %s  %s\n', ...
    id, type, rep, field, symm );

  return
end
