double fp1 ( double x )
//
//  FP1 evaluates the derivative of f1(x) = cos ( x ) - x.
//
{
  double value;

  value = - sin ( x ) - 1;

  return value;
}