FM813.f Source File


Contents

Source Code


Source Code

      PROGRAM FM813

C***********************************************************************00010813
C*****  FORTRAN 77                                                      00020813
C*****   FM813                                                          00030813
C*****                       YCSQRT - (177)                             00040813
C*****                                                                  00050813
C***********************************************************************00060813
C*****  GENERAL PURPOSE                                         ANS REF 00070813
C*****    TEST INTRINSIC FUNCTION CSQRT                          15.3   00080813
C*****                                                          TABLE 5 00090813
C*****                                                                  00100813
CBB** ********************** BBCCOMNT **********************************00110813
C****                                                                   00120813
C****            1978 FORTRAN COMPILER VALIDATION SYSTEM                00130813
C****                          VERSION 2.1                              00140813
C****                                                                   00150813
C****                                                                   00160813
C****           SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO         00170813
C****          NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY           00180813
C****               SOFTWARE STANDARDS VALIDATION GROUP                 00190813
C****                      BUILDING 225  RM A266                        00200813
C****                     GAITHERSBURG, MD  20899                       00210813
C****                                                                   00220813
C****                                                                   00230813
C****                                                                   00240813
CBE** ********************** BBCCOMNT **********************************00250813
C*****                                                                  00260813
C*****  S P E C F I C A T I O N S  SEGMENT 177                          00270813
        COMPLEX AVC, BVC, CVC, ZVCORR                                   00280813
        REAL R2E(2)                                                     00290813
        EQUIVALENCE (AVC, R2E)                                          00300813
C*****                                                                  00310813
CBB** ********************** BBCINITA **********************************00320813
C**** SPECIFICATION STATEMENTS                                          00330813
C****                                                                   00340813
      CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20,      00350813
     1          ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13      00360813
CBE** ********************** BBCINITA **********************************00370813
CBB** ********************** BBCINITB **********************************00380813
C**** INITIALIZE SECTION                                                00390813
      DATA  ZVERS,                  ZVERSD,             ZDATE           00400813
     1      /'VERSION 2.1  ',  '93/10/21*21.02.00',  '*NO DATE*TIME'/   00410813
      DATA       ZCOMPL,             ZNAME,             ZTAPE           00420813
     1      /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/      00430813
      DATA       ZPROJ,           ZTAPED,         ZPROG                 00440813
     1      /'*NO PROJECT*',   '*NO TAPE DATE',  'XXXXX'/               00450813
      DATA   REMRKS /'                               '/                 00460813
C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED   00470813
C**** FOR IDENTIFYING THE TEST ENVIRONMENT                              00480813
C****                                                                   00490813
CZ01  ZVERS  = 'VERSION OF THE COMPILER VALIDATION SYSTEM'              00500813
CZ02  ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM'   00510813
CZ03  ZPROG  = 'PROGRAM NAME'                                           00520813
CZ04  ZDATE  = 'DATE OF TEST'                                           00530813
CZ05  ZCOMPL = 'COMPILER IDENTIFICATION'                                00540813
CZ06  ZPROJ  = 'PROJECT NUMBER/IDENTIFICATION'                          00550813
CZ07  ZNAME  = 'NAME OF USER'                                           00560813
CZ08  ZTAPE  = 'TAPE OWNER/ID'                                          00570813
CZ09  ZTAPED = 'DATE TAPE COPIED'                                       00580813
C                                                                       00590813
      IVPASS = 0                                                        00600813
      IVFAIL = 0                                                        00610813
      IVDELE = 0                                                        00620813
      IVINSP = 0                                                        00630813
      IVTOTL = 0                                                        00640813
      IVTOTN = 0                                                        00650813
      ICZERO = 0                                                        00660813
C                                                                       00670813
C     I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER.         00680813
      I01 = 05                                                          00690813
C     I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER.             00700813
      I02 = 06                                                          00710813
