FM814.f Source File


Contents

Source Code


Source Code

      PROGRAM FM814

C***********************************************************************00010814
C*****  FORTRAN 77                                                      00020814
C*****   FM814                                                          00030814
C*****                       YDEXP - (179)                              00040814
C*****                                                                  00050814
C***********************************************************************00060814
C*****  GENERAL PURPOSE                                         ANS REF 00070814
C*****    TEST INTRINSIC FUNCTION DEXP                           15.3   00080814
C*****                                                          TABLE 5 00090814
C*****                                                                  00100814
CBB** ********************** BBCCOMNT **********************************00110814
C****                                                                   00120814
C****            1978 FORTRAN COMPILER VALIDATION SYSTEM                00130814
C****                          VERSION 2.1                              00140814
C****                                                                   00150814
C****                                                                   00160814
C****           SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO         00170814
C****          NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY           00180814
C****               SOFTWARE STANDARDS VALIDATION GROUP                 00190814
C****                      BUILDING 225  RM A266                        00200814
C****                     GAITHERSBURG, MD  20899                       00210814
C****                                                                   00220814
C****                                                                   00230814
C****                                                                   00240814
CBE** ********************** BBCCOMNT **********************************00250814
C*****                                                                  00260814
C*****  S P E C I F I C A T I O N S  SEGMENT 179                        00270814
        DOUBLE PRECISION AVD, BVD, DVCORR                               00280814
C*****                                                                  00290814
CBB** ********************** BBCINITA **********************************00300814
C**** SPECIFICATION STATEMENTS                                          00310814
C****                                                                   00320814
      CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20,      00330814
     1          ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13      00340814
CBE** ********************** BBCINITA **********************************00350814
CBB** ********************** BBCINITB **********************************00360814
C**** INITIALIZE SECTION                                                00370814
      DATA  ZVERS,                  ZVERSD,             ZDATE           00380814
     1      /'VERSION 2.1  ',  '93/10/21*21.02.00',  '*NO DATE*TIME'/   00390814
      DATA       ZCOMPL,             ZNAME,             ZTAPE           00400814
     1      /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/      00410814
      DATA       ZPROJ,           ZTAPED,         ZPROG                 00420814
     1      /'*NO PROJECT*',   '*NO TAPE DATE',  'XXXXX'/               00430814
      DATA   REMRKS /'                               '/                 00440814
C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED   00450814
C**** FOR IDENTIFYING THE TEST ENVIRONMENT                              00460814
C****                                                                   00470814
CZ01  ZVERS  = 'VERSION OF THE COMPILER VALIDATION SYSTEM'              00480814
CZ02  ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM'   00490814
CZ03  ZPROG  = 'PROGRAM NAME'                                           00500814
CZ04  ZDATE  = 'DATE OF TEST'                                           00510814
CZ05  ZCOMPL = 'COMPILER IDENTIFICATION'                                00520814
CZ06  ZPROJ  = 'PROJECT NUMBER/IDENTIFICATION'                          00530814
CZ07  ZNAME  = 'NAME OF USER'                                           00540814
CZ08  ZTAPE  = 'TAPE OWNER/ID'                                          00550814
CZ09  ZTAPED = 'DATE TAPE COPIED'                                       00560814
C                                                                       00570814
      IVPASS = 0                                                        00580814
      IVFAIL = 0                                                        00590814
      IVDELE = 0                                                        00600814
      IVINSP = 0                                                        00610814
      IVTOTL = 0                                                        00620814
      IVTOTN = 0                                                        00630814
      ICZERO = 0                                                        00640814
C                                                                       00650814
C     I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER.         00660814
      I01 = 05                                                          00670814
C     I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER.             00680814
      I02 = 06                                                          00690814
C                                                                       00700814
CX010   REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00710814
C     THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5      00720814
CX011   REPLACED BY FEXEC X-011 CONTROL CARD.  CX011 IS FOR SYSTEMS     00730814
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010.  00740814
C                                                                       00750814
CX020   REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER).     00760814
C     THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6       00770814
CX021   REPLACED BY FEXEC X-021 CONTROL CARD.  CX021 IS FOR SYSTEMS     00780814
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020.  00790814
C                                                                       00800814
CBE** ********************** BBCINITB **********************************00810814
      NUVI = I02                                                        00820814
      IVTOTL = 19                                                       00830814
      ZPROG = 'FM814'                                                   00840814
