| PROGRAM FM821 |
| |
| C***********************************************************************00010821 |
| C***** FORTRAN 77 00020821 |
| C***** FM821 00030821 |
| C***** YDCOS - (190) 00040821 |
| C***** 00050821 |
| C***********************************************************************00060821 |
| C***** GENERAL PURPOSE ANS REF 00070821 |
| C***** TEST INTRINSIC FUNCTION DCOS 15.3 00080821 |
| C***** TABLE 5 00090821 |
| C***** 00100821 |
| CBB** ********************** BBCCOMNT **********************************00110821 |
| C**** 00120821 |
| C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130821 |
| C**** VERSION 2.1 00140821 |
| C**** 00150821 |
| C**** 00160821 |
| C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170821 |
| C**** NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180821 |
| C**** SOFTWARE STANDARDS VALIDATION GROUP 00190821 |
| C**** BUILDING 225 RM A266 00200821 |
| C**** GAITHERSBURG, MD 20899 00210821 |
| C**** 00220821 |
| C**** 00230821 |
| C**** 00240821 |
| CBE** ********************** BBCCOMNT **********************************00250821 |
| C***** 00260821 |
| C***** S P E C I F I C A T I O N S SEGMENT 190 00270821 |
| DOUBLE PRECISION AVD, BVD, PIVD, DVCORR 00280821 |
| C***** 00290821 |
| CBB** ********************** BBCINITA **********************************00300821 |
| C**** SPECIFICATION STATEMENTS 00310821 |
| C**** 00320821 |
| CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00330821 |
| 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00340821 |
| CBE** ********************** BBCINITA **********************************00350821 |
| CBB** ********************** BBCINITB **********************************00360821 |
| C**** INITIALIZE SECTION 00370821 |
| DATA ZVERS, ZVERSD, ZDATE 00380821 |
| 1 /'VERSION 2.1 ', '93/10/21*21.02.00', '*NO DATE*TIME'/ 00390821 |
| DATA ZCOMPL, ZNAME, ZTAPE 00400821 |
| 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00410821 |
| DATA ZPROJ, ZTAPED, ZPROG 00420821 |
| 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00430821 |
| DATA REMRKS /' '/ 00440821 |
| C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450821 |
| C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00460821 |
| C**** 00470821 |
| CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480821 |
| CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490821 |
| CZ03 ZPROG = 'PROGRAM NAME' 00500821 |
| CZ04 ZDATE = 'DATE OF TEST' 00510821 |
| CZ05 ZCOMPL = 'COMPILER IDENTIFICATION' 00520821 |
| CZ06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00530821 |
| CZ07 ZNAME = 'NAME OF USER' 00540821 |
| CZ08 ZTAPE = 'TAPE OWNER/ID' 00550821 |
| CZ09 ZTAPED = 'DATE TAPE COPIED' 00560821 |
| C 00570821 |
| IVPASS = 0 00580821 |
| IVFAIL = 0 00590821 |
| IVDELE = 0 00600821 |
| IVINSP = 0 00610821 |
| IVTOTL = 0 00620821 |
| IVTOTN = 0 00630821 |
| ICZERO = 0 00640821 |
| C 00650821 |
| C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00660821 |
| I01 = 05 00670821 |
| C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00680821 |
| I02 = 06 00690821 |
| C 00700821 |
| CX010 REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00710821 |
| C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00720821 |
| CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00730821 |
| C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00740821 |
| C 00750821 |
| CX020 REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER). 00760821 |
| C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00770821 |
| CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00780821 |
| C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00790821 |
| C 00800821 |
| CBE** ********************** BBCINITB **********************************00810821 |
| NUVI = I02 00820821 |
| IVTOTL = 19 00830821 |
| ZPROG = 'FM821' 00840821 |
| CBB** ********************** BBCHED0A **********************************00850821 |
| C**** 00860821 |
| C**** WRITE REPORT TITLE 00870821 |
| C**** 00880821 |
| WRITE (I02, 90002) 00890821 |
| WRITE (I02, 90006) 00900821 |
| WRITE (I02, 90007) 00910821 |
| WRITE (I02, 90008) ZVERS, ZVERSD 00920821 |
| WRITE (I02, 90009) ZPROG, ZPROG 00930821 |
| WRITE (I02, 90010) ZDATE, ZCOMPL 00940821 |
| CBE** ********************** BBCHED0A **********************************00950821 |
| C***** 00960821 |
| C***** HEADER FOR SEGMENT 190 00970821 |
| WRITE(NUVI,19000) 00980821 |
| 19000 FORMAT(" "/" YDCOS - (190) INTRINSIC FUNCTIONS" // 00990821 |
| 1 " DCOS (DOUBLE PRECISION COSINE)" // 01000821 |
| 2 " ANS REF. - 15.3" ) 01010821 |
| CBB** ********************** BBCHED0B **********************************01020821 |
| C**** WRITE DETAIL REPORT HEADERS 01030821 |
| C**** 01040821 |
| WRITE (I02,90004) 01050821 |
| WRITE (I02,90004) 01060821 |
| WRITE (I02,90013) 01070821 |
| WRITE (I02,90014) 01080821 |
| WRITE (I02,90015) IVTOTL 01090821 |
| CBE** ********************** BBCHED0B **********************************01100821 |
| C***** 01110821 |
| PIVD = 3.1415926535897932384626434D0 01120821 |
| C***** 01130821 |
| CT001* TEST 1 ZERO (0.0), SINCE COS(0)=1 01140821 |
| IVTNUM = 1 01150821 |
| BVD = 0.0D0 01160821 |
| AVD = DCOS(BVD) 01170821 |
| IF (AVD - 0.9999999995D+00) 20010, 10010, 40010 01180821 |
| 40010 IF (AVD - 0.1000000001D+01) 10010, 10010, 20010 01190821 |
| 10010 IVPASS = IVPASS + 1 01200821 |
| WRITE (NUVI, 80002) IVTNUM 01210821 |
| GO TO 0011 01220821 |
| 20010 IVFAIL = IVFAIL + 1 01230821 |
| DVCORR = 1.00000000000000000000D+00 01240821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01250821 |
| 0011 CONTINUE 01260821 |
| CT002* TEST 2 VALUES NEAR PI 01270821 |
| IVTNUM = 2 01280821 |
| AVD = DCOS(PIVD) 01290821 |
| IF (AVD + 0.1000000001D+01) 20020, 10020, 40020 01300821 |
| 40020 IF (AVD + 0.9999999995D+00) 10020, 10020, 20020 01310821 |
| 10020 IVPASS = IVPASS + 1 01320821 |
| WRITE (NUVI, 80002) IVTNUM 01330821 |
| GO TO 0021 01340821 |
| 20020 IVFAIL = IVFAIL + 1 01350821 |
| DVCORR = -1.00000000000000000000D+00 01360821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01370821 |
| 0021 CONTINUE 01380821 |
| CT003* TEST 3 PI - 1/16 01390821 |
| IVTNUM = 3 01400821 |
| BVD = 3.07909265358979323846D0 01410821 |
| AVD = DCOS(BVD) 01420821 |
| IF (AVD + 0.9980475112D+00) 20030, 10030, 40030 01430821 |
| 40030 IF (AVD + 0.9980475102D+00) 10030, 10030, 20030 01440821 |
| 10030 IVPASS = IVPASS + 1 01450821 |
| WRITE (NUVI, 80002) IVTNUM 01460821 |
| GO TO 0031 01470821 |
| 20030 IVFAIL = IVFAIL + 1 01480821 |
| DVCORR = -0.99804751070009914963D+00 01490821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01500821 |
| 0031 CONTINUE 01510821 |
| CT004* TEST 4 PI + 1/32 01520821 |
| IVTNUM = 4 01530821 |
| AVD = DCOS(3.17284265358979323846D0) 01540821 |
| IF (AVD + 0.9995117590D+00) 20040, 10040, 40040 01550821 |
| 40040 IF (AVD + 0.9995117580D+00) 10040, 10040, 20040 01560821 |
| 10040 IVPASS = IVPASS + 1 01570821 |
| WRITE (NUVI, 80002) IVTNUM 01580821 |
| GO TO 0041 01590821 |
| 20040 IVFAIL = IVFAIL + 1 01600821 |
| DVCORR = -0.99951175848513636924D+00 01610821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01620821 |
| 0041 CONTINUE 01630821 |
| CT005* TEST 5 VALUES NEAR 2*PI 01640821 |
| IVTNUM = 5 01650821 |
| BVD = PIVD * 2.0D0 01660821 |
| AVD = DCOS(BVD) 01670821 |
| IF (AVD - 0.9999999995D+00) 20050, 10050, 40050 01680821 |
| 40050 IF (AVD - 0.1000000001D+01) 10050, 10050, 20050 01690821 |
| 10050 IVPASS = IVPASS + 1 01700821 |
| WRITE (NUVI, 80002) IVTNUM 01710821 |
| GO TO 0051 01720821 |
| 20050 IVFAIL = IVFAIL + 1 01730821 |
| DVCORR = 1.00000000000000000000D+00 01740821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01750821 |
| 0051 CONTINUE 01760821 |
| CT006* TEST 6 VALUES NEAR 2*PI 01770821 |
| IVTNUM = 6 01780821 |
| BVD = (2.0D0 * PIVD) - 1.0D0 / 64.0D0 01790821 |
| AVD = DCOS(BVD) 01800821 |
| IF (AVD - 0.9998779316D+00) 20060, 10060, 40060 01810821 |
| 40060 IF (AVD - 0.9998779327D+00) 10060, 10060, 20060 01820821 |
| 10060 IVPASS = IVPASS + 1 01830821 |
| WRITE (NUVI, 80002) IVTNUM 01840821 |
| GO TO 0061 01850821 |
| 20060 IVFAIL = IVFAIL + 1 01860821 |
| DVCORR = 0.99987793217100665474D+00 01870821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01880821 |
| 0061 CONTINUE 01890821 |
| CT007* TEST 7 VALUES NEAR 2*PI 01900821 |
| IVTNUM = 7 01910821 |
| BVD = (2.0D0 * PIVD) + 1.0D0 / 128.0D0 01920821 |
| AVD = DCOS(BVD) 01930821 |
| IF (AVD - 0.9999694820D+00) 20070, 10070, 40070 01940821 |
| 40070 IF (AVD - 0.9999694831D+00) 10070, 10070, 20070 01950821 |
| 10070 IVPASS = IVPASS + 1 01960821 |
| WRITE (NUVI, 80002) IVTNUM 01970821 |
| GO TO 0071 01980821 |
| 20070 IVFAIL = IVFAIL + 1 01990821 |
| DVCORR = 0.99996948257709511331D+00 02000821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02010821 |
| 0071 CONTINUE 02020821 |
| CT008* TEST 8 AN EXPRESSION PRESENTED TO DCOS 02030821 |
| IVTNUM = 8 02040821 |
| BVD = 350.0D1 02050821 |
| AVD = DCOS(BVD / 100.0D1) 02060821 |
| IF (AVD + 0.9364566878D+00) 20080, 10080, 40080 02070821 |
| 40080 IF (AVD + 0.9364566868D+00) 10080, 10080, 20080 02080821 |
| 10080 IVPASS = IVPASS + 1 02090821 |
| WRITE (NUVI, 80002) IVTNUM 02100821 |
| GO TO 0081 02110821 |
| 20080 IVFAIL = IVFAIL + 1 02120821 |
| DVCORR = -0.93645668729079633770D+00 02130821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02140821 |
| 0081 CONTINUE 02150821 |
| CT009* TEST 9 A NEGATIVE ARGUMENT 02160821 |
| IVTNUM = 9 02170821 |
| BVD = -1.5D0 02180821 |
| AVD = DCOS(BVD) 02190821 |
| IF (AVD - 0.7073720163D-01) 20090, 10090, 40090 02200821 |
| 40090 IF (AVD - 0.7073720171D-01) 10090, 10090, 20090 02210821 |
| 10090 IVPASS = IVPASS + 1 02220821 |
| WRITE (NUVI, 80002) IVTNUM 02230821 |
| GO TO 0091 02240821 |
| 20090 IVFAIL = IVFAIL + 1 02250821 |
| DVCORR = 0.070737201667702910088D+00 02260821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02270821 |
| 0091 CONTINUE 02280821 |
| CT010* TEST 10 LARGE VALUES TO CHECK ARGUMENT REDUCTION 02290821 |
| IVTNUM = 10 02300821 |
| AVD = DCOS(200.0D0) 02310821 |
| IF (AVD - 0.4871876747D+00) 20100, 10100, 40100 02320821 |
| 40100 IF (AVD - 0.4871876753D+00) 10100, 10100, 20100 02330821 |
| 10100 IVPASS = IVPASS + 1 02340821 |
| WRITE (NUVI, 80002) IVTNUM 02350821 |
| GO TO 0101 02360821 |
| 20100 IVFAIL = IVFAIL + 1 02370821 |
| DVCORR = 0.48718767500700591035D+00 02380821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02390821 |
| 0101 CONTINUE 02400821 |
| CT011* TEST 11 LARGE VALUES TO CHECK ARGUMENT REDUCTION 02410821 |
| IVTNUM = 11 02420821 |
| AVD = DCOS(-31416.0D0) 02430821 |
| IF (AVD - 0.9973027257D+00) 20110, 10110, 40110 02440821 |
| 40110 IF (AVD - 0.9973027268D+00) 10110, 10110, 20110 02450821 |
| 10110 IVPASS = IVPASS + 1 02460821 |
| WRITE (NUVI, 80002) IVTNUM 02470821 |
| GO TO 0111 02480821 |
| 20110 IVFAIL = IVFAIL + 1 02490821 |
| DVCORR = 0.99730272627420107808D+00 02500821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02510821 |
| 0111 CONTINUE 02520821 |
| CT012* TEST 12 VALUES NEAR PI/2 02530821 |
| IVTNUM = 12 02540821 |
| AVD = DCOS(1.57079632679489661923D0) 02550821 |
| IF (AVD + 0.5000000000D-09) 20120, 10120, 40120 02560821 |
| 40120 IF (AVD - 0.5000000000D-09) 10120, 10120, 20120 02570821 |
| 10120 IVPASS = IVPASS + 1 02580821 |
| WRITE (NUVI, 80002) IVTNUM 02590821 |
| GO TO 0121 02600821 |
| 20120 IVFAIL = IVFAIL + 1 02610821 |
| DVCORR = 0.00000000000000000000D+00 02620821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02630821 |
| 0121 CONTINUE 02640821 |
| CT013* TEST 13 (PI / 2) - 1/32 02650821 |
| IVTNUM = 13 02660821 |
| BVD = (1.53954632679489661923D0) 02670821 |
| AVD = DCOS(BVD) 02680821 |
| IF (AVD - 0.3124491397D-01) 20130, 10130, 40130 02690821 |
| 40130 IF (AVD - 0.3124491400D-01) 10130, 10130, 20130 02700821 |
| 10130 IVPASS = IVPASS + 1 02710821 |
| WRITE (NUVI, 80002) IVTNUM 02720821 |
| GO TO 0131 02730821 |
| 20130 IVFAIL = IVFAIL + 1 02740821 |
| DVCORR = 0.031244913985326078739D+00 02750821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02760821 |
| 0131 CONTINUE 02770821 |
| CT014* TEST 14 (PI / 2) + 1/16 02780821 |
| IVTNUM = 14 02790821 |
| AVD = DCOS(1.63329632679489661923D0) 02800821 |
| IF (AVD + 0.6245931788D-01) 20140, 10140, 40140 02810821 |
| 40140 IF (AVD + 0.6245931781D-01) 10140, 10140, 20140 02820821 |
| 10140 IVPASS = IVPASS + 1 02830821 |
| WRITE (NUVI, 80002) IVTNUM 02840821 |
| GO TO 0141 02850821 |
| 20140 IVFAIL = IVFAIL + 1 02860821 |
| DVCORR = -0.062459317842380198585D+00 02870821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02880821 |
| 0141 CONTINUE 02890821 |
| CT015* TEST 15 VALUES NEAR 3*PI/2 02900821 |
| IVTNUM = 15 02910821 |
| BVD = 3.0D0 * PIVD / 2.0D0 02920821 |
| AVD = DCOS(BVD) 02930821 |
| IF (AVD + 0.5000000000D-09) 20150, 10150, 40150 02940821 |
| 40150 IF (AVD - 0.5000000000D-09) 10150, 10150, 20150 02950821 |
| 10150 IVPASS = IVPASS + 1 02960821 |
| WRITE (NUVI, 80002) IVTNUM 02970821 |
| GO TO 0151 02980821 |
| 20150 IVFAIL = IVFAIL + 1 02990821 |
| DVCORR = 0.00000000000000000000D+00 03000821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03010821 |
| 0151 CONTINUE 03020821 |
| CT016* TEST 16 VALUES NEAR 3*PI/2 03030821 |
| IVTNUM = 16 03040821 |
| BVD = (3.0D0 * PIVD / 2.0D0) + 1.0D0 / 16.0D0 03050821 |
| AVD = DCOS(BVD) 03060821 |
| IF (AVD - 0.6245931781D-01) 20160, 10160, 40160 03070821 |
| 40160 IF (AVD - 0.6245931788D-01) 10160, 10160, 20160 03080821 |
| 10160 IVPASS = IVPASS + 1 03090821 |
| WRITE (NUVI, 80002) IVTNUM 03100821 |
| GO TO 0161 03110821 |
| 20160 IVFAIL = IVFAIL + 1 03120821 |
| DVCORR = 0.062459317842380198585D+00 03130821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03140821 |
| 0161 CONTINUE 03150821 |
| CT017* TEST 17 VALUES NEAR 3*PI/2 03160821 |
| IVTNUM = 17 03170821 |
| BVD = (3.0D0 * PIVD / 2.0D0) - 1.0D0 / 512.0D0 03180821 |
| AVD = DCOS(BVD) 03190821 |
| IF (AVD + 0.1953123760D-02) 20170, 10170, 40170 03200821 |
| 40170 IF (AVD + 0.1953123757D-02) 10170, 10170, 20170 03210821 |
| 10170 IVPASS = IVPASS + 1 03220821 |
| WRITE (NUVI, 80002) IVTNUM 03230821 |
| GO TO 0171 03240821 |
| 20170 IVFAIL = IVFAIL + 1 03250821 |
| DVCORR = -0.0019531237582368040269D+00 03260821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03270821 |
| 0171 CONTINUE 03280821 |
| CT018* TEST 18 ARGUMENT OF LOW MAGNITUDE 03290821 |
| IVTNUM = 18 03300821 |
| BVD = -3.1415926535898D-35 03310821 |
| AVD = DCOS(BVD) 03320821 |
| IF (AVD - 0.9999999995D+00) 20180, 10180, 40180 03330821 |
| 40180 IF (AVD - 0.1000000001D+01) 10180, 10180, 20180 03340821 |
| 10180 IVPASS = IVPASS + 1 03350821 |
| WRITE (NUVI, 80002) IVTNUM 03360821 |
| GO TO 0181 03370821 |
| 20180 IVFAIL = IVFAIL + 1 03380821 |
| DVCORR = 1.00000000000000000000D+00 03390821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03400821 |
| 0181 CONTINUE 03410821 |
| CT019* TEST 19 THE FUNCTION APPLIED TWICE 03420821 |
| IVTNUM = 19 03430821 |
| AVD = DCOS(PIVD / 4.0D0) * DCOS(3.0D0 * PIVD / 4.0D0) 03440821 |
| IF (AVD + 0.5000000003D+00) 20190, 10190, 40190 03450821 |
| 40190 IF (AVD + 0.4999999997D+00) 10190, 10190, 20190 03460821 |
| 10190 IVPASS = IVPASS + 1 03470821 |
| WRITE (NUVI, 80002) IVTNUM 03480821 |
| GO TO 0191 03490821 |
| 20190 IVFAIL = IVFAIL + 1 03500821 |
| DVCORR = -0.5000000000000000000000D+00 03510821 |
| WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03520821 |
| 0191 CONTINUE 03530821 |
| C***** 03540821 |
| CBB** ********************** BBCSUM0 **********************************03550821 |
| C**** WRITE OUT TEST SUMMARY 03560821 |
| C**** 03570821 |
| IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03580821 |
| WRITE (I02, 90004) 03590821 |
| WRITE (I02, 90014) 03600821 |
| WRITE (I02, 90004) 03610821 |
| WRITE (I02, 90020) IVPASS 03620821 |
| WRITE (I02, 90022) IVFAIL 03630821 |
| WRITE (I02, 90024) IVDELE 03640821 |
| WRITE (I02, 90026) IVINSP 03650821 |
| WRITE (I02, 90028) IVTOTN, IVTOTL 03660821 |
| CBE** ********************** BBCSUM0 **********************************03670821 |
| CBB** ********************** BBCFOOT0 **********************************03680821 |
| C**** WRITE OUT REPORT FOOTINGS 03690821 |
| C**** 03700821 |
| WRITE (I02,90016) ZPROG, ZPROG 03710821 |
| WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03720821 |
| WRITE (I02,90019) 03730821 |
| CBE** ********************** BBCFOOT0 **********************************03740821 |
| CBB** ********************** BBCFMT0A **********************************03750821 |
| C**** FORMATS FOR TEST DETAIL LINES 03760821 |
| C**** 03770821 |
| 80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31) 03780821 |
| 80002 FORMAT (" ",2X,I3,4X," PASS ",32X,A31) 03790821 |
| 80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31) 03800821 |
| 80008 FORMAT (" ",2X,I3,4X," FAIL ",32X,A31) 03810821 |
| 80010 FORMAT (" ",2X,I3,4X," FAIL ",/," ",15X,"COMPUTED= " , 03820821 |
| 1I6,/," ",15X,"CORRECT= " ,I6) 03830821 |
| 80012 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03840821 |
| 1E12.5,/," ",16X,"CORRECT= " ,E12.5) 03850821 |
| 80018 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03860821 |
| 1A21,/," ",16X,"CORRECT= " ,A21) 03870821 |
| 80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31) 03880821 |
| 80022 FORMAT (" ",16X,"CORRECT= " ,A21,1X,A31) 03890821 |
| 80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31) 03900821 |
| 80026 FORMAT (" ",16X,"CORRECT= " ,I6,16X,A31) 03910821 |
| 80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31) 03920821 |
| 80030 FORMAT (" ",16X,"CORRECT= " ,E12.5,10X,A31) 03930821 |
| 80050 FORMAT (" ",48X,A31) 03940821 |
| CBE** ********************** BBCFMT0A **********************************03950821 |
| CBB** ********************** BBCFMAT1 **********************************03960821 |
| C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03970821 |
| C**** 03980821 |
| 80031 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 03990821 |
| 1D17.10,/," ",16X,"CORRECT= " ,D17.10) 04000821 |
| 80033 FORMAT (" ",16X,"COMPUTED= " ,D17.10,10X,A31) 04010821 |
| 80035 FORMAT (" ",16X,"CORRECT= " ,D17.10,10X,A31) 04020821 |
| 80037 FORMAT (" ",16X,"COMPUTED= " ,"(",E12.5,", ",E12.5,")",6X,A31) 04030821 |
| 80039 FORMAT (" ",16X,"CORRECT= " ,"(",E12.5,", ",E12.5,")",6X,A31) 04040821 |
| 80041 FORMAT (" ",16X,"COMPUTED= " ,"(",F12.5,", ",F12.5,")",6X,A31) 04050821 |
| 80043 FORMAT (" ",16X,"CORRECT= " ,"(",F12.5,", ",F12.5,")",6X,A31) 04060821 |
| 80045 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 04070821 |
| 1"(",F12.5,", ",F12.5,")"/," ",16X,"CORRECT= " , 04080821 |
| 2"(",F12.5,", ",F12.5,")") 04090821 |
| CBE** ********************** BBCFMAT1 **********************************04100821 |
| CBB** ********************** BBCFMT0B **********************************04110821 |
| C**** FORMAT STATEMENTS FOR PAGE HEADERS 04120821 |
| C**** 04130821 |
| 90002 FORMAT ("1") 04140821 |
| 90004 FORMAT (" ") 04150821 |
| 90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )04160821 |
| 90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 04170821 |
| 90008 FORMAT (" ",21X,A13,A17) 04180821 |
| 90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/) 04190821 |
| 90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17," - COMPILER= " ,A20) 04200821 |
| 90013 FORMAT (" "," TEST ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" , 04210821 |
| 1 7X,"REMARKS",24X) 04220821 |
| 90014 FORMAT (" ","----------------------------------------------" , 04230821 |
| 1 "---------------------------------" ) 04240821 |
| 90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/) 04250821 |
| C**** 04260821 |
| C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04270821 |
| C**** 04280821 |
| 90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/) 04290821 |
| 90018 FORMAT (" ",A13,13X,A20," * ",A10,"/", 04300821 |
| 1 A13) 04310821 |
| 90019 FORMAT (" ","FOR OFFICIAL USE ONLY " ,35X,"COPYRIGHT 1982" ) 04320821 |
| C**** 04330821 |
| C**** FORMAT STATEMENTS FOR RUN SUMMARY 04340821 |
| C**** 04350821 |
| 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04360821 |
| 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04370821 |
| 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04380821 |
| 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04390821 |
| 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04400821 |
| CBE** ********************** BBCFMT0B **********************************04410821 |
| C***** 04420821 |
| C***** END OF TEST SEGMENT 190 04430821 |
| STOP 04440821 |
| END 04450821 |
| 04460821 |