C                                                                       00720813
CX010   REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00730813
C     THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5      00740813
CX011   REPLACED BY FEXEC X-011 CONTROL CARD.  CX011 IS FOR SYSTEMS     00750813
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010.  00760813
C                                                                       00770813
CX020   REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER).     00780813
C     THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6       00790813
CX021   REPLACED BY FEXEC X-021 CONTROL CARD.  CX021 IS FOR SYSTEMS     00800813
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020.  00810813
C                                                                       00820813
CBE** ********************** BBCINITB **********************************00830813
      NUVI = I02                                                        00840813
      IVTOTL = 13                                                       00850813
      ZPROG = 'FM813'                                                   00860813
CBB** ********************** BBCHED0A **********************************00870813
C****                                                                   00880813
C**** WRITE REPORT TITLE                                                00890813
C****                                                                   00900813
      WRITE (I02, 90002)                                                00910813
      WRITE (I02, 90006)                                                00920813
      WRITE (I02, 90007)                                                00930813
      WRITE (I02, 90008)  ZVERS, ZVERSD                                 00940813
      WRITE (I02, 90009)  ZPROG, ZPROG                                  00950813
      WRITE (I02, 90010)  ZDATE, ZCOMPL                                 00960813
CBE** ********************** BBCHED0A **********************************00970813
C*****                                                                  00980813
C*****    HEADER FOR SEGMENT 177                                        00990813
        WRITE(NUVI,17700)                                               01000813
17700   FORMAT(" ", / "  YCSQRT - (177) INTRINSIC FUNCTIONS" //         01010813
     1         "  CSQRT (COMPLEX SQUARE ROOT)" //                       01020813
     2         "  ANS REF. - 15.3" )                                    01030813
CBB** ********************** BBCHED0B **********************************01040813
C**** WRITE DETAIL REPORT HEADERS                                       01050813
C****                                                                   01060813
      WRITE (I02,90004)                                                 01070813
      WRITE (I02,90004)                                                 01080813
      WRITE (I02,90013)                                                 01090813
      WRITE (I02,90014)                                                 01100813
      WRITE (I02,90015) IVTOTL                                          01110813
CBE** ********************** BBCHED0B **********************************01120813
C*****                                                                  01130813
CT001*  TEST 1                                                   ZERO   01140813
           IVTNUM = 1                                                   01150813
        BVC = (0.0, 0.0)                                                01160813
        AVC = CSQRT(BVC)                                                01170813
           IF (R2E(1) + 0.50000E-04) 20010, 40012, 40011                01180813
40011      IF (R2E(1) - 0.50000E-04) 40012, 40012, 20010                01190813
40012      IF (R2E(2) + 0.50000E-04) 20010, 10010, 40010                01200813
40010      IF (R2E(2) - 0.50000E-04) 10010, 10010, 20010                01210813
10010      IVPASS = IVPASS + 1                                          01220813
           WRITE (NUVI, 80002) IVTNUM                                   01230813
           GO TO 0011                                                   01240813
20010      IVFAIL = IVFAIL + 1                                          01250813
           ZVCORR = (0.00000000000000, 0.00000000000000)                01260813
           WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR                      01270813
 0011      CONTINUE                                                     01280813
CT002*  TEST 2                                  POSITIVE REAL NUMBERS   01290813
           IVTNUM = 2                                                   01300813
        BVC = (4.0, 4.0)                                                01310813
        AVC = CSQRT(BVC - (0.0, 4.0))                                   01320813
           IF (R2E(1) - 0.19999E+01) 20020, 40022, 40021                01330813
40021      IF (R2E(1) - 0.20001E+01) 40022, 40022, 20020                01340813
40022      IF (R2E(2) + 0.50000E-04) 20020, 10020, 40020                01350813
40020      IF (R2E(2) - 0.50000E-04) 10020, 10020, 20020                01360813
10020      IVPASS = IVPASS + 1                                          01370813
           WRITE (NUVI, 80002) IVTNUM                                   01380813
           GO TO 0021                                                   01390813
20020      IVFAIL = IVFAIL + 1                                          01400813
           ZVCORR = (2.00000000000000, 0.00000000000000)                01410813
           WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR                      01420813
 0021      CONTINUE                                                     01430813
CT003*  TEST 3                                    POSITIVE REAL NUMBERS 01440813
           IVTNUM = 3                                                   01450813
        BVC = (4.0, 4.0)                                                01460813
        CVC = (4.0, -4.0)                                               01470813
        AVC = CSQRT(BVC + CVC)                                          01480813
           IF (R2E(1) - 0.28282E+01) 20030, 40032, 40031                01490813
