TEST15(3)

SYNOPSIS
PROGRAM TEST15

NAME
test15 - Driver for testing SLATEC subprograms RC3JJ RC3JM RC6J

LIBRARY
SLATEC

CATEGORY
C19

TYPE
SINGLE PRECISION (TEST15-S, TEST16-D)

KEYWORDS
3J COEFFICIENTS, 3J SYMBOLS, 6J COEFFICIENTS, 6J SYMBOLS, CLEBSCH-GORDAN COEFFICIENTS, QUICK CHECK DRIVER, RACAH COEFFICIENTS, VECTOR ADDITION COEFFICIENTS, WIGNER COEFFICIENTS

AUTHOR
SLATEC Common Mathematical Library Committee

DESCRIPTION
*Usage: One input data record is required READ (LIN, '(I1)') KPRINT *Arguments: KPRINT = 0 Quick checks - No printing. Driver - Short pass or fail message printed. 1 Quick checks - No message printed for passed tests, short message printed for failed tests. Driver - Short pass or fail message printed. 2 Quick checks - Print short message for passed tests, fuller information for failed tests. Driver - Pass or fail message printed. 3 Quick checks - Print complete quick check results. Driver - Pass or fail message printed. *Description: Driver for testing SLATEC subprograms RC3JJ RC3JM RC6J

REFERENCES
Kirby W. Fong, Thomas H. Jefferson, Tokihiko Suyehiro and Lee Walton, Guide to the SLATEC Common Mathema- tical Library, April 10, 1990.

ROUTINES CALLED
I1MACH, QC36J, XERMAX, XSETF, XSETUN

REVISION HISTORY (YYMMDD)
891130 DATE WRITTEN