QXDBDF(3)

SYNOPSIS
SUBROUTINE QXDBDF (LUN, KPRINT, IPASS)

NAME
qxdbdf - Test the DEPAC routine DDEBDF.

LIBRARY
SLATEC

TYPE
DOUBLE PRECISION (QXBDF-S, QXDBDF-D)

KEYWORDS
QUICK CHECK

AUTHOR
Chow, Jeff, (LANL)

DESCRIPTION
*Usage: INTEGER LUN, KPRINT, IPASS CALL QXDBDF (LUN, KPRINT, IPASS) *Arguments: LUN :IN is the unit number to which output is to be written. KPRINT:IN controls the amount of output, as specified in the SLATEC Guidelines. IPASS:OUT will contain a pass/fail flag. IPASS=1 is good. IPASS=0 indicates one or more tests failed. *Description: DDEBDF is tested by solving the equations of motion of a body moving in a plane about a spherical earth, namely (D/DT)(D/DT)X = -G*X/R**3 (D/DT)(D/DT)Y = -G*Y/R**3 where G = 1, R = SQRT(X**2 + Y**2) and X(0) = 1 (D/DT)X(0) = 0 Y(0) = 0 (D/DT)Y(0) = 1.

ROUTINES CALLED
D1MACH, DDEBDF, DFDEQC, DJAC

REVISION HISTORY (YYMMDD)
810801 DATE WRITTEN
890618 REVISION DATE from Version 3.2
891214 Prologue converted to Version 4.0 format. (BAB)
900415 Code extensively revised. (WRB)