40031      IF (R2E(1) - 0.28286E+01) 40032, 40032, 20030                01500813
40032      IF (R2E(2) + 0.50000E-04) 20030, 10030, 40030                01510813
40030      IF (R2E(2) - 0.50000E-04) 10030, 10030, 20030                01520813
10030      IVPASS = IVPASS + 1                                          01530813
           WRITE (NUVI, 80002) IVTNUM                                   01540813
           GO TO 0031                                                   01550813
20030      IVFAIL = IVFAIL + 1                                          01560813
           ZVCORR = (2.8284271247462, 0.00000000000000)                 01570813
           WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR                      01580813
 0031      CONTINUE                                                     01590813
CT004*  TEST 4                                    POSITIVE REAL NUMBERS 01600813
           IVTNUM = 4                                                   01610813
        BVC = (4.0, 0.0)                                                01620813
        CVC = BVC + (5.0, 0.0)                                          01630813
        AVC = CSQRT(CVC)                                                01640813
           IF (R2E(1) - 0.29998E+01) 20040, 40042, 40041                01650813
40041      IF (R2E(1) - 0.30002E+01) 40042, 40042, 20040                01660813
40042      IF (R2E(2) + 0.50000E-04) 20040, 10040, 40040                01670813
40040      IF (R2E(2) - 0.50000E-04) 10040, 10040, 20040                01680813
10040      IVPASS = IVPASS + 1                                          01690813
           WRITE (NUVI, 80002) IVTNUM                                   01700813
           GO TO 0041                                                   01710813
20040      IVFAIL = IVFAIL + 1                                          01720813
           ZVCORR = (3.00000000000000, 0.00000000000000)                01730813
           WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR                      01740813
 0041      CONTINUE                                                     01750813
CT005*  TEST  5                                 NEGATIVE REAL NUMBERS   01760813
           IVTNUM = 5                                                   01770813
        BVC = (-1.0, 0.0)                                               01780813
        AVC = CSQRT(BVC)                                                01790813
           IF (R2E(1) + 0.50000E-04) 20050, 40052, 40051                01800813
40051      IF (R2E(1) - 0.50000E-04) 40052, 40052, 20050                01810813
40052      IF (R2E(2) - 0.99995E+00) 20050, 10050, 40050                01820813
40050      IF (R2E(2) - 0.10001E+01) 10050, 10050, 20050                01830813
10050      IVPASS = IVPASS + 1                                          01840813
           WRITE (NUVI, 80002) IVTNUM                                   01850813
           GO TO 0051                                                   01860813
20050      IVFAIL = IVFAIL + 1                                          01870813
           ZVCORR = (0.00000000000000, 1.0000000000000)                 01880813
           WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR                      01890813
 0051      CONTINUE                                                     01900813
CT006*  TEST 6                                    NEGATIVE REAL NUMBERS 01910813
           IVTNUM = 6                                                   01920813
        AVC = CSQRT((-5.0, 0.0))                                        01930813
           IF (R2E(1) + 0.50000E-04) 20060, 40062, 40061                01940813
40061      IF (R2E(1) - 0.50000E-04) 40062, 40062, 20060                01950813
40062      IF (R2E(2) - 0.22359E+01) 20060, 10060, 40060                01960813
40060      IF (R2E(2) - 0.22362E+01) 10060, 10060, 20060                01970813
10060      IVPASS = IVPASS + 1                                          01980813
           WRITE (NUVI, 80002) IVTNUM                                   01990813
           GO TO 0061                                                   02000813
20060      IVFAIL = IVFAIL + 1                                          02010813
           ZVCORR = (0.00000000000000, 2.2360679774998)                 02020813
           WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR                      02030813
 0061      CONTINUE                                                     02040813
CT007*  TEST 7                                    NEGATIVE REAL NUMBERS 02050813
           IVTNUM = 7                                                   02060813
        BVC = (-25.0, 0.0)                                              02070813
        AVC = CSQRT(BVC)                                                02080813
           IF (R2E(1) + 0.50000E-04) 20070, 40072, 40071                02090813
