function graph_adj_degree_test ( )

%*****************************************************************************80
%
%% graph_adj_degree_test() tests graph_adj_degree().
%
%  Diagram:
%
%    5--2--10--1--3--6
%           |  |  | /
%           8  |  9
%           |  |  
%           4--7  
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    11 March 2023
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'graph_adj_degree_test():\n' );
  fprintf ( 1, '  graph_adj_degree() computes the degree of the nodes;\n' );

  A = [ ...
    0,0,1,0,0,0,1,0,0,1; ...
    0,0,0,0,1,0,0,0,0,1; ...
    1,0,0,0,0,1,0,0,1,0; ...
    0,0,0,0,0,0,1,1,0,0; ...
    0,1,0,0,0,0,0,0,0,0; ...
    0,0,1,0,0,0,0,0,1,0; ...
    1,0,0,1,0,0,0,0,0,0; ...
    0,0,0,1,0,0,0,0,0,1; ...
    0,0,1,0,0,1,0,0,0,0; ...
    1,1,0,0,0,0,0,1,0,0 ];
   
  fprintf ( 1, '\n' );
  fprintf ( 1, '  The graph adjacency matrix:\n' );
  disp ( A )

  degree = graph_adj_degree ( A );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  The node degrees:\n' );
  disp ( degree )
 
  return
end