CBB** ********************** BBCHED0A **********************************00850814
C****                                                                   00860814
C**** WRITE REPORT TITLE                                                00870814
C****                                                                   00880814
      WRITE (I02, 90002)                                                00890814
      WRITE (I02, 90006)                                                00900814
      WRITE (I02, 90007)                                                00910814
      WRITE (I02, 90008)  ZVERS, ZVERSD                                 00920814
      WRITE (I02, 90009)  ZPROG, ZPROG                                  00930814
      WRITE (I02, 90010)  ZDATE, ZCOMPL                                 00940814
CBE** ********************** BBCHED0A **********************************00950814
C*****                                                                  00960814
C*****    HEADER FOR SEGMENT 179                                        00970814
        WRITE(NUVI,17900)                                               00980814
17900   FORMAT(" ", / "  YDEXP - (179) INTRINSIC FUNCTIONS" //          00990814
     1         "  DEXP (DOUBLE PRECISION EXPONENTIAL)" //               01000814
     2         "  ANS REF. - 15.3" )                                    01010814
CBB** ********************** BBCHED0B **********************************01020814
C**** WRITE DETAIL REPORT HEADERS                                       01030814
C****                                                                   01040814
      WRITE (I02,90004)                                                 01050814
      WRITE (I02,90004)                                                 01060814
      WRITE (I02,90013)                                                 01070814
      WRITE (I02,90014)                                                 01080814
      WRITE (I02,90015) IVTOTL                                          01090814
CBE** ********************** BBCHED0B **********************************01100814
C*****                                                                  01110814
CT001*  TEST 1                                 ZERO, SINCE EXP(0) = 1   01120814
           IVTNUM = 1                                                   01130814
        BVD = 0.0D0                                                     01140814
        AVD = DEXP(BVD)                                                 01150814
           IF (AVD - 0.9999999995D+00) 20010, 10010, 40010              01160814
40010      IF (AVD - 0.1000000001D+01) 10010, 10010, 20010              01170814
10010      IVPASS = IVPASS + 1                                          01180814
           WRITE (NUVI, 80002) IVTNUM                                   01190814
           GO TO 0011                                                   01200814
20010      IVFAIL = IVFAIL + 1                                          01210814
           DVCORR = 0.10000000000000000000D+01                          01220814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01230814
 0011      CONTINUE                                                     01240814
CT002*  TEST 2                                  ONE, SINCE EXP(1) = E   01250814
           IVTNUM = 2                                                   01260814
        AVD = DEXP(1.0D0)                                               01270814
           IF (AVD - 0.2718281827D+01) 20020, 10020, 40020              01280814
40020      IF (AVD - 0.2718281830D+01) 10020, 10020, 20020              01290814
10020      IVPASS = IVPASS + 1                                          01300814
           WRITE (NUVI, 80002) IVTNUM                                   01310814
           GO TO 0021                                                   01320814
20020      IVFAIL = IVFAIL + 1                                          01330814
           DVCORR = 0.27182818284590452354D+01                          01340814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01350814
 0021      CONTINUE                                                     01360814
CT003*  TEST 3                                                          01370814
           IVTNUM = 3                                                   01380814
        AVD = DEXP(2.0D0)                                               01390814
           IF (AVD - 0.7389056095D+01) 20030, 10030, 40030              01400814
40030      IF (AVD - 0.7389056103D+01) 10030, 10030, 20030              01410814
10030      IVPASS = IVPASS + 1                                          01420814
           WRITE (NUVI, 80002) IVTNUM                                   01430814
           GO TO 0031                                                   01440814
20030      IVFAIL = IVFAIL + 1                                          01450814
           DVCORR = 0.73890560989306502272D+01                          01460814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01470814
 0031      CONTINUE                                                     01480814
CT004*  TEST 4                                                          01490814
           IVTNUM = 4                                                   01500814
        AVD = DEXP(5.125D0)                                             01510814
           IF (AVD - 0.1681741415D+03) 20040, 10040, 40040              01520814
