      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