40071      IF (R2E(1) - 0.50000E-04) 40072, 40072, 20070                02100813
40072      IF (R2E(2) - 0.49997E+01) 20070, 10070, 40070                02110813
40070      IF (R2E(2) - 0.50003E+01) 10070, 10070, 20070                02120813
10070      IVPASS = IVPASS + 1                                          02130813
           WRITE (NUVI, 80002) IVTNUM                                   02140813
           GO TO 0071                                                   02150813
20070      IVFAIL = IVFAIL + 1                                          02160813
           ZVCORR = (0.00000000000000, 5.0000000000000)                 02170813
           WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR                      02180813
 0071      CONTINUE                                                     02190813
CT008*  TEST 8                  VARIABLES SUPPLIED WITHIN AN EXPRESSION 02200813
           IVTNUM = 8                                                   02210813
        BVC = (0.203125,0.0)                                            02220813
        CVC = (0.0, 1.3125)                                             02230813
        AVC = CSQRT(BVC + CVC)                                          02240813
           IF (R2E(1) - 0.87495E+00) 20080, 40082, 40081                02250813
40081      IF (R2E(1) - 0.87505E+00) 40082, 40082, 20080                02260813
40082      IF (R2E(2) - 0.74996E+00) 20080, 10080, 40080                02270813
40080      IF (R2E(2) - 0.75004E+00) 10080, 10080, 20080                02280813
10080      IVPASS = IVPASS + 1                                          02290813
           WRITE (NUVI, 80002) IVTNUM                                   02300813
           GO TO 0081                                                   02310813
20080      IVFAIL = IVFAIL + 1                                          02320813
           ZVCORR = (0.87500000000000, 0.75000000000000)                02330813
           WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR                      02340813
 0081      CONTINUE                                                     02350813
CT009*  TEST 9                  VARIABLES SUPPLIED WITHIN AN EXPRESSION 02360813
           IVTNUM = 9                                                   02370813
        BVC = (1.0,0.0)                                                 02380813
        AVC = CSQRT(BVC - (0.38671875, 0.515625))                       02390813
           IF (R2E(1) - 0.84094E+00) 20090, 40092, 40091                02400813
40091      IF (R2E(1) - 0.84103E+00) 40092, 40092, 20090                02410813
40092      IF (R2E(2) + 0.30658E+00) 20090, 10090, 40090                02420813
40090      IF (R2E(2) + 0.30654E+00) 10090, 10090, 20090                02430813
10090      IVPASS = IVPASS + 1                                          02440813
           WRITE (NUVI, 80002) IVTNUM                                   02450813
           GO TO 0091                                                   02460813
20090      IVFAIL = IVFAIL + 1                                          02470813
           ZVCORR = (0.84098742159541, -0.30655928183909)               02480813
           WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR                      02490813
 0091      CONTINUE                                                     02500813
CT010*  TEST 10                 VARIABLES SUPPLIED WITHIN AN EXPRESSION 02510813
           IVTNUM = 10                                                  02520813
        BVC = (-0.375, 0.5)                                             02530813
        AVC = CSQRT(BVC + BVC)                                          02540813
           IF (R2E(1) - 0.49997E+00) 20100, 40102, 40101                02550813
40101      IF (R2E(1) - 0.50003E+00) 40102, 40102, 20100                02560813
40102      IF (R2E(2) - 0.99995E+00) 20100, 10100, 40100                02570813
40100      IF (R2E(2) - 0.10001E+01) 10100, 10100, 20100                02580813
10100      IVPASS = IVPASS + 1                                          02590813
           WRITE (NUVI, 80002) IVTNUM                                   02600813
           GO TO 0101                                                   02610813
20100      IVFAIL = IVFAIL + 1                                          02620813
           ZVCORR = (0.50000000000000, 1.0000000000000)                 02630813
           WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR                      02640813
 0101      CONTINUE                                                     02650813
CT011*  TEST 11                              PURELY IMAGINARY NUMBERS   02660813
           IVTNUM = 11                                                  02670813
        AVC = CSQRT((0.0, 2.0))                                         02680813
           IF (R2E(1) - 0.99995E+00) 20110, 40112, 40111                02690813
