      PROGRAM FM822

C***********************************************************************00010822
C*****  FORTRAN 77                                                      00020822
C*****   FM822                                                          00030822
C*****                       YDTAN - (192)                              00040822
C*****                                                                  00050822
C***********************************************************************00060822
C*****  GENERAL PURPOSE                                         ANS REF 00070822
C*****    TEST INTRINSIC FUNCTION DTAN                           15.3   00080822
C*****                                                          TABLE 5 00090822
C*****                                                                  00100822
CBB** ********************** BBCCOMNT **********************************00110822
C****                                                                   00120822
C****            1978 FORTRAN COMPILER VALIDATION SYSTEM                00130822
C****                          VERSION 2.1                              00140822
C****                                                                   00150822
C****                                                                   00160822
C****           SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO         00170822
C****          NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY           00180822
C****               SOFTWARE STANDARDS VALIDATION GROUP                 00190822
C****                      BUILDING 225  RM A266                        00200822
C****                     GAITHERSBURG, MD  20899                       00210822
C****                                                                   00220822
C****                                                                   00230822
C****                                                                   00240822
CBE** ********************** BBCCOMNT **********************************00250822
C*****                                                                  00260822
C*****    S P E C I F I C A T I O N S SEGMENT 192                       00270822
        DOUBLE PRECISION AVD, BVD, PIVD, DVCORR                         00280822
C*****                                                                  00290822
CBB** ********************** BBCINITA **********************************00300822
C**** SPECIFICATION STATEMENTS                                          00310822
C****                                                                   00320822
      CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20,      00330822
     1          ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13      00340822
CBE** ********************** BBCINITA **********************************00350822
CBB** ********************** BBCINITB **********************************00360822
C**** INITIALIZE SECTION                                                00370822
      DATA  ZVERS,                  ZVERSD,             ZDATE           00380822
     1      /'VERSION 2.1  ',  '93/10/21*21.02.00',  '*NO DATE*TIME'/   00390822
      DATA       ZCOMPL,             ZNAME,             ZTAPE           00400822
     1      /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/      00410822
      DATA       ZPROJ,           ZTAPED,         ZPROG                 00420822
     1      /'*NO PROJECT*',   '*NO TAPE DATE',  'XXXXX'/               00430822
      DATA   REMRKS /'                               '/                 00440822
C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED   00450822
C**** FOR IDENTIFYING THE TEST ENVIRONMENT                              00460822
C****                                                                   00470822
CZ01  ZVERS  = 'VERSION OF THE COMPILER VALIDATION SYSTEM'              00480822
CZ02  ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM'   00490822
CZ03  ZPROG  = 'PROGRAM NAME'                                           00500822
CZ04  ZDATE  = 'DATE OF TEST'                                           00510822
CZ05  ZCOMPL = 'COMPILER IDENTIFICATION'                                00520822
CZ06  ZPROJ  = 'PROJECT NUMBER/IDENTIFICATION'                          00530822
CZ07  ZNAME  = 'NAME OF USER'                                           00540822
CZ08  ZTAPE  = 'TAPE OWNER/ID'                                          00550822
CZ09  ZTAPED = 'DATE TAPE COPIED'                                       00560822
C                                                                       00570822
      IVPASS = 0                                                        00580822
      IVFAIL = 0                                                        00590822
      IVDELE = 0                                                        00600822
      IVINSP = 0                                                        00610822
      IVTOTL = 0                                                        00620822
      IVTOTN = 0                                                        00630822
      ICZERO = 0                                                        00640822
C                                                                       00650822
C     I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER.         00660822
      I01 = 05                                                          00670822
C     I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER.             00680822
      I02 = 06                                                          00690822
C                                                                       00700822
CX010   REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00710822
C     THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5      00720822
CX011   REPLACED BY FEXEC X-011 CONTROL CARD.  CX011 IS FOR SYSTEMS     00730822
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010.  00740822
C                                                                       00750822
CX020   REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER).     00760822
C     THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6       00770822
CX021   REPLACED BY FEXEC X-021 CONTROL CARD.  CX021 IS FOR SYSTEMS     00780822
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020.  00790822
C                                                                       00800822
CBE** ********************** BBCINITB **********************************00810822
      NUVI = I02                                                        00820822
      IVTOTL = 14                                                       00830822
      ZPROG = 'FM822'                                                   00840822
