function value = trig2_fp ( xy )

%*****************************************************************************80
%
%% trig2_fp evaluates the jacobian of the trig2 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 = [ ...
    -sin(x), -1.0; ...
      1.0, -cos(y) ];

  return
end

