FM811.f Source File


Contents

Source Code


Source Code

      PROGRAM FM811

C***********************************************************************00010811
C*****  FORTRAN 77                                                      00020811
C*****   FM811               YCMMX - (174)                              00030811
C*****                                                                  00040811
C***********************************************************************00050811
C*****  GENERAL PURPOSE                                         ANS REF 00060811
C*****    TESTS THE USE OF INTEGER, REAL, DOUBLE PRECISION,      15.10  00070811
C*****    AND COMPLEX EXPRESSIONS CONTAINING REFERENCE         (TABLE 5)00080811
C*****    TO THE INTRINSIC FUNCTIONS OF THE FULL LANGUAGE        6.1.4  00090811
C*****                                                                  00100811
C*****  GENERAL COMMENTS                                                00110811
C*****    SEGMENTS TESTING XINT, XREAL, XAINT, XABS, XAMOD,             00120811
C*****    XSIGN, XDIM, XMAX, XMIN, YIDINT, YSNGL                        00130811
C*****    YDINT, YDABS, YCABS, YDMOD, YDSIGN,                           00140811
C*****    YDMAX1, YDMIN1, YDBLE, YCONJG ASSUMED WORKING                 00150811
C*****                                                                  00160811
CBB** ********************** BBCCOMNT **********************************00170811
C****                                                                   00180811
C****            1978 FORTRAN COMPILER VALIDATION SYSTEM                00190811
C****                          VERSION 2.1                              00200811
C****                                                                   00210811
C****                                                                   00220811
C****           SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO         00230811
C****          NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY           00240811
C****               SOFTWARE STANDARDS VALIDATION GROUP                 00250811
C****                      BUILDING 225  RM A266                        00260811
C****                     GAITHERSBURG, MD  20899                       00270811
C****                                                                   00280811
C****                                                                   00290811
C****                                                                   00300811
CBE** ********************** BBCCOMNT **********************************00310811
C*****                                                                  00320811
C*****    S P E C I F I C A T I O N S  SEGMENT 174                      00330811
        DOUBLE PRECISION DYAVD, DYBVD, DYDVD, DVCORR                    00340811
        COMPLEX CYAVC, CYDVC, ZVCORR                                    00350811
        REAL R2E(2)                                                     00360811
        EQUIVALENCE (CYAVC,R2E)                                         00370811
C*****                                                                  00380811
CBB** ********************** BBCINITA **********************************00390811
C**** SPECIFICATION STATEMENTS                                          00400811
C****                                                                   00410811
      CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20,      00420811
     1          ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13      00430811
CBE** ********************** BBCINITA **********************************00440811
CBB** ********************** BBCINITB **********************************00450811
C**** INITIALIZE SECTION                                                00460811
      DATA  ZVERS,                  ZVERSD,             ZDATE           00470811
     1      /'VERSION 2.1  ',  '93/10/21*21.02.00',  '*NO DATE*TIME'/   00480811
      DATA       ZCOMPL,             ZNAME,             ZTAPE           00490811
     1      /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/      00500811
      DATA       ZPROJ,           ZTAPED,         ZPROG                 00510811
     1      /'*NO PROJECT*',   '*NO TAPE DATE',  'XXXXX'/               00520811
      DATA   REMRKS /'                               '/                 00530811
C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED   00540811
C**** FOR IDENTIFYING THE TEST ENVIRONMENT                              00550811
C****                                                                   00560811
CZ01  ZVERS  = 'VERSION OF THE COMPILER VALIDATION SYSTEM'              00570811
CZ02  ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM'   00580811
CZ03  ZPROG  = 'PROGRAM NAME'                                           00590811
CZ04  ZDATE  = 'DATE OF TEST'                                           00600811
CZ05  ZCOMPL = 'COMPILER IDENTIFICATION'                                00610811
CZ06  ZPROJ  = 'PROJECT NUMBER/IDENTIFICATION'                          00620811
CZ07  ZNAME  = 'NAME OF USER'                                           00630811
CZ08  ZTAPE  = 'TAPE OWNER/ID'                                          00640811
CZ09  ZTAPED = 'DATE TAPE COPIED'                                       00650811
C                                                                       00660811
      IVPASS = 0                                                        00670811
      IVFAIL = 0                                                        00680811
      IVDELE = 0                                                        00690811
      IVINSP = 0                                                        00700811
      IVTOTL = 0                                                        00710811
      IVTOTN = 0                                                        00720811
      ICZERO = 0                                                        00730811
C                                                                       00740811
C     I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER.         00750811
      I01 = 05                                                          00760811
C     I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER.             00770811
      I02 = 06                                                          00780811