CBB** ********************** BBCHED0A **********************************00850822
C****                                                                   00860822
C**** WRITE REPORT TITLE                                                00870822
C****                                                                   00880822
      WRITE (I02, 90002)                                                00890822
      WRITE (I02, 90006)                                                00900822
      WRITE (I02, 90007)                                                00910822
      WRITE (I02, 90008)  ZVERS, ZVERSD                                 00920822
      WRITE (I02, 90009)  ZPROG, ZPROG                                  00930822
      WRITE (I02, 90010)  ZDATE, ZCOMPL                                 00940822
CBE** ********************** BBCHED0A **********************************00950822
C*****                                                                  00960822
C*****    HEADER FOR SEGMENT 192                                        00970822
        WRITE(NUVI,19200)                                               00980822
19200   FORMAT(" ", / "  YDTAN - (192) INTRINSIC FUNCTIONS" //          00990822
     1         "  DTAN  (DOUBLE PRECISION TANGENT)" //                  01000822
     2         "  ANS REF. - 15.3" )                                    01010822
CBB** ********************** BBCHED0B **********************************01020822
C**** WRITE DETAIL REPORT HEADERS                                       01030822
C****                                                                   01040822
      WRITE (I02,90004)                                                 01050822
      WRITE (I02,90004)                                                 01060822
      WRITE (I02,90013)                                                 01070822
      WRITE (I02,90014)                                                 01080822
      WRITE (I02,90015) IVTOTL                                          01090822
CBE** ********************** BBCHED0B **********************************01100822
C*****                                                                  01110822
        PIVD = 3.1415926535897932384626434D0                            01120822
C*****                                                                  01130822
CT001*  TEST 1                            ZERO (0.0), SINCE TAN(0) = 0. 01140822
           IVTNUM = 1                                                   01150822
        BVD = 0.0D0                                                     01160822
        AVD = DTAN(BVD)                                                 01170822
           IF (AVD +  0.5000000000D-09) 20010, 10010, 40010             01180822
40010      IF (AVD -  0.5000000000D-09) 10010, 10010, 20010             01190822
10010      IVPASS = IVPASS + 1                                          01200822
           WRITE (NUVI, 80002) IVTNUM                                   01210822
           GO TO 0011                                                   01220822
20010      IVFAIL = IVFAIL + 1                                          01230822
           DVCORR =    0.00000000000000000000D+00                       01240822
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01250822
 0011      CONTINUE                                                     01260822
CT002*  TEST 2                                                     2*PI 01270822
           IVTNUM = 2                                                   01280822
        BVD = 6.28318530717958647692D0                                  01290822
        AVD = DTAN(BVD)                                                 01300822
           IF (AVD +  0.5000000000D-09) 20020, 10020, 40020             01310822
40020      IF (AVD -  0.5000000000D-09) 10020, 10020, 20020             01320822
10020      IVPASS = IVPASS + 1                                          01330822
           WRITE (NUVI, 80002) IVTNUM                                   01340822
           GO TO 0021                                                   01350822
20020      IVFAIL = IVFAIL + 1                                          01360822
           DVCORR =    0.00000000000000000000D+00                       01370822
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01380822
 0021      CONTINUE                                                     01390822
CT003*  TEST 3                                                     3*PI 01400822
           IVTNUM = 3                                                   01410822
        BVD = 9.42477796076937971538D0                                  01420822
        AVD = DTAN(BVD)                                                 01430822
           IF (AVD +  0.5000000000D-09) 20030, 10030, 40030             01440822
40030      IF (AVD -  0.5000000000D-09) 10030, 10030, 20030             01450822
10030      IVPASS = IVPASS + 1                                          01460822
           WRITE (NUVI, 80002) IVTNUM                                   01470822
           GO TO 0031                                                   01480822
20030      IVFAIL = IVFAIL + 1                                          01490822
           DVCORR =    0.00000000000000000000D+00                       01500822
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01510822
 0031      CONTINUE                                                     01520822
CT004*  TEST 4                                                     PI/4 01530822
           IVTNUM = 4                                                   01540822
        AVD = DTAN(PIVD / 4.0D0)                                        01550822
           IF (AVD -  0.9999999995D+00) 20040, 10040, 40040             01560822
40040      IF (AVD -  0.1000000001D+01) 10040, 10040, 20040             01570822
10040      IVPASS = IVPASS + 1                                          01580822
           WRITE (NUVI, 80002) IVTNUM                                   01590822
           GO TO 0041                                                   01600822
20040      IVFAIL = IVFAIL + 1                                          01610822
           DVCORR =    1.00000000000000000000D+00                       01620822
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01630822
 0041      CONTINUE                                                     01640822
