function p04_header ( )

%*****************************************************************************80
%
%% p04_header prints some information about problem 04.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    12 April 2009
%
%  Author:
%
%    John Burkardt
%
%  Reference:
%
%    Per-Olof Persson and Gilbert Strang,
%    A Simple Mesh Generator in MATLAB,
%    SIAM Review,
%    Volume 46, Number 2, June 2004, pages 329-345.
%
  r1 = 1.0;
  r2 = 0.5;

  boundary_segment_num = p04_boundary_segment_num ( );  
  fixed_num = p04_fixed_num ( );
  hole_num = p04_hole_num ( );

  fprintf ( 1, '\n' );
  fprintf ( 1, 'P04:\n' );
  fprintf ( 1, '  Strang and Persson example #4\n' );
  fprintf ( 1, '  The hexagon with hexagonal hole.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Radius of outer hexagon R1 = %f\n', r1 );
  fprintf ( 1, '  Radius of outer hexagon R2 = %f\n', r2 );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  A uniform mesh density is requested.\n' );
  fprintf ( 1, '  Element sizes tried were ?\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Number of boundary segments = %d\n', boundary_segment_num );
  fprintf ( 1, '  Number of fixed points = %d\n', fixed_num );
  fprintf ( 1, '  Number of holes = %d\n', hole_num );

  return
end