C                                                                       00790811
CX010   REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00800811
C     THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5      00810811
CX011   REPLACED BY FEXEC X-011 CONTROL CARD.  CX011 IS FOR SYSTEMS     00820811
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010.  00830811
C                                                                       00840811
CX020   REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER).     00850811
C     THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6       00860811
CX021   REPLACED BY FEXEC X-021 CONTROL CARD.  CX021 IS FOR SYSTEMS     00870811
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020.  00880811
C                                                                       00890811
CBE** ********************** BBCINITB **********************************00900811
      NUVI = I02                                                        00910811
      IVTOTL = 10                                                       00920811
      ZPROG = 'FM811'                                                   00930811
CBB** ********************** BBCHED0A **********************************00940811
C****                                                                   00950811
C**** WRITE REPORT TITLE                                                00960811
C****                                                                   00970811
      WRITE (I02, 90002)                                                00980811
      WRITE (I02, 90006)                                                00990811
      WRITE (I02, 90007)                                                01000811
      WRITE (I02, 90008)  ZVERS, ZVERSD                                 01010811
      WRITE (I02, 90009)  ZPROG, ZPROG                                  01020811
      WRITE (I02, 90010)  ZDATE, ZCOMPL                                 01030811
CBE** ********************** BBCHED0A **********************************01040811
C*****                                                                  01050811
C*****    HEADER FOR SEGMENT 174 WRITTEN                                01060811
        WRITE (NUVI,17401)                                              01070811
17401   FORMAT(  " ", //1X, "YCMMX - (174) INTRINSIC FUNCTIONS--" //    01080811
     1         16X, "INTEGER, REAL, D.P." /                             01090811
     2         16X, "AND COMPLEX IN MIXED MODE EXPRESSIONS" //          01100811
     3         2X, "ANS REF. - 15.10" )                                 01110811
CBB** ********************** BBCHED0B **********************************01120811
C**** WRITE DETAIL REPORT HEADERS                                       01130811
C****                                                                   01140811
      WRITE (I02,90004)                                                 01150811
      WRITE (I02,90004)                                                 01160811
      WRITE (I02,90013)                                                 01170811
      WRITE (I02,90014)                                                 01180811
      WRITE (I02,90015) IVTOTL                                          01190811
CBE** ********************** BBCHED0B **********************************01200811
C*****                                                                  01210811
CT001*  TEST 1                                                    IDINT 01220811
           IVTNUM = 1                                                   01230811
        DYBVD = 5.2D0                                                   01240811
        CYAVC = IDINT(DYBVD) + (1.0, 2.0)                               01250811
           IF (R2E(1) - 5.9997) 20010, 40012, 40011                     01260811
40011      IF (R2E(1) - 6.0003) 40012, 40012, 20010                     01270811
40012      IF (R2E(2) - 1.9999) 20010, 10010, 40010                     01280811
40010      IF (R2E(2) - 2.0001) 10010, 10010, 20010                     01290811
10010      IVPASS = IVPASS + 1                                          01300811
           WRITE (NUVI, 80002) IVTNUM                                   01310811
           GO TO 0011                                                   01320811
20010      IVFAIL = IVFAIL + 1                                          01330811
           ZVCORR = (6.0, 2.0)                                          01340811
           WRITE (NUVI, 80045) IVTNUM, CYAVC, ZVCORR                    01350811
 0011      CONTINUE                                                     01360811
CT002*  TEST 2                                                     SNGL 01370811
           IVTNUM = 2                                                   01380811
        DYAVD = 5.5D0                                                   01390811
        CYAVC = SNGL(DYAVD) - (3.0, 4.0)                                01400811
           IF (R2E(1) - 2.4998) 20020, 40022, 40021                     01410811
40021      IF (R2E(1) - 2.5002) 40022, 40022, 20020                     01420811
40022      IF (R2E(2) + 4.0002) 20020, 10020, 40020                     01430811
40020      IF (R2E(2) + 3.9998) 10020, 10020, 20020                     01440811
10020      IVPASS = IVPASS + 1                                          01450811
           WRITE (NUVI, 80002) IVTNUM                                   01460811
           GO TO 0021                                                   01470811
20020      IVFAIL = IVFAIL + 1                                          01480811
           ZVCORR = (2.5, -4.0)                                         01490811
           WRITE (NUVI, 80045) IVTNUM, CYAVC, ZVCORR                    01500811
 0021      CONTINUE                                                     01510811