40111      IF (R2E(1) - 0.10001E+01) 40112, 40112, 20110                02700813
40112      IF (R2E(2) - 0.99995E+00) 20110, 10110, 40110                02710813
40110      IF (R2E(2) - 0.10001E+01) 10110, 10110, 20110                02720813
10110      IVPASS = IVPASS + 1                                          02730813
           WRITE (NUVI, 80002) IVTNUM                                   02740813
           GO TO 0111                                                   02750813
20110      IVFAIL = IVFAIL + 1                                          02760813
           ZVCORR = (1.00000000000000, 1.0000000000000)                 02770813
           WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR                      02780813
 0111      CONTINUE                                                     02790813
CT012*  TEST 12                                PURELY IMAGINARY NUMBERS 02800813
           IVTNUM = 12                                                  02810813
        AVC = CSQRT((0.0, -8.0))                                        02820813
           IF (R2E(1) - 0.19999E+01) 20120, 40122, 40121                02830813
40121      IF (R2E(1) - 0.20001E+01) 40122, 40122, 20120                02840813
40122      IF (R2E(2) + 0.20001E+01) 20120, 10120, 40120                02850813
40120      IF (R2E(2) + 0.19999E+01) 10120, 10120, 20120                02860813
10120      IVPASS = IVPASS + 1                                          02870813
           WRITE (NUVI, 80002) IVTNUM                                   02880813
           GO TO 0121                                                   02890813
20120      IVFAIL = IVFAIL + 1                                          02900813
           ZVCORR = (2.00000000000000, -2.0000000000000)                02910813
           WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR                      02920813
 0121      CONTINUE                                                     02930813
CT013*  TEST 13                                      (-0.5,SQRT(3)/2)   02940813
           IVTNUM = 13                                                  02950813
        BVC = (-0.5, -0.8660254038)                                     02960813
        CVC = CSQRT(CSQRT(BVC))                                         02970813
        AVC = CVC - BVC * (0.0, 1.0)                                    02980813
           IF (R2E(1) + 0.50000E-04) 20130, 40132, 40131                02990813
40131      IF (R2E(1) - 0.50000E-04) 40132, 40132, 20130                03000813
40132      IF (R2E(2) + 0.50000E-04) 20130, 10130, 40130                03010813
40130      IF (R2E(2) - 0.50000E-04) 10130, 10130, 20130                03020813
10130      IVPASS = IVPASS + 1                                          03030813
           WRITE (NUVI, 80002) IVTNUM                                   03040813
           GO TO 0131                                                   03050813
20130      IVFAIL = IVFAIL + 1                                          03060813
           ZVCORR = (0.00000000000000, 0.00000000000000)                03070813
           WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR                      03080813
 0131      CONTINUE                                                     03090813
C*****                                                                  03100813
CBB** ********************** BBCSUM0  **********************************03110813
C**** WRITE OUT TEST SUMMARY                                            03120813
C****                                                                   03130813
      IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP                        03140813
      WRITE (I02, 90004)                                                03150813
      WRITE (I02, 90014)                                                03160813
      WRITE (I02, 90004)                                                03170813
      WRITE (I02, 90020) IVPASS                                         03180813
      WRITE (I02, 90022) IVFAIL                                         03190813
      WRITE (I02, 90024) IVDELE                                         03200813
      WRITE (I02, 90026) IVINSP                                         03210813
      WRITE (I02, 90028) IVTOTN, IVTOTL                                 03220813
CBE** ********************** BBCSUM0  **********************************03230813
CBB** ********************** BBCFOOT0 **********************************03240813
C**** WRITE OUT REPORT FOOTINGS                                         03250813
C****                                                                   03260813
      WRITE (I02,90016) ZPROG, ZPROG                                    03270813
      WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED                     03280813
      WRITE (I02,90019)                                                 03290813