CT005*  TEST 5                                                   5*PI/4 01650822
           IVTNUM = 5                                                   01660822
        BVD = 5.0D0 * PIVD / 4.0D0                                      01670822
        AVD = DTAN(BVD)                                                 01680822
           IF (AVD -  0.9999999995D+00) 20050, 10050, 40050             01690822
40050      IF (AVD -  0.1000000001D+01) 10050, 10050, 20050             01700822
10050      IVPASS = IVPASS + 1                                          01710822
           WRITE (NUVI, 80002) IVTNUM                                   01720822
           GO TO 0051                                                   01730822
20050      IVFAIL = IVFAIL + 1                                          01740822
           DVCORR =    1.00000000000000000000D+00                       01750822
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01760822
 0051      CONTINUE                                                     01770822
CT006*  TEST 6                                         A NEGATIVE VALUE 01780822
           IVTNUM = 6                                                   01790822
        BVD = -2.0D0 / 1.0D0                                            01800822
        AVD = DTAN(BVD)                                                 01810822
           IF (AVD -  0.2185039862D+01) 20060, 10060, 40060             01820822
40060      IF (AVD -  0.2185039865D+01) 10060, 10060, 20060             01830822
10060      IVPASS = IVPASS + 1                                          01840822
           WRITE (NUVI, 80002) IVTNUM                                   01850822
           GO TO 0061                                                   01860822
20060      IVFAIL = IVFAIL + 1                                          01870822
           DVCORR =    2.1850398632615189916D+00                        01880822
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01890822
 0061      CONTINUE                                                     01900822
CT007*  TEST 7                                         A POSITIVE VALUE 01910822
           IVTNUM = 7                                                   01920822
        BVD = 350.0D0 / 100.0D0                                         01930822
        AVD = DTAN(BVD)                                                 01940822
           IF (AVD -  0.3745856399D+00) 20070, 10070, 40070             01950822
40070      IF (AVD -  0.3745856404D+00) 10070, 10070, 20070             01960822
10070      IVPASS = IVPASS + 1                                          01970822
           WRITE (NUVI, 80002) IVTNUM                                   01980822
           GO TO 0071                                                   01990822
20070      IVFAIL = IVFAIL + 1                                          02000822
           DVCORR =    0.37458564015859466633D+00                       02010822
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02020822
 0071      CONTINUE                                                     02030822
CT008*  TEST 8                                           (PI / 2) - 1/8 02040822
           IVTNUM = 8                                                   02050822
        BVD = 1.44579632679489661923D0                                  02060822
        AVD = DTAN(BVD)                                                 02070822
           IF (AVD -  0.7958289861D+01) 20080, 10080, 40080             02080822
40080      IF (AVD -  0.7958289870D+01) 10080, 10080, 20080             02090822
10080      IVPASS = IVPASS + 1                                          02100822
           WRITE (NUVI, 80002) IVTNUM                                   02110822
           GO TO 0081                                                   02120822
20080      IVFAIL = IVFAIL + 1                                          02130822
           DVCORR =    7.9582898658670111779D+00                        02140822
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02150822
 0081      CONTINUE                                                     02160822
CT009*  TEST 9                                        (PI / 2) + 1/256  02170822
           IVTNUM = 9                                                   02180822
        BVD = 1.57470257679489661923D0                                  02190822
        AVD = DTAN(BVD)                                                 02200822
           IF (AVD +  0.2559986981D+03) 20090, 10090, 40090             02210822
40090      IF (AVD +  0.2559986977D+03) 10090, 10090, 20090             02220822
10090      IVPASS = IVPASS + 1                                          02230822
           WRITE (NUVI, 80002) IVTNUM                                   02240822
           GO TO 0091                                                   02250822
20090      IVFAIL = IVFAIL + 1                                          02260822
           DVCORR = -255.99869791534211708D+00                          02270822
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02280822
 0091      CONTINUE                                                     02290822
CT010*  TEST 10                                         3*PI/2 - 1/1024 02300822
           IVTNUM = 10                                                  02310822
        AVD = DTAN((3.0D0 * PIVD / 2.0D0) - 1.0D0 / 1024.0D0)           02320822
           IF (AVD -  0.1023999674D+04) 20100, 10100, 40100             02330822
40100      IF (AVD -  0.1023999675D+04) 10100, 10100, 20100             02340822
10100      IVPASS = IVPASS + 1                                          02350822
           WRITE (NUVI, 80002) IVTNUM                                   02360822
           GO TO 0101                                                   02370822