CT003*  TEST 3                                  SNGL, DINT, DNINT, CABS 01520811
           IVTNUM = 3                                                   01530811
        DYBVD = 5.8D0                                                   01540811
        RYAVS = SNGL(DINT(DYBVD) + DNINT(DYBVD)) * CABS((3.0, 4.0))     01550811
           IF (RYAVS - 54.997) 20030, 10030, 40030                      01560811
40030      IF (RYAVS - 55.003) 10030, 10030, 20030                      01570811
10030      IVPASS = IVPASS + 1                                          01580811
           WRITE (NUVI, 80002) IVTNUM                                   01590811
           GO TO 0031                                                   01600811
20030      IVFAIL = IVFAIL + 1                                          01610811
           RVCORR = 55.0                                                01620811
           WRITE (NUVI, 80012) IVTNUM, RYAVS, RVCORR                    01630811
 0031      CONTINUE                                                     01640811
CT004*  TEST 4                                            IDNINT, AIMAG 01650811
           IVTNUM = 4                                                   01660811
        CYDVC = (3.0, 4.0)                                              01670811
        DYBVD = 5.8D0                                                   01680811
        CYAVC = ((IDNINT(DYBVD) - CYDVC)) * AIMAG((4.0, 3.0))           01690811
           IF (R2E(1) - 8.9995) 20040, 40042, 40041                     01700811
40041      IF (R2E(1) - 9.0005) 40042, 40042, 20040                     01710811
40042      IF (R2E(2) + 12.001) 20040, 10040, 40040                     01720811
40040      IF (R2E(2) + 11.999) 10040, 10040, 20040                     01730811
10040      IVPASS = IVPASS + 1                                          01740811
           WRITE (NUVI, 80002) IVTNUM                                   01750811
           GO TO 0041                                                   01760811
20040      IVFAIL = IVFAIL + 1                                          01770811
           ZVCORR = (9.0, -12.0)                                        01780811
           WRITE (NUVI, 80045) IVTNUM, CYAVC, ZVCORR                    01790811
 0041      CONTINUE                                                     01800811
CT005*  TEST 5                                              CABS, CMPLX 01810811
           IVTNUM = 5                                                   01820811
        IYAVI = 5                                                       01830811
        RYAVS = CABS(CMPLX(3.0, 4.0)) / IYAVI                           01840811
           IF (RYAVS - 0.99995) 20050, 10050, 40050                     01850811
40050      IF (RYAVS - 1.0001) 10050, 10050, 20050                      01860811
10050      IVPASS = IVPASS + 1                                          01870811
           WRITE (NUVI, 80002) IVTNUM                                   01880811
           GO TO 0051                                                   01890811
20050      IVFAIL = IVFAIL + 1                                          01900811
           RVCORR = 1.0                                                 01910811
           WRITE (NUVI, 80012) IVTNUM, RYAVS, RVCORR                    01920811
 0051      CONTINUE                                                     01930811
CT006*  TEST 6                                        CONJG, SNGL, DMOD 01940811
           IVTNUM = 6                                                   01950811
        DYBVD = 5.0D0                                                   01960811
        DYDVD = 3.0D0                                                   01970811
        CYAVC = CONJG((3.0, 4.0)) * SNGL(DMOD(DYBVD, DYDVD))            01980811
           IF (R2E(1) - 5.9997) 20060, 40062, 40061                     01990811
40061      IF (R2E(1) - 6.0003) 40062, 40062, 20060                     02000811
40062      IF (R2E(2) + 8.0004) 20060, 10060, 40060                     02010811
40060      IF (R2E(2) + 7.9996) 10060, 10060, 20060                     02020811
10060      IVPASS = IVPASS + 1                                          02030811
           WRITE (NUVI, 80002) IVTNUM                                   02040811
           GO TO 0061                                                   02050811
20060      IVFAIL = IVFAIL + 1                                          02060811
           ZVCORR = (6.0, -8.0)                                         02070811
           WRITE (NUVI, 80045) IVTNUM, CYAVC, ZVCORR                    02080811
 0061      CONTINUE                                                     02090811
CT007*  TEST 7                                      DSIGN, AIMAG, CONJG 02100811
           IVTNUM = 7                                                   02110811
        CYDVC = (-3.0, -4.0)                                            02120811
        DYBVD = 4.0D0                                                   02130811
        DYDVD = 1.0D0                                                   02140811
        DYAVD = DSIGN(DYBVD, DYDVD) / AIMAG(CONJG(CYDVC))               02150811
           IF (DYAVD - 0.9999999995D0) 20070, 10070, 40070              02160811
40070      IF (DYAVD - 1.000000001D0) 10070, 10070, 20070               02170811
10070      IVPASS = IVPASS + 1                                          02180811
           WRITE (NUVI, 80002) IVTNUM                                   02190811
           GO TO 0071                                                   02200811