40040      IF (AVD - 0.1681741418D+03) 10040, 10040, 20040              01530814
10040      IVPASS = IVPASS + 1                                          01540814
           WRITE (NUVI, 80002) IVTNUM                                   01550814
           GO TO 0041                                                   01560814
20040      IVFAIL = IVFAIL + 1                                          01570814
           DVCORR = 0.16817414165184545127D+03                          01580814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01590814
 0041      CONTINUE                                                     01600814
CT005*  TEST 5                                                          01610814
           IVTNUM = 5                                                   01620814
        AVD = DEXP(15.0D0)                                              01630814
           IF (AVD - 0.3269017370D+07) 20050, 10050, 40050              01640814
40050      IF (AVD - 0.3269017374D+07) 10050, 10050, 20050              01650814
10050      IVPASS = IVPASS + 1                                          01660814
           WRITE (NUVI, 80002) IVTNUM                                   01670814
           GO TO 0051                                                   01680814
20050      IVFAIL = IVFAIL + 1                                          01690814
           DVCORR = 0.32690173724721106393D+07                          01700814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01710814
 0051      CONTINUE                                                     01720814
CT006*  TEST 6                                                          01730814
           IVTNUM = 6                                                   01740814
        BVD = 20.5D0                                                    01750814
        AVD = DEXP(BVD)                                                 01760814
           IF (AVD - 0.7999021770D+09) 20060, 10060, 40060              01770814
40060      IF (AVD - 0.7999021779D+09) 10060, 10060, 20060              01780814
10060      IVPASS = IVPASS + 1                                          01790814
           WRITE (NUVI, 80002) IVTNUM                                   01800814
           GO TO 0061                                                   01810814
20060      IVFAIL = IVFAIL + 1                                          01820814
           DVCORR = 0.79990217747550540670D+09                          01830814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01840814
 0061      CONTINUE                                                     01850814
CT007*  TEST 7                                                          01860814
           IVTNUM = 7                                                   01870814
        BVD = 4.5D0                                                     01880814
        AVD = DEXP(BVD - 7.5D0)                                         01890814
           IF (AVD - 0.4978706834D-01) 20070, 10070, 40070              01900814
40070      IF (AVD - 0.4978706840D-01) 10070, 10070, 20070              01910814
10070      IVPASS = IVPASS + 1                                          01920814
           WRITE (NUVI, 80002) IVTNUM                                   01930814
           GO TO 0071                                                   01940814
20070      IVFAIL = IVFAIL + 1                                          01950814
           DVCORR = 0.49787068367863942979D-01                          01960814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01970814
 0071      CONTINUE                                                     01980814
CT008*  TEST 8                                                          01990814
           IVTNUM = 8                                                   02000814
        BVD = 0.25D0                                                    02010814
        AVD = DEXP(BVD - 5.0D0)                                         02020814
           IF (AVD - 0.8651695198D-02) 20080, 10080, 40080              02030814
40080      IF (AVD - 0.8651695208D-02) 10080, 10080, 20080              02040814
10080      IVPASS = IVPASS + 1                                          02050814
           WRITE (NUVI, 80002) IVTNUM                                   02060814
           GO TO 0081                                                   02070814
20080      IVFAIL = IVFAIL + 1                                          02080814
           DVCORR = 0.86516952031206341771D-02                          02090814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02100814
 0081      CONTINUE                                                     02110814
CT009*  TEST 9                                                          02120814
           IVTNUM = 9                                                   02130814
        AVD = DEXP(0.5D0 * (-20.0D0))                                   02140814
           IF (AVD - 0.4539992974D-04) 20090, 10090, 40090              02150814
40090      IF (AVD - 0.4539992979D-04) 10090, 10090, 20090              02160814
10090      IVPASS = IVPASS + 1                                          02170814
           WRITE (NUVI, 80002) IVTNUM                                   02180814
           GO TO 0091                                                   02190814
20090      IVFAIL = IVFAIL + 1                                          02200814
           DVCORR = 0.45399929762484851536D-04                          02210814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02220814
 0091      CONTINUE                                                     02230814
CT010*  TEST 10                                                         02240814
           IVTNUM = 10                                                  02250814
        BVD = 30.5D0                                                    02260814
        AVD = DEXP(BVD / (-2.0D0))                                      02270814
           IF (AVD - 0.2382369666D-06) 20100, 10100, 40100              02280814
