*DECK DDF
      SUBROUTINE DDF (N, T, Y, YP)
C***BEGIN PROLOGUE  DDF
C***SUBSIDIARY
C***PURPOSE  Quick check for SLATEC routines DDRIV1, DDRIV2 and DDRIV3.
C***LIBRARY   SLATEC (SDRIVE)
C***CATEGORY  I1A2, I1A1B
C***TYPE      DOUBLE PRECISION (SDF-S, DDF-D, CDF-C)
C***KEYWORDS  DDRIV1, DDRIV2, DDRIV3, QUICK CHECK, SDRIVE
C***AUTHOR  Kahaner, D. K., (NIST)
C             National Institute of Standards and Technology
C             Gaithersburg, MD  20899
C           Sutherland, C. D., (LANL)
C             Mail Stop D466
C             Los Alamos National Laboratory
C             Los Alamos, NM  87545
C***SEE ALSO  DDQCK
C***ROUTINES CALLED  (NONE)
C***REVISION HISTORY  (YYMMDD)
C   890405  DATE WRITTEN
C   890405  Revised to meet SLATEC standards.
C***END PROLOGUE  DDF
      DOUBLE PRECISION ALFA, T, Y(*), YP(*)
      INTEGER N
C***FIRST EXECUTABLE STATEMENT  DDF
      ALFA = Y(N+1)
      YP(1) = 1.D0 + ALFA*(Y(2) - Y(1)) - Y(1)*Y(3)
      YP(2) = ALFA*(Y(1) - Y(2)) - Y(2)*Y(3)
      YP(3) = 1.D0 - Y(3)*(Y(1) + Y(2))
      RETURN
      END

.