CBE** ********************** BBCFOOT0 **********************************03300813
CBB** ********************** BBCFMT0A **********************************03310813
C**** FORMATS FOR TEST DETAIL LINES                                     03320813
C****                                                                   03330813
80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31)                           03340813
80002 FORMAT (" ",2X,I3,4X," PASS  ",32X,A31)                           03350813
80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31)                           03360813
80008 FORMAT (" ",2X,I3,4X," FAIL  ",32X,A31)                           03370813
80010 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",15X,"COMPUTED= " ,           03380813
     1I6,/," ",15X,"CORRECT=  " ,I6)                                    03390813
80012 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03400813
     1E12.5,/," ",16X,"CORRECT=  " ,E12.5)                              03410813
80018 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03420813
     1A21,/," ",16X,"CORRECT=  " ,A21)                                  03430813
80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31)                         03440813
80022 FORMAT (" ",16X,"CORRECT=  " ,A21,1X,A31)                         03450813
80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31)                         03460813
80026 FORMAT (" ",16X,"CORRECT=  " ,I6,16X,A31)                         03470813
80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31)                      03480813
80030 FORMAT (" ",16X,"CORRECT=  " ,E12.5,10X,A31)                      03490813
80050 FORMAT (" ",48X,A31)                                              03500813
CBE** ********************** BBCFMT0A **********************************03510813
CBB** ********************** BBCFMAT1 **********************************03520813
C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE                     03530813
C****                                                                   03540813
80031 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03550813
     1D17.10,/," ",16X,"CORRECT=  " ,D17.10)                            03560813
80033 FORMAT (" ",16X,"COMPUTED= " ,D17.10,10X,A31)                     03570813
80035 FORMAT (" ",16X,"CORRECT=  " ,D17.10,10X,A31)                     03580813
80037 FORMAT (" ",16X,"COMPUTED= " ,"(",E12.5,", ",E12.5,")",6X,A31)    03590813
80039 FORMAT (" ",16X,"CORRECT=  " ,"(",E12.5,", ",E12.5,")",6X,A31)    03600813
80041 FORMAT (" ",16X,"COMPUTED= " ,"(",F12.5,", ",F12.5,")",6X,A31)    03610813
80043 FORMAT (" ",16X,"CORRECT=  " ,"(",F12.5,", ",F12.5,")",6X,A31)    03620813
80045 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03630813
     1"(",F12.5,", ",F12.5,")"/," ",16X,"CORRECT=  " ,                  03640813
     2"(",F12.5,", ",F12.5,")")                                         03650813
CBE** ********************** BBCFMAT1 **********************************03660813
CBB** ********************** BBCFMT0B **********************************03670813
C**** FORMAT STATEMENTS FOR PAGE HEADERS                                03680813
C****                                                                   03690813
90002 FORMAT ("1")                                                      03700813
90004 FORMAT (" ")                                                      03710813
90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )03720813
90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" )            03730813
90008 FORMAT (" ",21X,A13,A17)                                          03740813
90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/)       03750813
90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17,"  -  COMPILER= " ,A20)    03760813
90013 FORMAT (" "," TEST   ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" ,     03770813
     1       7X,"REMARKS",24X)                                          03780813
90014 FORMAT (" ","----------------------------------------------" ,    03790813
     1        "---------------------------------" )                     03800813
90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/)               03810813
C****                                                                   03820813
C**** FORMAT STATEMENTS FOR REPORT FOOTINGS                             03830813
C****                                                                   03840813
90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/)          03850813
90018 FORMAT (" ",A13,13X,A20,"   *   ",A10,"/",                        03860813
     1        A13)                                                      03870813
90019 FORMAT (" ","FOR OFFICIAL USE ONLY     " ,35X,"COPYRIGHT  1982" ) 03880813
C****                                                                   03890813
C**** FORMAT STATEMENTS FOR RUN SUMMARY                                 03900813
C****                                                                   03910813
90020 FORMAT (" ",21X,I5," TESTS PASSED" )                              03920813
90022 FORMAT (" ",21X,I5," TESTS FAILED" )                              03930813
90024 FORMAT (" ",21X,I5," TESTS DELETED" )                             03940813
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" )                  03950813
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" )                  03960813
CBE** ********************** BBCFMT0B **********************************03970813
C*****                                                                  03980813
C*****    END OF TEST SEGMENT 177                                       03990813
      STOP                                                              04000813
      END                                                               04010813
                                                                        04020813