function A = graph_adj_cube ( )

%*****************************************************************************80
%
%% graph_adj_cube() sets up the adjacency matrix for the cube graph.
%
%  Diagram:
%
%      4-----7
%     /|    /|
%    8-----3 |
%    | |   | |
%    | 5---|-2
%    |/    |/
%    1-----6
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    26 April 2026
%
%  Author:
%
%    John Burkardt
%
%  Output:
%
%    integer A(8,8): the adjacency matrix.
%
  L = [ ...
    1, 5; ...
    1, 6; ...
    1, 8; ...
    2, 5; ...
    2, 6; ...
    2, 7; ...
    3, 6; ...
    3, 7; ...
    3, 8; ...
    4, 5; ...
    4, 7; ...
    4, 8 ];

  A = graph_arc_to_adj ( L );

  return
end
