function rcm_test08 ( )

%*****************************************************************************80
%
%% TEST08 tests TRIANGULATION_ORDER3_ADJ_COUNT
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    03 January 2007
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'TEST08\n' );
  fprintf ( 1, '  TRIANGULATION_ORDER3_ADJ_COUNT counts the (lower)\n' );
  fprintf ( 1, '  adjacencies defined by a triangulation.\n' );

  [ node_num, triangle_num, hole_num ] = ...
    triangulation_order3_example2_size ( );

  [ node_xy, triangle_node, triangle_neighbor ] = ...
    triangulation_order3_example2 ( node_num, triangle_num );

  i4mat_transpose_print ( 3, triangle_num, triangle_node, ...
    '  TRIANGLE_NODE' );

  [ adj_num, adj_row ] = triangulation_order3_adj_count ( node_num, ...
    triangle_num, triangle_node, triangle_neighbor );

  i4vec_print ( node_num+1, adj_row, '  ADJ_ROW' );

  return
end
