function pagerankpow_test ( )

%*****************************************************************************80
%
%% pagerankpow_test tests pagerankpow.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 January 2020
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'pagerankpow_test\n' );
  fprintf ( 1, '  Test pagerankpow.\n' );

  load ( 'harvard500.mat' );

  [ x, cnt ] = pagerankpow ( G );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  %d power method iterations were used.\n', cnt );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Page  Ranking\n' );
  fprintf ( 1, '\n' );
  for i = 1 : 500
    fprintf ( 1, '  %3d  %f\n', i, x(i) );
  end 
  return
end