40100      IF (AVD - 0.2382369669D-06) 10100, 10100, 20100              02290814
10100      IVPASS = IVPASS + 1                                          02300814
           WRITE (NUVI, 80002) IVTNUM                                   02310814
           GO TO 0101                                                   02320814
20100      IVFAIL = IVFAIL + 1                                          02330814
           DVCORR = 0.23823696675018179180D-06                          02340814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02350814
 0101      CONTINUE                                                     02360814
CT011*  TEST 11                                   VALUES CLOSE TO 1.0   02370814
           IVTNUM = 11                                                  02380814
        AVD = DEXP(0.9921875D0)                                         02390814
           IF (AVD - 0.2697127990D+01) 20110, 10110, 40110              02400814
40110      IF (AVD - 0.2697127993D+01) 10110, 10110, 20110              02410814
10110      IVPASS = IVPASS + 1                                          02420814
           WRITE (NUVI, 80002) IVTNUM                                   02430814
           GO TO 0111                                                   02440814
20110      IVFAIL = IVFAIL + 1                                          02450814
           DVCORR = 0.26971279914439187908D+01                          02460814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02470814
 0111      CONTINUE                                                     02480814
CT012*  TEST 12                                                         02490814
           IVTNUM = 12                                                  02500814
        BVD = 0.9990234375D0                                            02510814
        AVD = DEXP(BVD)                                                 02520814
           IF (AVD - 0.2715628550D+01) 20120, 10120, 40120              02530814
40120      IF (AVD - 0.2715628554D+01) 10120, 10120, 20120              02540814
10120      IVPASS = IVPASS + 1                                          02550814
           WRITE (NUVI, 80002) IVTNUM                                   02560814
           GO TO 0121                                                   02570814
20120      IVFAIL = IVFAIL + 1                                          02580814
           DVCORR = 0.27156285521168930956D+01                          02590814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02600814
 0121      CONTINUE                                                     02610814
CT013*  TEST 13                                                         02620814
           IVTNUM = 13                                                  02630814
        AVD = DEXP(1.00390625D0)                                        02640814
           IF (AVD - 0.2728920881D+01) 20130, 10130, 40130              02650814
40130      IF (AVD - 0.2728920884D+01) 10130, 10130, 20130              02660814
10130      IVPASS = IVPASS + 1                                          02670814
           WRITE (NUVI, 80002) IVTNUM                                   02680814
           GO TO 0131                                                   02690814
20130      IVFAIL = IVFAIL + 1                                          02700814
           DVCORR = 0.27289208827260750401D+01                          02710814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02720814
 0131      CONTINUE                                                     02730814
CT014*  TEST 14                                                         02740814
           IVTNUM = 14                                                  02750814
        BVD = 1.001953125D0                                             02760814
        AVD = DEXP(BVD)                                                 02770814
           IF (AVD - 0.2723596159D+01) 20140, 10140, 40140              02780814
40140      IF (AVD - 0.2723596162D+01) 10140, 10140, 20140              02790814
10140      IVPASS = IVPASS + 1                                          02800814
           WRITE (NUVI, 80002) IVTNUM                                   02810814
           GO TO 0141                                                   02820814
20140      IVFAIL = IVFAIL + 1                                          02830814
           DVCORR = 0.27235961607434952125D+01                          02840814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02850814
 0141      CONTINUE                                                     02860814
CT015*  TEST 15                                   VALUES CLOSE TO 1/E   02870814
           IVTNUM = 15                                                  02880814
        BVD = 128.0D0                                                   02890814
        AVD = DEXP(44.0D0 / BVD)                                        02900814
           IF (AVD - 0.1410226034D+01) 20150, 10150, 40150              02910814
40150      IF (AVD - 0.1410226036D+01) 10150, 10150, 20150              02920814
10150      IVPASS = IVPASS + 1                                          02930814
           WRITE (NUVI, 80002) IVTNUM                                   02940814
           GO TO 0151                                                   02950814
20150      IVFAIL = IVFAIL + 1                                          02960814
           DVCORR = 0.14102260349257107057D+01                          02970814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02980814
 0151      CONTINUE                                                     02990814
