PROGRAM FM825 C***********************************************************************00010825 C***** FORTRAN 77 00020825 C***** FM825 00030825 C***** YDSINH - (198) 00040825 C***** 00050825 C***********************************************************************00060825 C***** GENERAL PURPOSE ANS REF 00070825 C***** TEST INTRINSIC FUNCTION DSINH, DCOSH 15.3 00080825 C***** TABLE 5 00090825 CBB** ********************** BBCCOMNT **********************************00100825 C**** 00110825 C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120825 C**** VERSION 2.1 00130825 C**** 00140825 C**** 00150825 C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160825 C**** NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170825 C**** SOFTWARE STANDARDS VALIDATION GROUP 00180825 C**** BUILDING 225 RM A266 00190825 C**** GAITHERSBURG, MD 20899 00200825 C**** 00210825 C**** 00220825 C**** 00230825 CBE** ********************** BBCCOMNT **********************************00240825 C***** 00250825 C***** S P E C I F I C A T I O N S SEGMENT 198 00260825 DOUBLE PRECISION AVD, BVD, CVD, DVCORR 00270825 C***** 00280825 CBB** ********************** BBCINITA **********************************00290825 C**** SPECIFICATION STATEMENTS 00300825 C**** 00310825 CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00320825 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00330825 CBE** ********************** BBCINITA **********************************00340825 CBB** ********************** BBCINITB **********************************00350825 C**** INITIALIZE SECTION 00360825 DATA ZVERS, ZVERSD, ZDATE 00370825 1 /'VERSION 2.1 ', '93/10/21*21.02.00', '*NO DATE*TIME'/ 00380825 DATA ZCOMPL, ZNAME, ZTAPE 00390825 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00400825 DATA ZPROJ, ZTAPED, ZPROG 00410825 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00420825 DATA REMRKS /' '/ 00430825 C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440825 C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00450825 C**** 00460825 CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470825 CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480825 CZ03 ZPROG = 'PROGRAM NAME' 00490825 CZ04 ZDATE = 'DATE OF TEST' 00500825 CZ05 ZCOMPL = 'COMPILER IDENTIFICATION' 00510825 CZ06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00520825 CZ07 ZNAME = 'NAME OF USER' 00530825 CZ08 ZTAPE = 'TAPE OWNER/ID' 00540825 CZ09 ZTAPED = 'DATE TAPE COPIED' 00550825 C 00560825 IVPASS = 0 00570825 IVFAIL = 0 00580825 IVDELE = 0 00590825 IVINSP = 0 00600825 IVTOTL = 0 00610825 IVTOTN = 0 00620825 ICZERO = 0 00630825 C 00640825 C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00650825 I01 = 05 00660825 C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00670825 I02 = 06 00680825 C 00690825 CX010 REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00700825 C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00710825 CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00720825 C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00730825 C 00740825 CX020 REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER). 00750825 C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00760825 CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00770825 C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00780825 C 00790825 CBE** ********************** BBCINITB **********************************00800825 NUVI = I02 00810825 IVTOTL = 16 00820825 ZPROG = 'FM825' 00830825 CBB** ********************** BBCHED0A **********************************00840825 C**** 00850825 C**** WRITE REPORT TITLE 00860825 C**** 00870825 WRITE (I02, 90002) 00880825 WRITE (I02, 90006) 00890825 WRITE (I02, 90007) 00900825 WRITE (I02, 90008) ZVERS, ZVERSD 00910825 WRITE (I02, 90009) ZPROG, ZPROG 00920825 WRITE (I02, 90010) ZDATE, ZCOMPL 00930825 CBE** ********************** BBCHED0A **********************************00940825 C***** 00950825 C***** HEADER FOR SEGMENT 198 00960825 WRITE(NUVI,19800) 00970825 19800 FORMAT(" ", / " YDSINH - (198) INTRINSIC FUNCTIONS" // 00980825 1 " DSINH, DCOSH (DOUBLE PRECISION HYPERBOLIC SINE, COSINE)" // 00990825 2 " ANS REF. - 15.3" ) 01000825 CBB** ********************** BBCHED0B **********************************01010825 C**** WRITE DETAIL REPORT HEADERS 01020825 C**** 01030825 WRITE (I02,90004) 01040825 WRITE (I02,90004) 01050825 WRITE (I02,90013) 01060825 WRITE (I02,90014) 01070825 WRITE (I02,90015) IVTOTL 01080825 CBE** ********************** BBCHED0B **********************************01090825 C***** 01100825 WRITE(NUVI,19801) 01110825 19801 FORMAT(/ 8X, "TEST OF DSINH" ) 01120825 C***** 01130825 CT001* TEST 1 TEST AT ZERO (0.0D0) 01140825 IVTNUM = 1 01150825 BVD = 0.0D0 01160825 AVD = DSINH(BVD) 01170825 IF (AVD + 0.5000000000D-09) 20010, 10010, 40010 01180825 40010 IF (AVD - 0.5000000000D-09) 10010, 10010, 20010 01190825 10010 IVPASS = IVPASS + 1 01200825 WRITE (NUVI, 80002) IVTNUM 01210825 GO TO 0011 01220825 20010 IVFAIL = IVFAIL + 1 01230825 DVCORR = 0.00000000000000000000D+00 01240825 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01250825 0011 CONTINUE 01260825 CT002* TEST 2 TEST ARGUMENTS CLOSE TO 1.0D0 01270825 IVTNUM = 2 01280825 AVD = DSINH(15.0D0 / 16.0D0) 01290825 IF (AVD - 0.1080991915D+01) 20020, 10020, 40020 01300825 40020 IF (AVD - 0.1080991917D+01) 10020, 10020, 20020 01310825 10020 IVPASS = IVPASS + 1 01320825 WRITE (NUVI, 80002) IVTNUM 01330825 GO TO 0021 01340825 20020 IVFAIL = IVFAIL + 1 01350825 DVCORR = 1.0809919156930639401D+00 01360825 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01370825 0021 CONTINUE 01380825 CT003* TEST 3 TEST AT 1.0D0 01390825 IVTNUM = 3 01400825 BVD = 1.0D0 01410825 AVD = DSINH(BVD) 01420825 IF (AVD - 0.1175201193D+01) 20030, 10030, 40030 01430825 40030 IF (AVD - 0.1175201195D+01) 10030, 10030, 20030 01440825 10030 IVPASS = IVPASS + 1 01450825 WRITE (NUVI, 80002) IVTNUM 01460825 GO TO 0031 01470825 20030 IVFAIL = IVFAIL + 1 01480825 DVCORR = 1.1752011936438014569D+00 01490825 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01500825 0031 CONTINUE 01510825 CT004* TEST 4 TEST ARGUMENTS CLOSE TO 1.0D0 01520825 IVTNUM = 4 01530825 AVD = DSINH(33.0D0 / 32.0D0) 01540825 IF (AVD - 0.1224004187D+01) 20040, 10040, 40040 01550825 40040 IF (AVD - 0.1224004189D+01) 10040, 10040, 20040 01560825 10040 IVPASS = IVPASS + 1 01570825 WRITE (NUVI, 80002) IVTNUM 01580825 GO TO 0041 01590825 20040 IVFAIL = IVFAIL + 1 01600825 DVCORR = 1.2240041877866398138D+00 01610825 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01620825 0041 CONTINUE 01630825 CT005* TEST 5 TEST AT 2.0D0 01640825 IVTNUM = 5 01650825 BVD = 2.0D0 01660825 AVD = DSINH(BVD) 01670825 IF (AVD - 0.3626860406D+01) 20050, 10050, 40050 01680825 40050 IF (AVD - 0.3626860410D+01) 10050, 10050, 20050 01690825 10050 IVPASS = IVPASS + 1 01700825 WRITE (NUVI, 80002) IVTNUM 01710825 GO TO 0051 01720825 20050 IVFAIL = IVFAIL + 1 01730825 DVCORR = 3.6268604078470187677D+00 01740825 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01750825 0051 CONTINUE 01760825 CT006* TEST 6 A NEGATIVE ARGUMENT 01770825 IVTNUM = 6 01780825 AVD = DSINH(-2.0D0) 01790825 IF (AVD + 0.3626860410D+01) 20060, 10060, 40060 01800825 40060 IF (AVD + 0.3626860406D+01) 10060, 10060, 20060 01810825 10060 IVPASS = IVPASS + 1 01820825 WRITE (NUVI, 80002) IVTNUM 01830825 GO TO 0061 01840825 20060 IVFAIL = IVFAIL + 1 01850825 DVCORR = -3.6268604078470187677D+00 01860825 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01870825 0061 CONTINUE 01880825 CT007* TEST 7 AN ARGUMENT OF LOW MAGNITUDE 01890825 IVTNUM = 7 01900825 AVD = DSINH(1.0D-14) 01910825 IF (AVD - 0.9999999995D-14) 20070, 10070, 40070 01920825 40070 IF (AVD - 0.1000000001D-13) 10070, 10070, 20070 01930825 10070 IVPASS = IVPASS + 1 01940825 WRITE (NUVI, 80002) IVTNUM 01950825 GO TO 0071 01960825 20070 IVFAIL = IVFAIL + 1 01970825 DVCORR = 1.0000000000000000000D-14 01980825 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01990825 0071 CONTINUE 02000825 C***** 02010825 WRITE (NUVI, 90002) 02020825 WRITE (NUVI, 90013) 02030825 WRITE (NUVI, 90014) 02040825 C***** 02050825 WRITE(NUVI,19809) 02060825 19809 FORMAT(/ 08X, "TEST OF DCOSH" ) 02070825 C***** 02080825 CT008* TEST 8 TEST AT ZERO (0.0D0) 02090825 IVTNUM = 8 02100825 BVD = 0.0D0 02110825 AVD = DCOSH(BVD) 02120825 IF (AVD - 0.9999999995D+00) 20080, 10080, 40080 02130825 40080 IF (AVD - 0.1000000001D+01) 10080, 10080, 20080 02140825 10080 IVPASS = IVPASS + 1 02150825 WRITE (NUVI, 80002) IVTNUM 02160825 GO TO 0081 02170825 20080 IVFAIL = IVFAIL + 1 02180825 DVCORR = 1.0000000000000000000D+00 02190825 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02200825 0081 CONTINUE 02210825 CT009* TEST 9 VALUES CLOSE TO 1.0D0 02220825 IVTNUM = 9 02230825 AVD = DCOSH(15.0D0 / 16.0D0) 02240825 IF (AVD - 0.1472597541D+01) 20090, 10090, 40090 02250825 40090 IF (AVD - 0.1472597543D+01) 10090, 10090, 20090 02260825 10090 IVPASS = IVPASS + 1 02270825 WRITE (NUVI, 80002) IVTNUM 02280825 GO TO 0091 02290825 20090 IVFAIL = IVFAIL + 1 02300825 DVCORR = 1.4725975423698629333D+00 02310825 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02320825 0091 CONTINUE 02330825 CT010* TEST 10 TEST ARGUMENTS CLOSE TO 1.0D0 02340825 IVTNUM = 10 02350825 BVD = 1.0D0 02360825 AVD = DCOSH(BVD) 02370825 IF (AVD - 0.1543080634D+01) 20100, 10100, 40100 02380825 40100 IF (AVD - 0.1543080636D+01) 10100, 10100, 20100 02390825 10100 IVPASS = IVPASS + 1 02400825 WRITE (NUVI, 80002) IVTNUM 02410825 GO TO 0101 02420825 20100 IVFAIL = IVFAIL + 1 02430825 DVCORR = 1.5430806348152437785D+00 02440825 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02450825 0101 CONTINUE 02460825 CT011* TEST 11 TEST ARGUMENTS CLOSE TO 1.0D0 02470825 IVTNUM = 11 02480825 AVD = DCOSH(33.0D0 / 32.0D0) 02490825 IF (AVD - 0.1580565167D+01) 20110, 10110, 40110 02500825 40110 IF (AVD - 0.1580565170D+01) 10110, 10110, 20110 02510825 10110 IVPASS = IVPASS + 1 02520825 WRITE (NUVI, 80002) IVTNUM 02530825 GO TO 0111 02540825 20110 IVFAIL = IVFAIL + 1 02550825 DVCORR = 1.5805651684505867982D+00 02560825 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02570825 0111 CONTINUE 02580825 CT012* TEST 12 TEST AT 2.0D0 02590825 IVTNUM = 12 02600825 BVD = 2.0D0 02610825 AVD = DCOSH(BVD) 02620825 IF (AVD - 0.3762195689D+01) 20120, 10120, 40120 02630825 40120 IF (AVD - 0.3762195693D+01) 10120, 10120, 20120 02640825 10120 IVPASS = IVPASS + 1 02650825 WRITE (NUVI, 80002) IVTNUM 02660825 GO TO 0121 02670825 20120 IVFAIL = IVFAIL + 1 02680825 DVCORR = 3.7621956910836314596D+00 02690825 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02700825 0121 CONTINUE 02710825 CT013* TEST 13 A NEGATIVE ARGUMENT 02720825 IVTNUM = 13 02730825 AVD = DCOSH(-2.0D0) 02740825 IF (AVD - 0.3762195689D+01) 20130, 10130, 40130 02750825 40130 IF (AVD - 0.3762195693D+01) 10130, 10130, 20130 02760825 10130 IVPASS = IVPASS + 1 02770825 WRITE (NUVI, 80002) IVTNUM 02780825 GO TO 0131 02790825 20130 IVFAIL = IVFAIL + 1 02800825 DVCORR = 3.7621956910836314596D+00 02810825 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02820825 0131 CONTINUE 02830825 CT014* TEST 14 AN ARGUMENT OF LOW MAGNITUDE 02840825 IVTNUM = 14 02850825 AVD = DCOSH(-1.0D-14) 02860825 IF (AVD - 0.9999999995D+00) 20140, 10140, 40140 02870825 40140 IF (AVD - 0.1000000001D+01) 10140, 10140, 20140 02880825 10140 IVPASS = IVPASS + 1 02890825 WRITE (NUVI, 80002) IVTNUM 02900825 GO TO 0141 02910825 20140 IVFAIL = IVFAIL + 1 02920825 DVCORR = 1.0000000000000000000D+00 02930825 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02940825 0141 CONTINUE 02950825 CT015* TEST 15 NEGATIVE VALUES SUPPLIED AS ARGUMENTS 02960825 C***** TO BOTH FUNCTIONS IN AN EXPRESSION 02970825 IVTNUM = 15 02980825 BVD = DSINH(-3.145D0) ** 2 02990825 CVD = DCOSH(-3.145D0) ** 2 03000825 AVD = CVD - BVD 03010825 IF (AVD - 0.9999999990D+00) 20150, 10150, 40150 03020825 40150 IF (AVD - 0.1000000001D+01) 10150, 10150, 20150 03030825 10150 IVPASS = IVPASS + 1 03040825 WRITE (NUVI, 80002) IVTNUM 03050825 GO TO 0151 03060825 20150 IVFAIL = IVFAIL + 1 03070825 DVCORR = 1.0000000000000000000D+00 03080825 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03090825 0151 CONTINUE 03100825 CT016* TEST 16 POSITIVE VALUES SUPPLIED AS ARGUMENTS 03110825 C***** TO BOTH FUNCTIONS IN AN EXPRESSION 03120825 IVTNUM = 16 03130825 AVD = DSINH(3.25D0) + DCOSH(3.25D0) 03140825 IF (AVD - 0.2579033990D+02) 20160, 10160, 40160 03150825 40160 IF (AVD - 0.2579033993D+02) 10160, 10160, 20160 03160825 10160 IVPASS = IVPASS + 1 03170825 WRITE (NUVI, 80002) IVTNUM 03180825 GO TO 0161 03190825 20160 IVFAIL = IVFAIL + 1 03200825 DVCORR = 25.790339917193062089D+00 03210825 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03220825 0161 CONTINUE 03230825 C***** 03240825 CBB** ********************** BBCSUM0 **********************************03250825 C**** WRITE OUT TEST SUMMARY 03260825 C**** 03270825 IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03280825 WRITE (I02, 90004) 03290825 WRITE (I02, 90014) 03300825 WRITE (I02, 90004) 03310825 WRITE (I02, 90020) IVPASS 03320825 WRITE (I02, 90022) IVFAIL 03330825 WRITE (I02, 90024) IVDELE 03340825 WRITE (I02, 90026) IVINSP 03350825 WRITE (I02, 90028) IVTOTN, IVTOTL 03360825 CBE** ********************** BBCSUM0 **********************************03370825 CBB** ********************** BBCFOOT0 **********************************03380825 C**** WRITE OUT REPORT FOOTINGS 03390825 C**** 03400825 WRITE (I02,90016) ZPROG, ZPROG 03410825 WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03420825 WRITE (I02,90019) 03430825 CBE** ********************** BBCFOOT0 **********************************03440825 CBB** ********************** BBCFMT0A **********************************03450825 C**** FORMATS FOR TEST DETAIL LINES 03460825 C**** 03470825 80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31) 03480825 80002 FORMAT (" ",2X,I3,4X," PASS ",32X,A31) 03490825 80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31) 03500825 80008 FORMAT (" ",2X,I3,4X," FAIL ",32X,A31) 03510825 80010 FORMAT (" ",2X,I3,4X," FAIL ",/," ",15X,"COMPUTED= " , 03520825 1I6,/," ",15X,"CORRECT= " ,I6) 03530825 80012 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03540825 1E12.5,/," ",16X,"CORRECT= " ,E12.5) 03550825 80018 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03560825 1A21,/," ",16X,"CORRECT= " ,A21) 03570825 80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31) 03580825 80022 FORMAT (" ",16X,"CORRECT= " ,A21,1X,A31) 03590825 80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31) 03600825 80026 FORMAT (" ",16X,"CORRECT= " ,I6,16X,A31) 03610825 80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31) 03620825 80030 FORMAT (" ",16X,"CORRECT= " ,E12.5,10X,A31) 03630825 80050 FORMAT (" ",48X,A31) 03640825 CBE** ********************** BBCFMT0A **********************************03650825 CBB** ********************** BBCFMAT1 **********************************03660825 C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03670825 C**** 03680825 80031 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03690825 1D17.10,/," ",16X,"CORRECT= " ,D17.10) 03700825 80033 FORMAT (" ",16X,"COMPUTED= " ,D17.10,10X,A31) 03710825 80035 FORMAT (" ",16X,"CORRECT= " ,D17.10,10X,A31) 03720825 80037 FORMAT (" ",16X,"COMPUTED= " ,"(",E12.5,", ",E12.5,")",6X,A31) 03730825 80039 FORMAT (" ",16X,"CORRECT= " ,"(",E12.5,", ",E12.5,")",6X,A31) 03740825 80041 FORMAT (" ",16X,"COMPUTED= " ,"(",F12.5,", ",F12.5,")",6X,A31) 03750825 80043 FORMAT (" ",16X,"CORRECT= " ,"(",F12.5,", ",F12.5,")",6X,A31) 03760825 80045 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03770825 1"(",F12.5,", ",F12.5,")"/," ",16X,"CORRECT= " , 03780825 2"(",F12.5,", ",F12.5,")") 03790825 CBE** ********************** BBCFMAT1 **********************************03800825 CBB** ********************** BBCFMT0B **********************************03810825 C**** FORMAT STATEMENTS FOR PAGE HEADERS 03820825 C**** 03830825 90002 FORMAT ("1") 03840825 90004 FORMAT (" ") 03850825 90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )03860825 90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03870825 90008 FORMAT (" ",21X,A13,A17) 03880825 90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/) 03890825 90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17," - COMPILER= " ,A20) 03900825 90013 FORMAT (" "," TEST ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" , 03910825 1 7X,"REMARKS",24X) 03920825 90014 FORMAT (" ","----------------------------------------------" , 03930825 1 "---------------------------------" ) 03940825 90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/) 03950825 C**** 03960825 C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03970825 C**** 03980825 90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/) 03990825 90018 FORMAT (" ",A13,13X,A20," * ",A10,"/", 04000825 1 A13) 04010825 90019 FORMAT (" ","FOR OFFICIAL USE ONLY " ,35X,"COPYRIGHT 1982" ) 04020825 C**** 04030825 C**** FORMAT STATEMENTS FOR RUN SUMMARY 04040825 C**** 04050825 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04060825 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04070825 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04080825 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04090825 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04100825 CBE** ********************** BBCFMT0B **********************************04110825 C***** 04120825 C***** END OF TEST SEGMENT 198 04130825 STOP 04140825 END 04150825