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