function value = poly2_fp ( xy )

%*****************************************************************************80
%
%% poly2_fp evaluates the jacobian of the poly2 function.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    21 September 2019
%
%  Input:
%
%    real xy(2), the argument.
%
%  Output:
%
%    real value(2,2), the jacobian matrix.
%
  x = xy(1);
  y = xy(2);

  value = [ ...
    2.0*x, 8.0*y; ...
   -28.0*x, 18.0 ];

  return
end

