*DECK CDF SUBROUTINE CDF (N, T, Y, YP) C***BEGIN PROLOGUE CDF C***SUBSIDIARY C***PURPOSE Quick check for SLATEC routines CDRIV1, CDRIV2 and CDRIV3. C***LIBRARY SLATEC (SDRIVE) C***CATEGORY I1A2, I1A1B C***TYPE COMPLEX (SDF-S, DDF-D, CDF-C) C***KEYWORDS CDRIV1, CDRIV2, CDRIV3, 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 CDQCK C***ROUTINES CALLED (NONE) C***REVISION HISTORY (YYMMDD) C 890405 DATE WRITTEN C 890405 Revised to meet SLATEC standards. C***END PROLOGUE CDF REAL T COMPLEX ALFA, Y(*), YP(*) INTEGER N C***FIRST EXECUTABLE STATEMENT CDF ALFA = Y(N+1) YP(1) = 1.E0 + ALFA*(Y(2) - Y(1)) - Y(1)*Y(3) YP(2) = ALFA*(Y(1) - Y(2)) - Y(2)*Y(3) YP(3) = 1.E0 - Y(3)*(Y(1) + Y(2)) RETURN END