function triangle_integrands_test01 ( )

%*****************************************************************************80
%
%% triangle_integrands_test01() tests get_prob_num() and p00_title().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    09 April 2007
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'triangle_integrands_test01():\n' );
  fprintf ( 1, '  get_prob_num() reports the number of problems.\n' );
  fprintf ( 1, '  p00_title() returns a title for each problem.\n' );

  prob_num = get_prob_num ( );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  The number of problems available is %d\n', prob_num );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  The problem titles:\n' );
  fprintf ( 1, '\n' );

  for problem = 1 : prob_num

    title = p00_title ( problem );

    fprintf ( 1,'  %8d  %s\n', problem, title );

  end

  return
end
