| PROGRAM FM806 |
| |
| C***********************************************************************00010806 |
| C***** FORTRAN 77 00020806 |
| C***** FM806 YDMAX1 - (166) 00030806 |
| C***** 00040806 |
| C***********************************************************************00050806 |
| C***** GENERAL PURPOSE ANS REF 00060806 |
| C***** TEST OF INTRINSIC FUNCTION -- 15.3 00070806 |
| C***** DMAX1 -- CHOOSING LARGEST VALUE (TABLE 5)00080806 |
| C***** 00090806 |
| CBB** ********************** BBCCOMNT **********************************00100806 |
| C**** 00110806 |
| C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120806 |
| C**** VERSION 2.1 00130806 |
| C**** 00140806 |
| C**** 00150806 |
| C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160806 |
| C**** NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170806 |
| C**** SOFTWARE STANDARDS VALIDATION GROUP 00180806 |
| C**** BUILDING 225 RM A266 00190806 |
| C**** GAITHERSBURG, MD 20899 00200806 |
| C**** 00210806 |
| C**** 00220806 |
| C**** 00230806 |
| CBE** ********************** BBCCOMNT **********************************00240806 |
| C***** S P E C I F I C A T I O N S SEGMENT 166 00250806 |
| DOUBLE PRECISION DTAVD, DTBVD, DTCVD, DTDVD, DTEVD, DVCORR 00260806 |
| C***** 00270806 |
| CBB** ********************** BBCINITA **********************************00280806 |
| C**** SPECIFICATION STATEMENTS 00290806 |
| C**** 00300806 |
| CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00310806 |
| 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00320806 |
| CBE** ********************** BBCINITA **********************************00330806 |
| CBB** ********************** BBCINITB **********************************00340806 |
| C**** INITIALIZE SECTION 00350806 |
| DATA ZVERS, ZVERSD, ZDATE 00360806 |
| 1 /'VERSION 2.1 ', '93/10/21*21.02.00', '*NO DATE*TIME'/ 00370806 |
| DATA ZCOMPL, ZNAME, ZTAPE 00380806 |
| 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00390806 |
| DATA ZPROJ, ZTAPED, ZPROG 00400806 |
| 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00410806 |
| DATA REMRKS /' '/ 00420806 |
| C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00430806 |
| C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00440806 |
| C**** 00450806 |
| CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00460806 |
| CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00470806 |
| CZ03 ZPROG = 'PROGRAM NAME' 00480806 |
| CZ04 ZDATE = 'DATE OF TEST' 00490806 |
| CZ05 ZCOMPL = 'COMPILER IDENTIFICATION' 00500806 |
| CZ06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00510806 |
| CZ07 ZNAME = 'NAME OF USER' 00520806 |
| CZ08 ZTAPE = 'TAPE OWNER/ID' 00530806 |
| CZ09 ZTAPED = 'DATE TAPE COPIED' 00540806 |
| C 00550806 |
| IVPASS = 0 00560806 |
| IVFAIL = 0 00570806 |
| IVDELE = 0 00580806 |
| IVINSP = 0 00590806 |
| IVTOTL = 0 00600806 |
| IVTOTN = 0 00610806 |
| ICZERO = 0 00620806 |
| C 00630806 |
| C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00640806 |
| I01 = 05 00650806 |
| C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00660806 |
| I02 = 06 00670806 |
| C 00680806 |
| CX010 REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00690806 |
| C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00700806 |
| CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00710806 |
| C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00720806 |
| C 00730806 |
| CX020 REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER). 00740806 |
| C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00750806 |
| CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00760806 |
| C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00770806 |
| C 00780806 |
| CBE** ********************** BBCINITB **********************************00790806 |
| NUVI = I02 00800806 |
| IVTOTL = 12 00810806 |
| ZPROG = 'FM806' 00820806 |
| CBB** ********************** BBCHED0A **********************************00830806 |
| C**** 00840806 |
| C**** WRITE REPORT TITLE 00850806 |
| C**** 00860806 |
| WRITE (I02, 90002) 00870806 |
| WRITE (I02, 90006) 00880806 |
| WRITE (I02, 90007) 00890806 |
| WRITE (I02, 90008) ZVERS, ZVERSD 00900806 |
| WRITE (I02, 90009) ZPROG, ZPROG 00910806 |
| WRITE (I02, 90010) ZDATE, ZCOMPL 00920806 |
| CBE** ********************** BBCHED0A **********************************00930806 |
| C***** 00940806 |
| WRITE (NUVI,16601) 00950806 |
| 16601 FORMAT (" ", // 1X,"YDMAX1 - (166) INTRINSIC FUNCTION-- " //17X,00960806 |
| 1 "DMAX1 (CHOOSING LARGEST VALUE)" //2X, 00970806 |
| 2 "ANS REF. - 15.3" ) 00980806 |
| CBB** ********************** BBCHED0B **********************************00990806 |
| C**** WRITE DETAIL REPORT HEADERS 01000806 |
| C**** 01010806 |
| WRITE (I02,90004) 01020806 |
| WRITE (I02,90004) 01030806 |
| WRITE (I02,90013) 01040806 |
| WRITE (I02,90014) 01050806 |
| WRITE (I02,90015) IVTOTL 01060806 |
| CBE** ********************** BBCHED0B **********************************01070806 |
| C***** 01080806 |
| CT001* TEST 1 BOTH ZEROES 01090806 |
| IVTNUM = 1 01100806 |
| DTBVD = 0.0D0 01110806 |
| DTDVD = 0.0D0 01120806 |
| DTAVD = DMAX1(DTBVD, DTDVD) 01130806 |
| IF (DTAVD + 5.0D-10) 20010, 10010, 40010 01140806 |
| 40010 IF (DTAVD - 5.0D-10) 10010, 10010, 20010 01150806 |
| 10010 IVPASS = IVPASS + 1 01160806 |
| WRITE (NUVI, 80002) IVTNUM 01170806 |
| GO TO 0011 01180806 |
| 20010 IVFAIL = IVFAIL + 1 01190806 |
| DVCORR = 0.0D0 01200806 |
| WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 01210806 |
| 0011 CONTINUE 01220806 |
| CT002* TEST 2 ONE NON-ZERO, ONE ZERO 01230806 |
| IVTNUM = 2 01240806 |
| DTBVD = 5.625D0 01250806 |
| DTDVD = 0.0D0 01260806 |
| DTAVD = DMAX1(DTBVD, DTDVD) 01270806 |
| IF (DTAVD - 5.624999997D0) 20020, 10020, 40020 01280806 |
| 40020 IF (DTAVD - 5.625000003D0) 10020, 10020, 20020 01290806 |
| 10020 IVPASS = IVPASS + 1 01300806 |
| WRITE (NUVI, 80002) IVTNUM 01310806 |
| GO TO 0021 01320806 |
| 20020 IVFAIL = IVFAIL + 1 01330806 |
| DVCORR = 5.625D0 01340806 |
| WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 01350806 |
| 0021 CONTINUE 01360806 |
| CT003* TEST 3 BOTH VALUES EQUAL 01370806 |
| IVTNUM = 3 01380806 |
| DTBVD = 6.5D0 01390806 |
| DTDVD = 6.5D0 01400806 |
| DTAVD = DMAX1(DTBVD, DTDVD) 01410806 |
| IF (DTAVD - 6.499999996D0) 20030, 10030, 40030 01420806 |
| 40030 IF (DTAVD - 6.500000004D0) 10030, 10030, 20030 01430806 |
| 10030 IVPASS = IVPASS + 1 01440806 |
| WRITE (NUVI, 80002) IVTNUM 01450806 |
| GO TO 0031 01460806 |
| 20030 IVFAIL = IVFAIL + 1 01470806 |
| DVCORR = 6.5D0 01480806 |
| WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 01490806 |
| 0031 CONTINUE 01500806 |
| CT004* TEST 4 VALUES NOT EQUAL 01510806 |
| IVTNUM = 4 01520806 |
| DTBVD = 7.125D0 01530806 |
| DTDVD = 5.125D0 01540806 |
| DTAVD = DMAX1(DTBVD, DTDVD) 01550806 |
| IF (DTAVD - 7.124999996D0) 20040, 10040, 40040 01560806 |
| 40040 IF (DTAVD - 7.125000004D0) 10040, 10040, 20040 01570806 |
| 10040 IVPASS = IVPASS + 1 01580806 |
| WRITE (NUVI, 80002) IVTNUM 01590806 |
| GO TO 0041 01600806 |
| 20040 IVFAIL = IVFAIL + 1 01610806 |
| DVCORR = 7.125D0 01620806 |
| WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 01630806 |
| 0041 CONTINUE 01640806 |
| CT005* TEST 5 ONE VALUE ZERO, ONE NEGATIVE 01650806 |
| IVTNUM = 5 01660806 |
| DTBVD = -5.625D0 01670806 |
| DTDVD = 0.0D0 01680806 |
| DTAVD = DMAX1(DTBVD, DTDVD) 01690806 |
| IF (DTAVD + 5.0D-10) 20050, 10050, 40050 01700806 |
| 40050 IF (DTAVD - 5.0D-10) 10050, 10050, 20050 01710806 |
| 10050 IVPASS = IVPASS + 1 01720806 |
| WRITE (NUVI, 80002) IVTNUM 01730806 |
| GO TO 0051 01740806 |
| 20050 IVFAIL = IVFAIL + 1 01750806 |
| DVCORR = 0.0D0 01760806 |
| WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 01770806 |
| 0051 CONTINUE 01780806 |
| CT006* TEST 6 BOTH VALUES EQUAL, BOTH NEGATIVE 01790806 |
| IVTNUM = 6 01800806 |
| DTBVD = -6.5D0 01810806 |
| DTDVD = -6.5D0 01820806 |
| DTAVD = DMAX1(DTBVD, DTDVD) 01830806 |
| IF (DTAVD + 6.500000004D0) 20060, 10060, 40060 01840806 |
| 40060 IF (DTAVD + 6.499999996D0) 10060, 10060, 20060 01850806 |
| 10060 IVPASS = IVPASS + 1 01860806 |
| WRITE (NUVI, 80002) IVTNUM 01870806 |
| GO TO 0061 01880806 |
| 20060 IVFAIL = IVFAIL + 1 01890806 |
| DVCORR = -6.5D0 01900806 |
| WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 01910806 |
| 0061 CONTINUE 01920806 |
| CT007* TEST 7 VALUES NOT EQUAL, BOTH NEGATIVE 01930806 |
| IVTNUM = 7 01940806 |
| DTBVD = -7.125D0 01950806 |
| DTDVD = -5.125D0 01960806 |
| DTAVD = DMAX1(DTBVD, DTDVD) 01970806 |
| IF (DTAVD + 5.125000003D0) 20070, 10070, 40070 01980806 |
| 40070 IF (DTAVD + 5.124999997D0) 10070, 10070, 20070 01990806 |
| 10070 IVPASS = IVPASS + 1 02000806 |
| WRITE (NUVI, 80002) IVTNUM 02010806 |
| GO TO 0071 02020806 |
| 20070 IVFAIL = IVFAIL + 1 02030806 |
| DVCORR = -5.125D0 02040806 |
| WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 02050806 |
| 0071 CONTINUE 02060806 |
| CT008* TEST 8 1ST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 02070806 |
| IVTNUM = 8 02080806 |
| DTDVD = 5.625D0 02090806 |
| DTEVD = 0.0D0 02100806 |
| DTAVD = DMAX1(DTDVD, -DTEVD) 02110806 |
| IF (DTAVD - 5.624999997D0) 20080, 10080, 40080 02120806 |
| 40080 IF (DTAVD - 5.625000003D0) 10080, 10080, 20080 02130806 |
| 10080 IVPASS = IVPASS + 1 02140806 |
| WRITE (NUVI, 80002) IVTNUM 02150806 |
| GO TO 0081 02160806 |
| 20080 IVFAIL = IVFAIL + 1 02170806 |
| DVCORR = 5.625D0 02180806 |
| WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 02190806 |
| 0081 CONTINUE 02200806 |
| CT009* TEST 9 ARITHMETIC EXPRESSIONS PRESENTED TO FUNCTION 02210806 |
| IVTNUM = 9 02220806 |
| DTDVD = 3.5D0 02230806 |
| DTEVD = 4.0D0 02240806 |
| DTAVD = DMAX1(DTDVD + DTEVD, -DTEVD - DTDVD) 02250806 |
| IF (DTAVD - 7.499999996D0) 20090, 10090, 40090 02260806 |
| 40090 IF (DTAVD - 7.500000004D0) 10090, 10090, 20090 02270806 |
| 10090 IVPASS = IVPASS + 1 02280806 |
| WRITE (NUVI, 80002) IVTNUM 02290806 |
| GO TO 0091 02300806 |
| 20090 IVFAIL = IVFAIL + 1 02310806 |
| DVCORR = 7.5D0 02320806 |
| WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 02330806 |
| 0091 CONTINUE 02340806 |
| CT010* TEST 10 3 ARGUMENTS 02350806 |
| IVTNUM = 10 02360806 |
| DTBVD = 0.0D0 02370806 |
| DTCVD = -1.99D0 02380806 |
| DTAVD = DMAX1(DTCVD, DTBVD, -DTCVD) 02390806 |
| IF (DTAVD - 1.98999999D0) 20100, 10100, 40100 02400806 |
| 40100 IF (DTAVD - 1.99000001D0) 10100, 10100, 20100 02410806 |
| 10100 IVPASS = IVPASS + 1 02420806 |
| WRITE (NUVI, 80002) IVTNUM 02430806 |
| GO TO 0101 02440806 |
| 20100 IVFAIL = IVFAIL + 1 02450806 |
| DVCORR = 1.99D0 02460806 |
| WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 02470806 |
| 0101 CONTINUE 02480806 |
| CT011* TEST 11 4 ARGUMENTS 02490806 |
| IVTNUM = 11 02500806 |
| C***** ARGUMENTS OF HIGH AND LOW MAGNITUDES 02510806 |
| DTAVD = 1.0D-34 02520806 |
| DTBVD = -1.0D-34 02530806 |
| DTCVD = 1.0D+34 02540806 |
| DTAVD = DMAX1(DTAVD, DTBVD, DTCVD, -DTCVD) 02550806 |
| IF (DTAVD - 0.9999999995D34) 20110, 10110, 40110 02560806 |
| 40110 IF (DTAVD - 1.000000001D34) 10110, 10110, 20110 02570806 |
| 10110 IVPASS = IVPASS + 1 02580806 |
| WRITE (NUVI, 80002) IVTNUM 02590806 |
| GO TO 0111 02600806 |
| 20110 IVFAIL = IVFAIL + 1 02610806 |
| DVCORR = 1.0D+34 02620806 |
| WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 02630806 |
| 0111 CONTINUE 02640806 |
| CT012* TEST 12 5 ARGUMENTS 02650806 |
| IVTNUM = 12 02660806 |
| DTDVD = 3.5D0 02670806 |
| DTEVD = 4.5D0 02680806 |
| DTAVD = DMAX1(DTDVD, -DTDVD, -DTEVD, +DTDVD, DTEVD) 02690806 |
| IF (DTAVD - 4.499999997D0) 20120, 10120, 40120 02700806 |
| 40120 IF (DTAVD - 4.500000003D0) 10120, 10120, 20120 02710806 |
| 10120 IVPASS = IVPASS + 1 02720806 |
| WRITE (NUVI, 80002) IVTNUM 02730806 |
| GO TO 0121 02740806 |
| 20120 IVFAIL = IVFAIL + 1 02750806 |
| DVCORR = 4.5D0 02760806 |
| WRITE (NUVI, 80031) IVTNUM, DTAVD, DVCORR 02770806 |
| 0121 CONTINUE 02780806 |
| C***** 02790806 |
| CBB** ********************** BBCSUM0 **********************************02800806 |
| C**** WRITE OUT TEST SUMMARY 02810806 |
| C**** 02820806 |
| IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02830806 |
| WRITE (I02, 90004) 02840806 |
| WRITE (I02, 90014) 02850806 |
| WRITE (I02, 90004) 02860806 |
| WRITE (I02, 90020) IVPASS 02870806 |
| WRITE (I02, 90022) IVFAIL 02880806 |
| WRITE (I02, 90024) IVDELE 02890806 |
| WRITE (I02, 90026) IVINSP 02900806 |
| WRITE (I02, 90028) IVTOTN, IVTOTL 02910806 |
| CBE** ********************** BBCSUM0 **********************************02920806 |
| CBB** ********************** BBCFOOT0 **********************************02930806 |
| C**** WRITE OUT REPORT FOOTINGS 02940806 |
| C**** 02950806 |
| WRITE (I02,90016) ZPROG, ZPROG 02960806 |
| WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02970806 |
| WRITE (I02,90019) 02980806 |
| CBE** ********************** BBCFOOT0 **********************************02990806 |
| CBB** ********************** BBCFMT0A **********************************03000806 |
| C**** FORMATS FOR TEST DETAIL LINES 03010806 |
| C**** 03020806 |
| 80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31) 03030806 |
| 80002 FORMAT (" ",2X,I3,4X," PASS ",32X,A31) 03040806 |
| 80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31) 03050806 |
| 80008 FORMAT (" ",2X,I3,4X," FAIL ",32X,A31) 03060806 |
| 80010 FORMAT (" ",2X,I3,4X," FAIL ",/," ",15X,"COMPUTED= " , 03070806 |
| 1I6,/," ",15X,"CORRECT= " ,I6) 03080806 |
| 80012 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03090806 |
| 1E12.5,/," ",16X,"CORRECT= " ,E12.5) 03100806 |
| 80018 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03110806 |
| 1A21,/," ",16X,"CORRECT= " ,A21) 03120806 |
| 80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31) 03130806 |
| 80022 FORMAT (" ",16X,"CORRECT= " ,A21,1X,A31) 03140806 |
| 80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31) 03150806 |
| 80026 FORMAT (" ",16X,"CORRECT= " ,I6,16X,A31) 03160806 |
| 80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31) 03170806 |
| 80030 FORMAT (" ",16X,"CORRECT= " ,E12.5,10X,A31) 03180806 |
| 80050 FORMAT (" ",48X,A31) 03190806 |
| CBE** ********************** BBCFMT0A **********************************03200806 |
| CBB** ********************** BBCFMAT1 **********************************03210806 |
| C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03220806 |
| C**** 03230806 |
| 80031 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03240806 |
| 1D17.10,/," ",16X,"CORRECT= " ,D17.10) 03250806 |
| 80033 FORMAT (" ",16X,"COMPUTED= " ,D17.10,10X,A31) 03260806 |
| 80035 FORMAT (" ",16X,"CORRECT= " ,D17.10,10X,A31) 03270806 |
| 80037 FORMAT (" ",16X,"COMPUTED= " ,"(",E12.5,", ",E12.5,")",6X,A31) 03280806 |
| 80039 FORMAT (" ",16X,"CORRECT= " ,"(",E12.5,", ",E12.5,")",6X,A31) 03290806 |
| 80041 FORMAT (" ",16X,"COMPUTED= " ,"(",F12.5,", ",F12.5,")",6X,A31) 03300806 |
| 80043 FORMAT (" ",16X,"CORRECT= " ,"(",F12.5,", ",F12.5,")",6X,A31) 03310806 |
| 80045 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03320806 |
| 1"(",F12.5,", ",F12.5,")"/," ",16X,"CORRECT= " , 03330806 |
| 2"(",F12.5,", ",F12.5,")") 03340806 |
| CBE** ********************** BBCFMAT1 **********************************03350806 |
| CBB** ********************** BBCFMT0B **********************************03360806 |
| C**** FORMAT STATEMENTS FOR PAGE HEADERS 03370806 |
| C**** 03380806 |
| 90002 FORMAT ("1") 03390806 |
| 90004 FORMAT (" ") 03400806 |
| 90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )03410806 |
| 90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03420806 |
| 90008 FORMAT (" ",21X,A13,A17) 03430806 |
| 90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/) 03440806 |
| 90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17," - COMPILER= " ,A20) 03450806 |
| 90013 FORMAT (" "," TEST ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" , 03460806 |
| 1 7X,"REMARKS",24X) 03470806 |
| 90014 FORMAT (" ","----------------------------------------------" , 03480806 |
| 1 "---------------------------------" ) 03490806 |
| 90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/) 03500806 |
| C**** 03510806 |
| C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03520806 |
| C**** 03530806 |
| 90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/) 03540806 |
| 90018 FORMAT (" ",A13,13X,A20," * ",A10,"/", 03550806 |
| 1 A13) 03560806 |
| 90019 FORMAT (" ","FOR OFFICIAL USE ONLY " ,35X,"COPYRIGHT 1982" ) 03570806 |
| C**** 03580806 |
| C**** FORMAT STATEMENTS FOR RUN SUMMARY 03590806 |
| C**** 03600806 |
| 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03610806 |
| 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03620806 |
| 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03630806 |
| 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03640806 |
| 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03650806 |
| CBE** ********************** BBCFMT0B **********************************03660806 |
| C***** END OF TEST SEGMENT 166 03670806 |
| STOP 03680806 |
| END 03690806 |
| 03700806 |