CT016*  TEST 16                                                         03000814
           IVTNUM = 16                                                  03010814
        BVD = 128.0D0                                                   03020814
        AVD = DEXP(45.0D0 / BVD)                                        03030814
           IF (AVD - 0.1421286574D+01) 20160, 10160, 40160              03040814
40160      IF (AVD - 0.1421286576D+01) 10160, 10160, 20160              03050814
10160      IVPASS = IVPASS + 1                                          03060814
           WRITE (NUVI, 80002) IVTNUM                                   03070814
           GO TO 0161                                                   03080814
20160      IVFAIL = IVFAIL + 1                                          03090814
           DVCORR = 0.14212865748006967556D+01                          03100814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      03110814
 0161      CONTINUE                                                     03120814
CT017*  TEST 17                                                         03130814
           IVTNUM = 17                                                  03140814
        BVD = 128.0D0                                                   03150814
        AVD = DEXP(46.0D0 / BVD)                                        03160814
           IF (AVD - 0.1432433862D+01) 20170, 10170, 40170              03170814
40170      IF (AVD - 0.1432433865D+01) 10170, 10170, 20170              03180814
10170      IVPASS = IVPASS + 1                                          03190814
           WRITE (NUVI, 80002) IVTNUM                                   03200814
           GO TO 0171                                                   03210814
20170      IVFAIL = IVFAIL + 1                                          03220814
           DVCORR = 0.14324338635650781150D+01                          03230814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      03240814
 0171      CONTINUE                                                     03250814
CT018*  TEST 18                                                         03260814
           IVTNUM = 18                                                  03270814
        BVD = 128.0D0                                                   03280814
        AVD = DEXP(47.0D0 / BVD)                                        03290814
           IF (AVD - 0.1443668580D+01) 20180, 10180, 40180              03300814
40180      IF (AVD - 0.1443668583D+01) 10180, 10180, 20180              03310814
10180      IVPASS = IVPASS + 1                                          03320814
           WRITE (NUVI, 80002) IVTNUM                                   03330814
           GO TO 0181                                                   03340814
20180      IVFAIL = IVFAIL + 1                                          03350814
           DVCORR = 0.14436685815988268628D+01                          03360814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      03370814
 0181      CONTINUE                                                     03380814
CT019*  TEST 19                                                         03390814
           IVTNUM = 19                                                  03400814
        BVD = 128.0D0                                                   03410814
        AVD = DEXP(48.0D0 / BVD)                                        03420814
           IF (AVD - 0.1454991413D+01) 20190, 10190, 40190              03430814
40190      IF (AVD - 0.1454991416D+01) 10190, 10190, 20190              03440814
10190      IVPASS = IVPASS + 1                                          03450814
           WRITE (NUVI, 80002) IVTNUM                                   03460814
           GO TO 0191                                                   03470814
20190      IVFAIL = IVFAIL + 1                                          03480814
           DVCORR = 0.14549914146182013361D+01                          03490814
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      03500814
 0191      CONTINUE                                                     03510814
C*****                                                                  03520814
CBB** ********************** BBCSUM0  **********************************03530814
C**** WRITE OUT TEST SUMMARY                                            03540814
C****                                                                   03550814
      IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP                        03560814
      WRITE (I02, 90004)                                                03570814
      WRITE (I02, 90014)                                                03580814
      WRITE (I02, 90004)                                                03590814
      WRITE (I02, 90020) IVPASS                                         03600814
      WRITE (I02, 90022) IVFAIL                                         03610814
      WRITE (I02, 90024) IVDELE                                         03620814
      WRITE (I02, 90026) IVINSP                                         03630814
      WRITE (I02, 90028) IVTOTN, IVTOTL                                 03640814
CBE** ********************** BBCSUM0  **********************************03650814
CBB** ********************** BBCFOOT0 **********************************03660814
C**** WRITE OUT REPORT FOOTINGS                                         03670814
C****                                                                   03680814
      WRITE (I02,90016) ZPROG, ZPROG                                    03690814
      WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED                     03700814
      WRITE (I02,90019)                                                 03710814