20100      IVFAIL = IVFAIL + 1                                          02380822
           DVCORR = 1023.9996744791459706D+00                           02390822
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02400822
 0101      CONTINUE                                                     02410822
CT011*  TEST 11                                             3*PI + 1/64 02420822
           IVTNUM = 11                                                  02430822
        BVD = (3.0D0 * PIVD / 2.0D0) + 1.0D0 / 64.0D0                   02440822
        AVD = DTAN(BVD)                                                 02450822
           IF (AVD +  0.6399479162D+02) 20110, 10110, 40110             02460822
40110      IF (AVD +  0.6399479155D+02) 10110, 10110, 20110             02470822
10110      IVPASS = IVPASS + 1                                          02480822
           WRITE (NUVI, 80002) IVTNUM                                   02490822
           GO TO 0111                                                   02500822
20110      IVFAIL = IVFAIL + 1                                          02510822
           DVCORR =  -63.994791581893645218D+00                         02520822
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02530822
 0111      CONTINUE                                                     02540822
CT012*  TEST 12                  LARGE VALUE TO TEST ARGUMENT REDUCTION 02550822
           IVTNUM = 12                                                  02560822
        AVD = DTAN(2000.0D0)                                            02570822
           IF (AVD +  0.2530998330D+01) 20120, 10120, 40120             02580822
40120      IF (AVD +  0.2530998326D+01) 10120, 10120, 20120             02590822
10120      IVPASS = IVPASS + 1                                          02600822
           WRITE (NUVI, 80002) IVTNUM                                   02610822
           GO TO 0121                                                   02620822
20120      IVFAIL = IVFAIL + 1                                          02630822
           DVCORR =   -2.5309983280933409104D+00                        02640822
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02650822
 0121      CONTINUE                                                     02660822
CT013*  TEST 13                               ARGUMENT OF LOW MAGNITUDE 02670822
           IVTNUM = 13                                                  02680822
        BVD = PIVD * 1.0D-15                                            02690822
        AVD = DTAN(BVD)                                                 02700822
           IF (AVD -  0.3141592652D-14) 20130, 10130, 40130             02710822
40130      IF (AVD -  0.3141592655D-14) 10130, 10130, 20130             02720822
10130      IVPASS = IVPASS + 1                                          02730822
           WRITE (NUVI, 80002) IVTNUM                                   02740822
           GO TO 0131                                                   02750822
20130      IVFAIL = IVFAIL + 1                                          02760822
           DVCORR =    3.1415926535897932385D-15                        02770822
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02780822
 0131      CONTINUE                                                     02790822
CT014*  TEST 14                              THE FUNCTION APPLIED TWICE 02800822
           IVTNUM = 14                                                  02810822
        AVD = DTAN(PIVD / 6.0D0) * DTAN(PIVD / 6.0D0)                   02820822
           IF (AVD -  0.3333333331D+00) 20140, 10140, 40140             02830822
40140      IF (AVD -  0.3333333335D+00) 10140, 10140, 20140             02840822
10140      IVPASS = IVPASS + 1                                          02850822
           WRITE (NUVI, 80002) IVTNUM                                   02860822
           GO TO 0141                                                   02870822
20140      IVFAIL = IVFAIL + 1                                          02880822
           DVCORR =    0.33333333333333333333D+00                       02890822
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02900822
 0141      CONTINUE                                                     02910822
C*****                                                                  02920822
CBB** ********************** BBCSUM0  **********************************02930822
C**** WRITE OUT TEST SUMMARY                                            02940822
C****                                                                   02950822
      IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP                        02960822
      WRITE (I02, 90004)                                                02970822
      WRITE (I02, 90014)                                                02980822
      WRITE (I02, 90004)                                                02990822
      WRITE (I02, 90020) IVPASS                                         03000822
      WRITE (I02, 90022) IVFAIL                                         03010822
      WRITE (I02, 90024) IVDELE                                         03020822
      WRITE (I02, 90026) IVINSP                                         03030822
      WRITE (I02, 90028) IVTOTN, IVTOTL                                 03040822
CBE** ********************** BBCSUM0  **********************************03050822
CBB** ********************** BBCFOOT0 **********************************03060822
C**** WRITE OUT REPORT FOOTINGS                                         03070822
C****                                                                   03080822
      WRITE (I02,90016) ZPROG, ZPROG                                    03090822
      WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED                     03100822
      WRITE (I02,90019)                                                 03110822