20070      IVFAIL = IVFAIL + 1                                          02210811
           DVCORR = 1.0D0                                               02220811
           WRITE (NUVI, 80031) IVTNUM, DYAVD, DVCORR                    02230811
 0071      CONTINUE                                                     02240811
CT008*  TEST 8                           DPROD, CABS, AIMAG, SNGL, DDIM 02250811
           IVTNUM = 8                                                   02260811
        CYDVC = (3.0, 4.0)                                              02270811
        DYBVD = -7.0D0                                                  02280811
        DYDVD = 3.0D0                                                   02290811
        DYAVD = DPROD(CABS(CYDVC + (-3.0, 3.0)),                        02300811
     1               AIMAG(CYDVC) + (SNGL(DDIM(DYBVD, DYDVD))))         02310811
           IF (DYAVD - 27.99999998D0) 20080, 10080, 40080               02320811
40080      IF (DYAVD - 28.00000002D0) 10080, 10080, 20080               02330811
10080      IVPASS = IVPASS + 1                                          02340811
           WRITE (NUVI, 80002) IVTNUM                                   02350811
           GO TO 0081                                                   02360811
20080      IVFAIL = IVFAIL + 1                                          02370811
           DVCORR = 28.0D0                                              02380811
           WRITE (NUVI, 80031) IVTNUM, DYAVD, DVCORR                    02390811
 0081      CONTINUE                                                     02400811
CT009*  TEST 9                                       AMAX1, CABS, AIMAG 02410811
           IVTNUM = 9                                                   02420811
        CYDVC = (3.0, 4.0)                                              02430811
        DYAVD = AMAX1(CABS(CYDVC), AIMAG(CYDVC * CYDVC))                02440811
           IF (DYAVD - 23.99999998D0) 20090, 10090, 40090               02450811
40090      IF (DYAVD - 24.00000002D0) 10090, 10090, 20090               02460811
10090      IVPASS = IVPASS + 1                                          02470811
           WRITE (NUVI, 80002) IVTNUM                                   02480811
           GO TO 0091                                                   02490811
20090      IVFAIL = IVFAIL + 1                                          02500811
           DVCORR = 24.0D0                                              02510811
           WRITE (NUVI, 80031) IVTNUM, DYAVD, DVCORR                    02520811
 0091      CONTINUE                                                     02530811
CT010*  TEST 10                                       AIMAG, ABS, AMIN0 02540811
           IVTNUM = 10                                                  02550811
        CYDVC = (3.0, -3.)                                              02560811
        IYBVI = 4                                                       02570811
        IYDVI = -3                                                      02580811
        CYAVC = ((3.0, 4.0) + AIMAG((3.0, 4.0))) *                      02590811
     1         (ABS(AMIN0(IYBVI, IYDVI)) - CYDVC)                       02600811
           IF (R2E(1) + 12.001) 20100, 40102, 40101                     02610811
40101      IF (R2E(1) + 11.999) 40102, 40102, 20100                     02620811
40102      IF (R2E(2) - 20.999) 20100, 10100, 40100                     02630811
40100      IF (R2E(2) - 21.001) 10100, 10100, 20100                     02640811
10100      IVPASS = IVPASS + 1                                          02650811
           WRITE (NUVI, 80002) IVTNUM                                   02660811
           GO TO 0101                                                   02670811
20100      IVFAIL = IVFAIL + 1                                          02680811
           ZVCORR = (-12.0, 21.0)                                       02690811
           WRITE (NUVI, 80045) IVTNUM, CYAVC, ZVCORR                    02700811
 0101      CONTINUE                                                     02710811
C*****                                                                  02720811
CBB** ********************** BBCSUM0  **********************************02730811
C**** WRITE OUT TEST SUMMARY                                            02740811
C****                                                                   02750811
      IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP                        02760811
      WRITE (I02, 90004)                                                02770811
      WRITE (I02, 90014)                                                02780811
      WRITE (I02, 90004)                                                02790811
      WRITE (I02, 90020) IVPASS                                         02800811
      WRITE (I02, 90022) IVFAIL                                         02810811
      WRITE (I02, 90024) IVDELE                                         02820811
      WRITE (I02, 90026) IVINSP                                         02830811
      WRITE (I02, 90028) IVTOTN, IVTOTL                                 02840811
CBE** ********************** BBCSUM0  **********************************02850811
CBB** ********************** BBCFOOT0 **********************************02860811
C**** WRITE OUT REPORT FOOTINGS                                         02870811
C****                                                                   02880811
      WRITE (I02,90016) ZPROG, ZPROG                                    02890811
      WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED                     02900811
      WRITE (I02,90019)                                                 02910811
