PROGRAM FM819 C***********************************************************************00010819 C***** FORTRAN 77 00020819 C***** FM819 00030819 C***** YDSIN - (187) 00040819 C***** 00050819 C***********************************************************************00060819 C***** GENERAL PURPOSE ANS REF 00070819 C***** TEST INTRINSIC FUNCTION DSIN 15.3 00080819 C***** TABLE 5 00090819 C***** 00100819 CBB** ********************** BBCCOMNT **********************************00110819 C**** 00120819 C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130819 C**** VERSION 2.1 00140819 C**** 00150819 C**** 00160819 C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170819 C**** NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180819 C**** SOFTWARE STANDARDS VALIDATION GROUP 00190819 C**** BUILDING 225 RM A266 00200819 C**** GAITHERSBURG, MD 20899 00210819 C**** 00220819 C**** 00230819 C**** 00240819 CBE** ********************** BBCCOMNT **********************************00250819 C***** S P E C I F I C A T I O N S SEGMENT 187 00260819 DOUBLE PRECISION AVD, BVD, PIVD, DVCORR 00270819 C***** 00280819 CBB** ********************** BBCINITA **********************************00290819 C**** SPECIFICATION STATEMENTS 00300819 C**** 00310819 CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00320819 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00330819 CBE** ********************** BBCINITA **********************************00340819 CBB** ********************** BBCINITB **********************************00350819 C**** INITIALIZE SECTION 00360819 DATA ZVERS, ZVERSD, ZDATE 00370819 1 /'VERSION 2.1 ', '93/10/21*21.02.00', '*NO DATE*TIME'/ 00380819 DATA ZCOMPL, ZNAME, ZTAPE 00390819 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00400819 DATA ZPROJ, ZTAPED, ZPROG 00410819 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00420819 DATA REMRKS /' '/ 00430819 C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440819 C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00450819 C**** 00460819 CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470819 CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480819 CZ03 ZPROG = 'PROGRAM NAME' 00490819 CZ04 ZDATE = 'DATE OF TEST' 00500819 CZ05 ZCOMPL = 'COMPILER IDENTIFICATION' 00510819 CZ06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00520819 CZ07 ZNAME = 'NAME OF USER' 00530819 CZ08 ZTAPE = 'TAPE OWNER/ID' 00540819 CZ09 ZTAPED = 'DATE TAPE COPIED' 00550819 C 00560819 IVPASS = 0 00570819 IVFAIL = 0 00580819 IVDELE = 0 00590819 IVINSP = 0 00600819 IVTOTL = 0 00610819 IVTOTN = 0 00620819 ICZERO = 0 00630819 C 00640819 C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00650819 I01 = 05 00660819 C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00670819 I02 = 06 00680819 C 00690819 CX010 REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00700819 C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00710819 CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00720819 C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00730819 C 00740819 CX020 REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER). 00750819 C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00760819 CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00770819 C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00780819 C 00790819 CBE** ********************** BBCINITB **********************************00800819 NUVI = I02 00810819 IVTOTL = 19 00820819 ZPROG = 'FM819' 00830819 CBB** ********************** BBCHED0A **********************************00840819 C**** 00850819 C**** WRITE REPORT TITLE 00860819 C**** 00870819 WRITE (I02, 90002) 00880819 WRITE (I02, 90006) 00890819 WRITE (I02, 90007) 00900819 WRITE (I02, 90008) ZVERS, ZVERSD 00910819 WRITE (I02, 90009) ZPROG, ZPROG 00920819 WRITE (I02, 90010) ZDATE, ZCOMPL 00930819 CBE** ********************** BBCHED0A **********************************00940819 C***** 00950819 C***** HEADER FOR SEGMENT 187 00960819 WRITE(NUVI,18700) 00970819 18700 FORMAT(" "/" YDSIN - (187) INTRINSIC FUNCTIONS" // 00980819 1 " DSIN - (DOUBLE PRECISION SINE)" // 00990819 2 " ANS REF. - 15.3" ) 01000819 CBB** ********************** BBCHED0B **********************************01010819 C**** WRITE DETAIL REPORT HEADERS 01020819 C**** 01030819 WRITE (I02,90004) 01040819 WRITE (I02,90004) 01050819 WRITE (I02,90013) 01060819 WRITE (I02,90014) 01070819 WRITE (I02,90015) IVTOTL 01080819 CBE** ********************** BBCHED0B **********************************01090819 C***** 01100819 PIVD = 3.1415926535897932384626434D0 01110819 C***** 01120819 CT001* TEST 1 ZERO (0.0) SINCE SIN(0)=0 01130819 IVTNUM = 1 01140819 BVD = 0.0D0 01150819 AVD = DSIN(BVD) 01160819 IF (AVD + 0.5000000000D-09) 20010, 10010, 40010 01170819 40010 IF (AVD - 0.5000000000D-09) 10010, 10010, 20010 01180819 10010 IVPASS = IVPASS + 1 01190819 WRITE (NUVI, 80002) IVTNUM 01200819 GO TO 0011 01210819 20010 IVFAIL = IVFAIL + 1 01220819 DVCORR = 0.00000000000000000000D+00 01230819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01240819 0011 CONTINUE 01250819 CT002* TEST 2 PI 01260819 IVTNUM = 2 01270819 AVD = DSIN(PIVD) 01280819 IF (AVD + 0.5000000000D-09) 20020, 10020, 40020 01290819 40020 IF (AVD - 0.5000000000D-09) 10020, 10020, 20020 01300819 10020 IVPASS = IVPASS + 1 01310819 WRITE (NUVI, 80002) IVTNUM 01320819 GO TO 0021 01330819 20020 IVFAIL = IVFAIL + 1 01340819 DVCORR = 0.00000000000000000000D+00 01350819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01360819 0021 CONTINUE 01370819 CT003* TEST 3 PI - 1/8 01380819 IVTNUM = 3 01390819 BVD = 3.01659265358979323846D0 01400819 AVD = DSIN(BVD) 01410819 IF (AVD - 0.1246747333D+00) 20030, 10030, 40030 01420819 40030 IF (AVD - 0.1246747335D+00) 10030, 10030, 20030 01430819 10030 IVPASS = IVPASS + 1 01440819 WRITE (NUVI, 80002) IVTNUM 01450819 GO TO 0031 01460819 20030 IVFAIL = IVFAIL + 1 01470819 DVCORR = 0.12467473338522768996D+00 01480819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01490819 0031 CONTINUE 01500819 CT004* TEST 4 PI - 1/16 01510819 IVTNUM = 4 01520819 AVD = DSIN(3.204092653589793238D0) 01530819 IF (AVD + 0.6245931788D-01) 20040, 10040, 40040 01540819 40040 IF (AVD + 0.6245931781D-01) 10040, 10040, 20040 01550819 10040 IVPASS = IVPASS + 1 01560819 WRITE (NUVI, 80002) IVTNUM 01570819 GO TO 0041 01580819 20040 IVFAIL = IVFAIL + 1 01590819 DVCORR = -0.062459317842380198585D+00 01600819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01610819 0041 CONTINUE 01620819 CT005* TEST 5 2*PI 01630819 IVTNUM = 5 01640819 BVD = PIVD * 2.0D0 01650819 AVD = DSIN(BVD) 01660819 IF (AVD + 0.5000000000D-09) 20050, 10050, 40050 01670819 40050 IF (AVD - 0.5000000000D-09) 10050, 10050, 20050 01680819 10050 IVPASS = IVPASS + 1 01690819 WRITE (NUVI, 80002) IVTNUM 01700819 GO TO 0051 01710819 20050 IVFAIL = IVFAIL + 1 01720819 DVCORR = 0.00000000000000000000D+00 01730819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01740819 0051 CONTINUE 01750819 CT006* TEST 6 2*PI - 1/128 01760819 IVTNUM = 6 01770819 BVD = (2.0D0 * PIVD) - 1.0D0 / 128.0D0 01780819 AVD = DSIN(BVD) 01790819 IF (AVD + 0.7812420532D-02) 20060, 10060, 40060 01800819 40060 IF (AVD + 0.7812420523D-02) 10060, 10060, 20060 01810819 10060 IVPASS = IVPASS + 1 01820819 WRITE (NUVI, 80002) IVTNUM 01830819 GO TO 0061 01840819 20060 IVFAIL = IVFAIL + 1 01850819 DVCORR = -0.0078124205273828310472D+00 01860819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01870819 0061 CONTINUE 01880819 CT007* TEST 7 2*PI - 1/256 01890819 IVTNUM = 7 01900819 BVD = (2.0D0 * PIVD) + 1.0D0 / 256.0D0 01910819 AVD = DSIN(BVD) 01920819 IF (AVD - 0.3906240064D-02) 20070, 10070, 40070 01930819 40070 IF (AVD - 0.3906240068D-02) 10070, 10070, 20070 01940819 10070 IVPASS = IVPASS + 1 01950819 WRITE (NUVI, 80002) IVTNUM 01960819 GO TO 0071 01970819 20070 IVFAIL = IVFAIL + 1 01980819 DVCORR = 0.0039062400659001165547D+00 01990819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02000819 0071 CONTINUE 02010819 CT008* TEST 8 AN EXPRESSION SUPPLIED TO DSIN 02020819 IVTNUM = 8 02030819 BVD = 2000.0D0 02040819 AVD = DSIN(BVD / 10.0D2) 02050819 IF (AVD - 0.9092974263D+00) 20080, 10080, 40080 02060819 40080 IF (AVD - 0.9092974273D+00) 10080, 10080, 20080 02070819 10080 IVPASS = IVPASS + 1 02080819 WRITE (NUVI, 80002) IVTNUM 02090819 GO TO 0081 02100819 20080 IVFAIL = IVFAIL + 1 02110819 DVCORR = 0.90929742682568169540D+00 02120819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02130819 0081 CONTINUE 02140819 CT009* TEST 9 THE VALUE -2.0D0 02150819 IVTNUM = 9 02160819 BVD = -2.0D0 02170819 AVD = DSIN(BVD) 02180819 IF (AVD + 0.9092974273D+00) 20090, 10090, 40090 02190819 40090 IF (AVD + 0.9092974263D+00) 10090, 10090, 20090 02200819 10090 IVPASS = IVPASS + 1 02210819 WRITE (NUVI, 80002) IVTNUM 02220819 GO TO 0091 02230819 20090 IVFAIL = IVFAIL + 1 02240819 DVCORR = -0.90929742682568169540D+00 02250819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02260819 0091 CONTINUE 02270819 CT010* TEST 10 A LARGE VALUE TO TEST ARGUMENT REDUCTION 02280819 IVTNUM = 10 02290819 AVD = DSIN(100.0D0) 02300819 IF (AVD + 0.5063656414D+00) 20100, 10100, 40100 02310819 40100 IF (AVD + 0.5063656408D+00) 10100, 10100, 20100 02320819 10100 IVPASS = IVPASS + 1 02330819 WRITE (NUVI, 80002) IVTNUM 02340819 GO TO 0101 02350819 20100 IVFAIL = IVFAIL + 1 02360819 DVCORR = -0.50636564110975879366D+00 02370819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02380819 0101 CONTINUE 02390819 CT011* TEST 11 A VERY LARGE VALUE 02400819 IVTNUM = 11 02410819 AVD = DSIN(-1000.0D0) 02420819 IF (AVD + 0.8268795410D+00) 20110, 10110, 40110 02430819 40110 IF (AVD + 0.8268795401D+00) 10110, 10110, 20110 02440819 10110 IVPASS = IVPASS + 1 02450819 WRITE (NUVI, 80002) IVTNUM 02460819 GO TO 0111 02470819 20110 IVFAIL = IVFAIL + 1 02480819 DVCORR = -0.82687954053200256026D+00 02490819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02500819 0111 CONTINUE 02510819 CT012* TEST 12 PI/2 02520819 IVTNUM = 12 02530819 AVD = DSIN(1.57079632679489661923D0) 02540819 IF (AVD - 0.9999999995D+00) 20120, 10120, 40120 02550819 40120 IF (AVD - 0.1000000001D+01) 10120, 10120, 20120 02560819 10120 IVPASS = IVPASS + 1 02570819 WRITE (NUVI, 80002) IVTNUM 02580819 GO TO 0121 02590819 20120 IVFAIL = IVFAIL + 1 02600819 DVCORR = 1.0000000000000000000D+00 02610819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02620819 0121 CONTINUE 02630819 CT013* TEST 13 (PI / 2) - 1/32 02640819 IVTNUM = 13 02650819 BVD = 1.53954632679489661923D0 02660819 AVD = DSIN(BVD) 02670819 IF (AVD - 0.9995117579D+00) 20130, 10130, 40130 02680819 40130 IF (AVD - 0.9995117590D+00) 10130, 10130, 20130 02690819 10130 IVPASS = IVPASS + 1 02700819 WRITE (NUVI, 80002) IVTNUM 02710819 GO TO 0131 02720819 20130 IVFAIL = IVFAIL + 1 02730819 DVCORR = 0.99951175848513636924D+00 02740819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02750819 0131 CONTINUE 02760819 CT014* TEST 14 (PI / 2) + 1/64 02770819 IVTNUM = 14 02780819 BVD = 1.58642132679489661923D0 02790819 AVD = DSIN(BVD) 02800819 IF (AVD - 0.9998779316D+00) 20140, 10140, 40140 02810819 40140 IF (AVD - 0.9998779327D+00) 10140, 10140, 20140 02820819 10140 IVPASS = IVPASS + 1 02830819 WRITE (NUVI, 80002) IVTNUM 02840819 GO TO 0141 02850819 20140 IVFAIL = IVFAIL + 1 02860819 DVCORR = 0.99987793217100665474D+00 02870819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02880819 0141 CONTINUE 02890819 CT015* TEST 15 3*PI/2 02900819 IVTNUM = 15 02910819 BVD = 3.0D0 * PIVD / 2.0D0 02920819 AVD = DSIN(BVD) 02930819 IF (AVD + 0.1000000001D+01) 20150, 10150, 40150 02940819 40150 IF (AVD + 0.9999999995D+00) 10150, 10150, 20150 02950819 10150 IVPASS = IVPASS + 1 02960819 WRITE (NUVI, 80002) IVTNUM 02970819 GO TO 0151 02980819 20150 IVFAIL = IVFAIL + 1 02990819 DVCORR = -1.000000000000000000D+00 03000819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03010819 0151 CONTINUE 03020819 CT016* TEST 16 3*PI/2 - 1/16 03030819 IVTNUM = 16 03040819 BVD = (3.0D0 * PIVD / 2.0D0) - 1.0D0 / 16.0D0 03050819 AVD = DSIN(BVD) 03060819 IF (AVD + 0.9980475112D+00) 20160, 10160, 40160 03070819 40160 IF (AVD + 0.9980475102D+00) 10160, 10160, 20160 03080819 10160 IVPASS = IVPASS + 1 03090819 WRITE (NUVI, 80002) IVTNUM 03100819 GO TO 0161 03110819 20160 IVFAIL = IVFAIL + 1 03120819 DVCORR = -0.99804751070009914963D+00 03130819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03140819 0161 CONTINUE 03150819 CT017* TEST 17 3*PI - 1/512 03160819 IVTNUM = 17 03170819 BVD = (3.0D0 * PIVD / 2.0D0) + 1.0D0 / 512.0D0 03180819 AVD = DSIN(BVD) 03190819 IF (AVD + 0.9999980932D+00) 20170, 10170, 40170 03200819 40170 IF (AVD + 0.9999980921D+00) 10170, 10170, 20170 03210819 10170 IVPASS = IVPASS + 1 03220819 WRITE (NUVI, 80002) IVTNUM 03230819 GO TO 0171 03240819 20170 IVFAIL = IVFAIL + 1 03250819 DVCORR = -0.99999809265197351722D+00 03260819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03270819 0171 CONTINUE 03280819 CT018* TEST 18 ARGUMENT OF LOW MAGNITUDE 03290819 IVTNUM = 18 03300819 BVD = PIVD * 1.0D-17 03310819 AVD = DSIN(BVD) 03320819 IF (AVD - 0.3141592652D-16) 20180, 10180, 40180 03330819 40180 IF (AVD - 0.3141592655D-16) 10180, 10180, 20180 03340819 10180 IVPASS = IVPASS + 1 03350819 WRITE (NUVI, 80002) IVTNUM 03360819 GO TO 0181 03370819 20180 IVFAIL = IVFAIL + 1 03380819 DVCORR = 3.1415926535897932385D-17 03390819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03400819 0181 CONTINUE 03410819 CT019* TEST 19 THE FUNCTION APPLIED TWICE 03420819 IVTNUM = 19 03430819 AVD = DSIN(PIVD / 4.0D0) * DSIN(3.0D0 * PIVD / 4.0D0) 03440819 IF (AVD - 0.4999999997D+00) 20190, 10190, 40190 03450819 40190 IF (AVD - 0.5000000003D+00) 10190, 10190, 20190 03460819 10190 IVPASS = IVPASS + 1 03470819 WRITE (NUVI, 80002) IVTNUM 03480819 GO TO 0191 03490819 20190 IVFAIL = IVFAIL + 1 03500819 DVCORR = 0.50000000000000000000D+00 03510819 WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03520819 0191 CONTINUE 03530819 C***** 03540819 CBB** ********************** BBCSUM0 **********************************03550819 C**** WRITE OUT TEST SUMMARY 03560819 C**** 03570819 IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03580819 WRITE (I02, 90004) 03590819 WRITE (I02, 90014) 03600819 WRITE (I02, 90004) 03610819 WRITE (I02, 90020) IVPASS 03620819 WRITE (I02, 90022) IVFAIL 03630819 WRITE (I02, 90024) IVDELE 03640819 WRITE (I02, 90026) IVINSP 03650819 WRITE (I02, 90028) IVTOTN, IVTOTL 03660819 CBE** ********************** BBCSUM0 **********************************03670819 CBB** ********************** BBCFOOT0 **********************************03680819 C**** WRITE OUT REPORT FOOTINGS 03690819 C**** 03700819 WRITE (I02,90016) ZPROG, ZPROG 03710819 WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03720819 WRITE (I02,90019) 03730819 CBE** ********************** BBCFOOT0 **********************************03740819 CBB** ********************** BBCFMT0A **********************************03750819 C**** FORMATS FOR TEST DETAIL LINES 03760819 C**** 03770819 80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31) 03780819 80002 FORMAT (" ",2X,I3,4X," PASS ",32X,A31) 03790819 80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31) 03800819 80008 FORMAT (" ",2X,I3,4X," FAIL ",32X,A31) 03810819 80010 FORMAT (" ",2X,I3,4X," FAIL ",/," ",15X,"COMPUTED= " , 03820819 1I6,/," ",15X,"CORRECT= " ,I6) 03830819 80012 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03840819 1E12.5,/," ",16X,"CORRECT= " ,E12.5) 03850819 80018 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03860819 1A21,/," ",16X,"CORRECT= " ,A21) 03870819 80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31) 03880819 80022 FORMAT (" ",16X,"CORRECT= " ,A21,1X,A31) 03890819 80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31) 03900819 80026 FORMAT (" ",16X,"CORRECT= " ,I6,16X,A31) 03910819 80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31) 03920819 80030 FORMAT (" ",16X,"CORRECT= " ,E12.5,10X,A31) 03930819 80050 FORMAT (" ",48X,A31) 03940819 CBE** ********************** BBCFMT0A **********************************03950819 CBB** ********************** BBCFMAT1 **********************************03960819 C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03970819 C**** 03980819 80031 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03990819 1D17.10,/," ",16X,"CORRECT= " ,D17.10) 04000819 80033 FORMAT (" ",16X,"COMPUTED= " ,D17.10,10X,A31) 04010819 80035 FORMAT (" ",16X,"CORRECT= " ,D17.10,10X,A31) 04020819 80037 FORMAT (" ",16X,"COMPUTED= " ,"(",E12.5,", ",E12.5,")",6X,A31) 04030819 80039 FORMAT (" ",16X,"CORRECT= " ,"(",E12.5,", ",E12.5,")",6X,A31) 04040819 80041 FORMAT (" ",16X,"COMPUTED= " ,"(",F12.5,", ",F12.5,")",6X,A31) 04050819 80043 FORMAT (" ",16X,"CORRECT= " ,"(",F12.5,", ",F12.5,")",6X,A31) 04060819 80045 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 04070819 1"(",F12.5,", ",F12.5,")"/," ",16X,"CORRECT= " , 04080819 2"(",F12.5,", ",F12.5,")") 04090819 CBE** ********************** BBCFMAT1 **********************************04100819 CBB** ********************** BBCFMT0B **********************************04110819 C**** FORMAT STATEMENTS FOR PAGE HEADERS 04120819 C**** 04130819 90002 FORMAT ("1") 04140819 90004 FORMAT (" ") 04150819 90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )04160819 90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 04170819 90008 FORMAT (" ",21X,A13,A17) 04180819 90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/) 04190819 90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17," - COMPILER= " ,A20) 04200819 90013 FORMAT (" "," TEST ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" , 04210819 1 7X,"REMARKS",24X) 04220819 90014 FORMAT (" ","----------------------------------------------" , 04230819 1 "---------------------------------" ) 04240819 90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/) 04250819 C**** 04260819 C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04270819 C**** 04280819 90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/) 04290819 90018 FORMAT (" ",A13,13X,A20," * ",A10,"/", 04300819 1 A13) 04310819 90019 FORMAT (" ","FOR OFFICIAL USE ONLY " ,35X,"COPYRIGHT 1982" ) 04320819 C**** 04330819 C**** FORMAT STATEMENTS FOR RUN SUMMARY 04340819 C**** 04350819 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04360819 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04370819 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04380819 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04390819 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04400819 CBE** ********************** BBCFMT0B **********************************04410819 C***** 04420819 C***** END OF TEST SEGMENT 187 04430819 STOP 04440819 END 04450819 04460819