function diffusivity_2d_pwc_test ( )

%*****************************************************************************80
%
%% diffusivity_2d_pwc_test() tests diffusivity_2d_pwc().
%
%  Discussion:
%
%    This function calls diffusivity_2d_pwc_contour, which evaluates
%    diffusivity_2d_pwc() over a given [a,b]x[c,d] grid.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 March 2019
%
%  Author:
%
%    John Burkardt
%
  h = 5;
  w = 4;
  a = -1.0;
  b = +1.0;
  c = -1.0;
  d = +1.0;
  diffusivity_2d_pwc_contour ( h, w, a, b, c, d );

  return
end