CBE** ********************** BBCFOOT0 **********************************03720814
CBB** ********************** BBCFMT0A **********************************03730814
C**** FORMATS FOR TEST DETAIL LINES                                     03740814
C****                                                                   03750814
80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31)                           03760814
80002 FORMAT (" ",2X,I3,4X," PASS  ",32X,A31)                           03770814
80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31)                           03780814
80008 FORMAT (" ",2X,I3,4X," FAIL  ",32X,A31)                           03790814
80010 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",15X,"COMPUTED= " ,           03800814
     1I6,/," ",15X,"CORRECT=  " ,I6)                                    03810814
80012 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03820814
     1E12.5,/," ",16X,"CORRECT=  " ,E12.5)                              03830814
80018 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03840814
     1A21,/," ",16X,"CORRECT=  " ,A21)                                  03850814
80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31)                         03860814
80022 FORMAT (" ",16X,"CORRECT=  " ,A21,1X,A31)                         03870814
80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31)                         03880814
80026 FORMAT (" ",16X,"CORRECT=  " ,I6,16X,A31)                         03890814
80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31)                      03900814
80030 FORMAT (" ",16X,"CORRECT=  " ,E12.5,10X,A31)                      03910814
80050 FORMAT (" ",48X,A31)                                              03920814
CBE** ********************** BBCFMT0A **********************************03930814
CBB** ********************** BBCFMAT1 **********************************03940814
C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE                     03950814
C****                                                                   03960814
80031 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03970814
     1D17.10,/," ",16X,"CORRECT=  " ,D17.10)                            03980814
80033 FORMAT (" ",16X,"COMPUTED= " ,D17.10,10X,A31)                     03990814
80035 FORMAT (" ",16X,"CORRECT=  " ,D17.10,10X,A31)                     04000814
80037 FORMAT (" ",16X,"COMPUTED= " ,"(",E12.5,", ",E12.5,")",6X,A31)    04010814
80039 FORMAT (" ",16X,"CORRECT=  " ,"(",E12.5,", ",E12.5,")",6X,A31)    04020814
80041 FORMAT (" ",16X,"COMPUTED= " ,"(",F12.5,", ",F12.5,")",6X,A31)    04030814
80043 FORMAT (" ",16X,"CORRECT=  " ,"(",F12.5,", ",F12.5,")",6X,A31)    04040814
80045 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           04050814
     1"(",F12.5,", ",F12.5,")"/," ",16X,"CORRECT=  " ,                  04060814
     2"(",F12.5,", ",F12.5,")")                                         04070814
CBE** ********************** BBCFMAT1 **********************************04080814
CBB** ********************** BBCFMT0B **********************************04090814
C**** FORMAT STATEMENTS FOR PAGE HEADERS                                04100814
C****                                                                   04110814
90002 FORMAT ("1")                                                      04120814
90004 FORMAT (" ")                                                      04130814
90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )04140814
90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" )            04150814
90008 FORMAT (" ",21X,A13,A17)                                          04160814
90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/)       04170814
90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17,"  -  COMPILER= " ,A20)    04180814
90013 FORMAT (" "," TEST   ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" ,     04190814
     1       7X,"REMARKS",24X)                                          04200814
90014 FORMAT (" ","----------------------------------------------" ,    04210814
     1        "---------------------------------" )                     04220814
90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/)               04230814
C****                                                                   04240814
C**** FORMAT STATEMENTS FOR REPORT FOOTINGS                             04250814
C****                                                                   04260814
90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/)          04270814
90018 FORMAT (" ",A13,13X,A20,"   *   ",A10,"/",                        04280814
     1        A13)                                                      04290814
90019 FORMAT (" ","FOR OFFICIAL USE ONLY     " ,35X,"COPYRIGHT  1982" ) 04300814
C****                                                                   04310814
C**** FORMAT STATEMENTS FOR RUN SUMMARY                                 04320814
C****                                                                   04330814
90020 FORMAT (" ",21X,I5," TESTS PASSED" )                              04340814
90022 FORMAT (" ",21X,I5," TESTS FAILED" )                              04350814
90024 FORMAT (" ",21X,I5," TESTS DELETED" )                             04360814
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" )                  04370814
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" )                  04380814
CBE** ********************** BBCFMT0B **********************************04390814
C*****                                                                  04400814
C*****    END OF TEST SEGMENT 179                                       04410814
      STOP                                                              04420814
      END                                                               04430814
                                                                        04440814