CBE** ********************** BBCFOOT0 **********************************02920811
CBB** ********************** BBCFMT0A **********************************02930811
C**** FORMATS FOR TEST DETAIL LINES                                     02940811
C****                                                                   02950811
80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31)                           02960811
80002 FORMAT (" ",2X,I3,4X," PASS  ",32X,A31)                           02970811
80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31)                           02980811
80008 FORMAT (" ",2X,I3,4X," FAIL  ",32X,A31)                           02990811
80010 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",15X,"COMPUTED= " ,           03000811
     1I6,/," ",15X,"CORRECT=  " ,I6)                                    03010811
80012 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03020811
     1E12.5,/," ",16X,"CORRECT=  " ,E12.5)                              03030811
80018 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03040811
     1A21,/," ",16X,"CORRECT=  " ,A21)                                  03050811
80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31)                         03060811
80022 FORMAT (" ",16X,"CORRECT=  " ,A21,1X,A31)                         03070811
80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31)                         03080811
80026 FORMAT (" ",16X,"CORRECT=  " ,I6,16X,A31)                         03090811
80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31)                      03100811
80030 FORMAT (" ",16X,"CORRECT=  " ,E12.5,10X,A31)                      03110811
80050 FORMAT (" ",48X,A31)                                              03120811
CBE** ********************** BBCFMT0A **********************************03130811
CBB** ********************** BBCFMAT1 **********************************03140811
C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE                     03150811
C****                                                                   03160811
80031 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03170811
     1D17.10,/," ",16X,"CORRECT=  " ,D17.10)                            03180811
80033 FORMAT (" ",16X,"COMPUTED= " ,D17.10,10X,A31)                     03190811
80035 FORMAT (" ",16X,"CORRECT=  " ,D17.10,10X,A31)                     03200811
80037 FORMAT (" ",16X,"COMPUTED= " ,"(",E12.5,", ",E12.5,")",6X,A31)    03210811
80039 FORMAT (" ",16X,"CORRECT=  " ,"(",E12.5,", ",E12.5,")",6X,A31)    03220811
80041 FORMAT (" ",16X,"COMPUTED= " ,"(",F12.5,", ",F12.5,")",6X,A31)    03230811
80043 FORMAT (" ",16X,"CORRECT=  " ,"(",F12.5,", ",F12.5,")",6X,A31)    03240811
80045 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03250811
     1"(",F12.5,", ",F12.5,")"/," ",16X,"CORRECT=  " ,                  03260811
     2"(",F12.5,", ",F12.5,")")                                         03270811
CBE** ********************** BBCFMAT1 **********************************03280811
CBB** ********************** BBCFMT0B **********************************03290811
C**** FORMAT STATEMENTS FOR PAGE HEADERS                                03300811
C****                                                                   03310811
90002 FORMAT ("1")                                                      03320811
90004 FORMAT (" ")                                                      03330811
90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )03340811
90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" )            03350811
90008 FORMAT (" ",21X,A13,A17)                                          03360811
90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/)       03370811
90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17,"  -  COMPILER= " ,A20)    03380811
90013 FORMAT (" "," TEST   ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" ,     03390811
     1       7X,"REMARKS",24X)                                          03400811
90014 FORMAT (" ","----------------------------------------------" ,    03410811
     1        "---------------------------------" )                     03420811
90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/)               03430811
C****                                                                   03440811
C**** FORMAT STATEMENTS FOR REPORT FOOTINGS                             03450811
C****                                                                   03460811
90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/)          03470811
90018 FORMAT (" ",A13,13X,A20,"   *   ",A10,"/",                        03480811
     1        A13)                                                      03490811
90019 FORMAT (" ","FOR OFFICIAL USE ONLY     " ,35X,"COPYRIGHT  1982" ) 03500811
C****                                                                   03510811
C**** FORMAT STATEMENTS FOR RUN SUMMARY                                 03520811
C****                                                                   03530811
90020 FORMAT (" ",21X,I5," TESTS PASSED" )                              03540811
90022 FORMAT (" ",21X,I5," TESTS FAILED" )                              03550811
90024 FORMAT (" ",21X,I5," TESTS DELETED" )                             03560811
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" )                  03570811
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" )                  03580811
CBE** ********************** BBCFMT0B **********************************03590811
C*****                                                                  03600811
C*****    END OF TEST SEGMENT 174                                       03610811
        STOP                                                            03620811
        END                                                             03630811
                                                                        03640811