function yp = fpcube ( x )

%*****************************************************************************80
%
%% fpcube() sets the derivative of the cubic function.
%
%  Discussion:
%
%    Y(X) = ( ( X + 2 ) * X + 3 ) * X + 4
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    12 February 2004
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    real X, the argument.
%
%  Output:
%
%    real YP, the value of the derivative of the cubic function.
%
  yp = ( 3.0E+00 * x + 4.0E+00 ) * x + 3.0E+00;

  return
end
