function digraph_arc_weight_print ( L, wnode, title )

%*****************************************************************************80
%
%% digraph_arc_weight_print() prints out a weighted digraph from an edge list.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    20 April 2026
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer L(edge_num,2), the beginning and end nodes of the edges.
%
%    real ( kind = rk8 ) WNODE(edge_num), the weights of the edges.
%
%    character ( len = * ) TITLE, a title.
%
  edge_num = size ( L, 1 );

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

  for i = 1 : edge_num
    fprintf ( 1, '%d8    %d8%d8%14.6g\n', i, L[i,1], L[i,2], wnode[i] );
  end

  return
end
