function h = sphere_conserved ( xyz )

%*****************************************************************************80
%
%% sphere_conserved evaluates a quantity that should be conserved.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    01 November 2020
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    real XYZ(:,3): solution values.
%
%  Output:
%
%    real H(:): the value of a quantity that should be conserved.
%
  h = xyz(:,1).^2 + xyz(:,2).^2 + xyz(:,3).^2;

  return
end

