function pwc_bars_2d_test ( )

%*****************************************************************************80
%
%% pwc_bars_2d_test() tests pwc_bars_2d().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 April 2019
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'pwc_bars_2d_test():\n' );
  fprintf ( 1, '  Test pwc_bars_2d()\n' );

  nxc = 5;
  nyc = 5;
  xc = [  0.0,  1.0,  2.0,  3.0,  4.0,  5.0 ];
  yc = [ 10.0, 11.0, 12.0, 13.0, 14.0, 15.0 ];
  vc = [ ...
    1, 16, 15, 14, 13; ...
    2, 17, 24, 23, 12; ...
    3, 18, 25, 22, 11; ...
    4, 19, 20, 21, 10; ...
    5,  6,  7,  8,  9 ];

  pwc_bars_2d ( nxc, nyc, xc, yc, vc );

  return
end
