QXDABM(3)

SYNOPSIS
SUBROUTINE QXDABM (LUN, KPRINT, IPASS)

NAME
qxdabm - Test the DEPAC routine DDEABM.

LIBRARY
SLATEC

TYPE
DOUBLE PRECISION (QXABM-S, QXDABM-D)

KEYWORDS
QUICK CHECK

AUTHOR
Chow, Jeff, (LANL)

DESCRIPTION
*Usage: INTEGER LUN, KPRINT, IPASS CALL QXDABM (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: DDEABM 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, DDEABM, DFDEQC

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)