function slap_header_write ( iunit, n, nelt, isym, irhs, isoln )

%*****************************************************************************80
%
%% slap_header_write writes the header line to a slap file.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    31 January 2014
%
%  Author:
%
%    John Burkardt
%
%  Reference:
%
%    Mark Seager,
%    A SLAP for the Masses,
%    Lawrence Livermore National Laboratory,
%    Technical Report UCRL-100267, December 1988.
%
%  Input:
%
%    integer IUNIT, the device to which
%    the matrix information is to be written.
%
%    integer N, the order of the matrix.
%
%    integer NELT, the number of non-zeros stored in A.
%
%    integer ISYM, indicates symmetric storage format.
%    * 0, all nonzero entries of the matrix are stored.
%    * 1, the matrix is symmetric, and only the lower triangle of
%      the matrix is stored.
%
%    integer IRHS, is 1 if a right hand side is included.
%
%    integer ISOLN, is 1 if a solution vector is included.
%
  fprintf ( iunit, '%10d%10d%10d%10d%10d\n', n, nelt, isym, irhs, isoln );

  return
end
