1*DECK TEST12
2      PROGRAM TEST12
3C***BEGIN PROLOGUE  TEST12
4C***PURPOSE  Driver for testing SLATEC subprograms
5C***LIBRARY   SLATEC
6C***CATEGORY  A3D, C3A2, C7C, C9
7C***TYPE      DOUBLE PRECISION (TEST11-S, TEST12-D)
8C***KEYWORDS  QUICK CHECK DRIVER
9C***AUTHOR  SLATEC Common Mathematical Library Committee
10C***DESCRIPTION
11C
12C *Usage:
13C     One input data record is required
14C         READ (LIN, '(I1)') KPRINT
15C
16C *Arguments:
17C     KPRINT = 0  Quick checks - No printing.
18C                 Driver       - Short pass or fail message printed.
19C              1  Quick checks - No message printed for passed tests,
20C                                short message printed for failed tests.
21C                 Driver       - Short pass or fail message printed.
22C              2  Quick checks - Print short message for passed tests,
23C                                fuller information for failed tests.
24C                 Driver       - Pass or fail message printed.
25C              3  Quick checks - Print complete quick check results.
26C                 Driver       - Pass or fail message printed.
27C
28C *Description:
29C     Driver for testing SLATEC subprogram
30C        DXLEGF   DXNRMP
31C
32C***REFERENCES  Fong, Kirby W., Jefferson, Thomas H., Suyehiro,
33C                 Tokihiko, Walton, Lee, Guidelines to the SLATEC Common
34C                 Mathematical Library, March 21, 1989.
35C***ROUTINES CALLED  FCNQX2, I1MACH, XERMAX, XSETF, XSETUN
36C***REVISION HISTORY  (YYMMDD)
37C   901204  DATE WRITTEN
38C***END PROLOGUE  TEST12
39      INTEGER IPASS, KPRINT, LIN, LUN, NFAIL
40C***FIRST EXECUTABLE STATEMENT  TEST12
41      LUN = I1MACH(2)
42      LIN = I1MACH(1)
43      NFAIL = 0
44C
45C     Read KPRINT parameter
46C
47      READ (LIN, '(I1)') KPRINT
48      CALL XERMAX(1000)
49      CALL XSETUN(LUN)
50      IF (KPRINT .LE. 1) THEN
51         CALL XSETF(0)
52      ELSE
53         CALL XSETF(1)
54      ENDIF
55C
56C     Test DXLEGF and DXNRMP
57C
58      CALL FCNQX2 (LUN, KPRINT, IPASS)
59      IF (IPASS .EQ. 0) NFAIL = NFAIL + 1
60C
61C     Write PASS or FAIL message
62C
63      IF (NFAIL .EQ. 0) THEN
64         WRITE (LUN, 9000)
65      ELSE
66         WRITE (LUN, 9010) NFAIL
67      ENDIF
68      STOP
69 9000 FORMAT (/' --------------TEST12 PASSED ALL TESTS----------------')
70 9010 FORMAT (/' ************* WARNING -- ', I5,
71     1        ' TEST(S) FAILED IN PROGRAM TEST12  *************')
72      END
73