CBE** ********************** BBCFOOT0 **********************************03120822
CBB** ********************** BBCFMT0A **********************************03130822
C**** FORMATS FOR TEST DETAIL LINES                                     03140822
C****                                                                   03150822
80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31)                           03160822
80002 FORMAT (" ",2X,I3,4X," PASS  ",32X,A31)                           03170822
80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31)                           03180822
80008 FORMAT (" ",2X,I3,4X," FAIL  ",32X,A31)                           03190822
80010 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",15X,"COMPUTED= " ,           03200822
     1I6,/," ",15X,"CORRECT=  " ,I6)                                    03210822
80012 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03220822
     1E12.5,/," ",16X,"CORRECT=  " ,E12.5)                              03230822
80018 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03240822
     1A21,/," ",16X,"CORRECT=  " ,A21)                                  03250822
80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31)                         03260822
80022 FORMAT (" ",16X,"CORRECT=  " ,A21,1X,A31)                         03270822
80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31)                         03280822
80026 FORMAT (" ",16X,"CORRECT=  " ,I6,16X,A31)                         03290822
80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31)                      03300822
80030 FORMAT (" ",16X,"CORRECT=  " ,E12.5,10X,A31)                      03310822
80050 FORMAT (" ",48X,A31)                                              03320822
CBE** ********************** BBCFMT0A **********************************03330822
CBB** ********************** BBCFMAT1 **********************************03340822
C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE                     03350822
C****                                                                   03360822
80031 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03370822
     1D17.10,/," ",16X,"CORRECT=  " ,D17.10)                            03380822
80033 FORMAT (" ",16X,"COMPUTED= " ,D17.10,10X,A31)                     03390822
80035 FORMAT (" ",16X,"CORRECT=  " ,D17.10,10X,A31)                     03400822
80037 FORMAT (" ",16X,"COMPUTED= " ,"(",E12.5,", ",E12.5,")",6X,A31)    03410822
80039 FORMAT (" ",16X,"CORRECT=  " ,"(",E12.5,", ",E12.5,")",6X,A31)    03420822
80041 FORMAT (" ",16X,"COMPUTED= " ,"(",F12.5,", ",F12.5,")",6X,A31)    03430822
80043 FORMAT (" ",16X,"CORRECT=  " ,"(",F12.5,", ",F12.5,")",6X,A31)    03440822
80045 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03450822
     1"(",F12.5,", ",F12.5,")"/," ",16X,"CORRECT=  " ,                  03460822
     2"(",F12.5,", ",F12.5,")")                                         03470822
CBE** ********************** BBCFMAT1 **********************************03480822
CBB** ********************** BBCFMT0B **********************************03490822
C**** FORMAT STATEMENTS FOR PAGE HEADERS                                03500822
C****                                                                   03510822
90002 FORMAT ("1")                                                      03520822
90004 FORMAT (" ")                                                      03530822
90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )03540822
90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" )            03550822
90008 FORMAT (" ",21X,A13,A17)                                          03560822
90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/)       03570822
90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17,"  -  COMPILER= " ,A20)    03580822
90013 FORMAT (" "," TEST   ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" ,     03590822
     1       7X,"REMARKS",24X)                                          03600822
90014 FORMAT (" ","----------------------------------------------" ,    03610822
     1        "---------------------------------" )                     03620822
90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/)               03630822
C****                                                                   03640822
C**** FORMAT STATEMENTS FOR REPORT FOOTINGS                             03650822
C****                                                                   03660822
90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/)          03670822
90018 FORMAT (" ",A13,13X,A20,"   *   ",A10,"/",                        03680822
     1        A13)                                                      03690822
90019 FORMAT (" ","FOR OFFICIAL USE ONLY     " ,35X,"COPYRIGHT  1982" ) 03700822
C****                                                                   03710822
C**** FORMAT STATEMENTS FOR RUN SUMMARY                                 03720822
C****                                                                   03730822
90020 FORMAT (" ",21X,I5," TESTS PASSED" )                              03740822
90022 FORMAT (" ",21X,I5," TESTS FAILED" )                              03750822
90024 FORMAT (" ",21X,I5," TESTS DELETED" )                             03760822
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" )                  03770822
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" )                  03780822
CBE** ********************** BBCFMT0B **********************************03790822
C*****                                                                  03800822
C*****    END OF TEST SEGMENT 192                                       03810822
      STOP                                                              03820822
      END                                                               03830822