pro funkdef, X, A, F, PDER

  F = A(0)  -A(1)*X
  IF N_PARAMS() GE 4 THEN BEGIN
      pder = FLTARR(N_ELEMENTS(X), 2)
      pder(*, 0) = 1.0
      pder(*, 1) = -X
  ENDIF
END