FM361.f Source File


Contents

Source Code


Source Code

      PROGRAM FM361

C***********************************************************************00010361
C*****  FORTRAN 77                                                      00020361
C*****   FM361               XMAX - (165)                               00030361
C*****                                                                  00040361
C***********************************************************************00050361
C*****  GENERAL PURPOSE                                       SUBSET REF00060361
C*****    TEST OF INTRINSIC FUNCTIONS AMAX0,AMAX1,MAX0,MAX1      15.3   00070361
C*****    CHOOSING LARGEST VALUE                               (TABLE 5)00080361
C*****                                                                  00090361
CBB** ********************** BBCCOMNT **********************************00100361
C****                                                                   00110361
C****            1978 FORTRAN COMPILER VALIDATION SYSTEM                00120361
C****                          VERSION 2.1                              00130361
C****                                                                   00140361
C****                                                                   00150361
C****           SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO         00160361
C****          NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY           00170361
C****               SOFTWARE STANDARDS VALIDATION GROUP                 00180361
C****                      BUILDING 225  RM A266                        00190361
C****                     GAITHERSBURG, MD  20899                       00200361
C****                                                                   00210361
C****                                                                   00220361
C****                                                                   00230361
CBE** ********************** BBCCOMNT **********************************00240361
CBB** ********************** BBCINITA **********************************00250361
C**** SPECIFICATION STATEMENTS                                          00260361
C****                                                                   00270361
      CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20,      00280361
     1          ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13      00290361
CBE** ********************** BBCINITA **********************************00300361
CBB** ********************** BBCINITB **********************************00310361
C**** INITIALIZE SECTION                                                00320361
      DATA  ZVERS,                  ZVERSD,             ZDATE           00330361
     1      /'VERSION 2.1  ',  '93/10/21*21.02.00',  '*NO DATE*TIME'/   00340361
      DATA       ZCOMPL,             ZNAME,             ZTAPE           00350361
     1      /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/      00360361
      DATA       ZPROJ,           ZTAPED,         ZPROG                 00370361
     1      /'*NO PROJECT*',   '*NO TAPE DATE',  'XXXXX'/               00380361
      DATA   REMRKS /'                               '/                 00390361
C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED   00400361
C**** FOR IDENTIFYING THE TEST ENVIRONMENT                              00410361
C****                                                                   00420361
CZ01  ZVERS  = 'VERSION OF THE COMPILER VALIDATION SYSTEM'              00430361
CZ02  ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM'   00440361
CZ03  ZPROG  = 'PROGRAM NAME'                                           00450361
CZ04  ZDATE  = 'DATE OF TEST'                                           00460361
CZ05  ZCOMPL = 'COMPILER IDENTIFICATION'                                00470361
CZ06  ZPROJ  = 'PROJECT NUMBER/IDENTIFICATION'                          00480361
CZ07  ZNAME  = 'NAME OF USER'                                           00490361
CZ08  ZTAPE  = 'TAPE OWNER/ID'                                          00500361
CZ09  ZTAPED = 'DATE TAPE COPIED'                                       00510361
C                                                                       00520361
      IVPASS = 0                                                        00530361
      IVFAIL = 0                                                        00540361
      IVDELE = 0                                                        00550361
      IVINSP = 0                                                        00560361
      IVTOTL = 0                                                        00570361
      IVTOTN = 0                                                        00580361
      ICZERO = 0                                                        00590361
C                                                                       00600361
C     I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER.         00610361
      I01 = 05                                                          00620361
C     I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER.             00630361
      I02 = 06                                                          00640361
C                                                                       00650361
CX010   REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00660361
C     THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5      00670361
CX011   REPLACED BY FEXEC X-011 CONTROL CARD.  CX011 IS FOR SYSTEMS     00680361
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010.  00690361
C                                                                       00700361
CX020   REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER).     00710361
C     THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6       00720361
CX021   REPLACED BY FEXEC X-021 CONTROL CARD.  CX021 IS FOR SYSTEMS     00730361
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020.  00740361
C                                                                       00750361
CBE** ********************** BBCINITB **********************************00760361
      NUVI = I02                                                        00770361
      IVTOTL = 48                                                       00780361
      ZPROG = 'FM361'                                                   00790361
CBB** ********************** BBCHED0A **********************************00800361
C****                                                                   00810361
C**** WRITE REPORT TITLE                                                00820361
C****                                                                   00830361
      WRITE (I02, 90002)                                                00840361
      WRITE (I02, 90006)                                                00850361
      WRITE (I02, 90007)                                                00860361
      WRITE (I02, 90008)  ZVERS, ZVERSD                                 00870361
      WRITE (I02, 90009)  ZPROG, ZPROG                                  00880361
      WRITE (I02, 90010)  ZDATE, ZCOMPL                                 00890361
CBE** ********************** BBCHED0A **********************************00900361
C*****                                                                  00910361
C*****    HEADER FOR SEGMENT 165                                        00920361
        WRITE (NUVI,16501)                                              00930361
16501   FORMAT (" ", // 2X,"XMAX - (165) INTRINSIC FUNCTIONS--  " //13X,00940361
     1          "AMAX0, AMAX1, MAX0, MAX1  "    /13X,                   00950361
     2          "(CHOOSING LARGEST VALUE)" //2X,                        00960361
     3          "SUBSET REF. - 15.3" )                                  00970361
CBB** ********************** BBCHED0B **********************************00980361
C**** WRITE DETAIL REPORT HEADERS                                       00990361
C****                                                                   01000361
      WRITE (I02,90004)                                                 01010361
      WRITE (I02,90004)                                                 01020361
      WRITE (I02,90013)                                                 01030361
      WRITE (I02,90014)                                                 01040361
      WRITE (I02,90015) IVTOTL                                          01050361
CBE** ********************** BBCHED0B **********************************01060361
C*****                                                                  01070361
C*****    TEST OF AMAX0                                                 01080361
C*****                                                                  01090361
        WRITE(NUVI, 16502)                                              01100361
16502   FORMAT (/ 8X, "TEST OF AMAX0" )                                 01110361
CT001*  TEST 1                                            BOTH ZEROES   01120361
           IVTNUM = 1                                                   01130361
        IHBVI = 0                                                       01140361
        IHDVI = 0                                                       01150361
        RHAVS = AMAX0(IHBVI,IHDVI)                                      01160361
           IF (RHAVS + 0.00005) 20010, 10010, 40010                     01170361
40010      IF (RHAVS - 0.00005) 10010, 10010, 20010                     01180361
10010      IVPASS = IVPASS + 1                                          01190361
           WRITE (NUVI, 80002) IVTNUM                                   01200361
           GO TO 0011                                                   01210361
20010      IVFAIL = IVFAIL + 1                                          01220361
           RVCORR = 0.0                                                 01230361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    01240361
 0011      CONTINUE                                                     01250361
CT002*  TEST 2                                 ONE NON-ZERO, ONE ZERO   01260361
           IVTNUM = 2                                                   01270361
        IHBVI = 6                                                       01280361
        IHDVI = 0                                                       01290361
        RHAVS = AMAX0(IHBVI,IHDVI)                                      01300361
           IF (RHAVS - 5.9997) 20020, 10020, 40020                      01310361
40020      IF (RHAVS - 6.0003) 10020, 10020, 20020                      01320361
10020      IVPASS = IVPASS + 1                                          01330361
           WRITE (NUVI, 80002) IVTNUM                                   01340361
           GO TO 0021                                                   01350361
20020      IVFAIL = IVFAIL + 1                                          01360361
           RVCORR = 6.0                                                 01370361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    01380361
 0021      CONTINUE                                                     01390361
CT003*  TEST 3                                      BOTH VALUES EQUAL   01400361
           IVTNUM = 3                                                   01410361
        IHBVI = 7                                                       01420361
        IHDVI = 7                                                       01430361
        RHAVS = AMAX0(IHBVI,IHDVI)                                      01440361
           IF (RHAVS - 6.9996) 20030, 10030, 40030                      01450361
40030      IF (RHAVS - 7.0004) 10030, 10030, 20030                      01460361
10030      IVPASS = IVPASS + 1                                          01470361
           WRITE (NUVI, 80002) IVTNUM                                   01480361
           GO TO 0031                                                   01490361
20030      IVFAIL = IVFAIL + 1                                          01500361
           RVCORR = 7.0                                                 01510361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    01520361
 0031      CONTINUE                                                     01530361
CT004*  TEST 4                          UNEQUAL VALUES, BOTH POSITIVE   01540361
           IVTNUM = 4                                                   01550361
        IHBVI = 7                                                       01560361
        IHDVI = 5                                                       01570361
        RHAVS = AMAX0(IHBVI,IHDVI)                                      01580361
           IF (RHAVS - 6.9996) 20040, 10040, 40040                      01590361
40040      IF (RHAVS - 7.0004) 10040, 10040, 20040                      01600361
10040      IVPASS = IVPASS + 1                                          01610361
           WRITE (NUVI, 80002) IVTNUM                                   01620361
           GO TO 0041                                                   01630361
20040      IVFAIL = IVFAIL + 1                                          01640361
           RVCORR = 7.0                                                 01650361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    01660361
 0041      CONTINUE                                                     01670361
CT005*  TEST 5                                 ONE NEGATIVE, ONE ZERO   01680361
           IVTNUM = 5                                                   01690361
        IHBVI = -6                                                      01700361
        IHDVI = 0                                                       01710361
        RHAVS = AMAX0(IHBVI,IHDVI)                                      01720361
           IF (RHAVS + 0.00005) 20050, 10050, 40050                     01730361
40050      IF (RHAVS - 0.00005) 10050, 10050, 20050                     01740361
10050      IVPASS = IVPASS + 1                                          01750361
           WRITE (NUVI, 80002) IVTNUM                                   01760361
           GO TO 0051                                                   01770361
20050      IVFAIL = IVFAIL + 1                                          01780361
           RVCORR = 0.0                                                 01790361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    01800361
 0051      CONTINUE                                                     01810361
CT006*  TEST 6                       BOTH VALUES EQUAL, BOTH NEGATIVE   01820361
           IVTNUM = 6                                                   01830361
        IHBVI = -7                                                      01840361
        IHDVI = -7                                                      01850361
        RHAVS = AMAX0(IHBVI,IHDVI)                                      01860361
           IF (RHAVS + 7.0004) 20060, 10060, 40060                      01870361
40060      IF (RHAVS + 6.9996) 10060, 10060, 20060                      01880361
10060      IVPASS = IVPASS + 1                                          01890361
           WRITE (NUVI, 80002) IVTNUM                                   01900361
           GO TO 0061                                                   01910361
20060      IVFAIL = IVFAIL + 1                                          01920361
           RVCORR = -7.0                                                01930361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    01940361
 0061      CONTINUE                                                     01950361
CT007*  TEST 7                   BOTH VALUES NOT EQUAL, BOTH NEGATIVE   01960361
           IVTNUM = 7                                                   01970361
        IHBVI = -7                                                      01980361
        IHDVI = -5                                                      01990361
        RHAVS = AMAX0(IHBVI,IHDVI)                                      02000361
           IF (RHAVS + 5.0003) 20070, 10070, 40070                      02010361
40070      IF (RHAVS + 4.9997) 10070, 10070, 20070                      02020361
10070      IVPASS = IVPASS + 1                                          02030361
           WRITE (NUVI, 80002) IVTNUM                                   02040361
           GO TO 0071                                                   02050361
20070      IVFAIL = IVFAIL + 1                                          02060361
           RVCORR = -5.0                                                02070361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    02080361
 0071      CONTINUE                                                     02090361
CT008*  TEST 8  1ST VALUE NON-ZERO, 2ND ZERO PRECEDED BY A MINUS SIGN   02100361
           IVTNUM = 8                                                   02110361
        IHDVI = 6                                                       02120361
        IHEVI = 0                                                       02130361
        RHAVS = AMAX0(IHDVI, -IHEVI)                                    02140361
           IF (RHAVS - 5.9997) 20080, 10080, 40080                      02150361
40080      IF (RHAVS - 6.0003) 10080, 10080, 20080                      02160361
10080      IVPASS = IVPASS + 1                                          02170361
           WRITE (NUVI, 80002) IVTNUM                                   02180361
           GO TO 0081                                                   02190361
20080      IVFAIL = IVFAIL + 1                                          02200361
           RVCORR = 6.0                                                 02210361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    02220361
 0081      CONTINUE                                                     02230361
CT009*  TEST 9                      EXPRESSIONS PRESENTED TO FUNCTION   02240361
           IVTNUM = 9                                                   02250361
        IHDVI = 3                                                       02260361
        IHEVI = 4                                                       02270361
        RHAVS = AMAX0(IHDVI + IHEVI, -IHEVI - IHDVI)                    02280361
           IF (RHAVS - 6.9996) 20090, 10090, 40090                      02290361
40090      IF (RHAVS - 7.0004) 10090, 10090, 20090                      02300361
10090      IVPASS = IVPASS + 1                                          02310361
           WRITE (NUVI, 80002) IVTNUM                                   02320361
           GO TO 0091                                                   02330361
20090      IVFAIL = IVFAIL + 1                                          02340361
           RVCORR = 7.0                                                 02350361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    02360361
 0091      CONTINUE                                                     02370361
CT010*  TEST 10                                           3 ARGUMENTS   02380361
           IVTNUM = 10                                                  02390361
        IHBVI = 0                                                       02400361
        IHCVI = 1                                                       02410361
        IHDVI = 3                                                       02420361
        RHAVS = AMAX0(IHBVI, IHCVI, IHDVI)                              02430361
           IF (RHAVS - 2.9998) 20100, 10100, 40100                      02440361
40100      IF (RHAVS - 3.0002) 10100, 10100, 20100                      02450361
10100      IVPASS = IVPASS + 1                                          02460361
           WRITE (NUVI, 80002) IVTNUM                                   02470361
           GO TO 0101                                                   02480361
20100      IVFAIL = IVFAIL + 1                                          02490361
           RVCORR = 3.0                                                 02500361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    02510361
 0101      CONTINUE                                                     02520361
CT011*  TEST 11                                           4 ARGUMENTS   02530361
           IVTNUM = 11                                                  02540361
        IHBVI = 0                                                       02550361
        IHCVI = 1                                                       02560361
        IHDVI = 4                                                       02570361
        RHAVS = AMAX0(IHDVI, -IHBVI, IHCVI, IHBVI)                      02580361
           IF (RHAVS - 3.9998) 20110, 10110, 40110                      02590361
40110      IF (RHAVS - 4.0002) 10110, 10110, 20110                      02600361
10110      IVPASS = IVPASS + 1                                          02610361
           WRITE (NUVI, 80002) IVTNUM                                   02620361
           GO TO 0111                                                   02630361
20110      IVFAIL = IVFAIL + 1                                          02640361
           RVCORR = 4.0                                                 02650361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    02660361
 0111      CONTINUE                                                     02670361
CT012*  TEST 12                                           5 ARGUMENTS   02680361
           IVTNUM = 12                                                  02690361
        IHDVI = 4.0                                                     02700361
        IHEVI = 5.0                                                     02710361
        RHAVS = AMAX0(IHDVI, -IHDVI, -IHEVI, +IHDVI, IHEVI)             02720361
           IF (RHAVS - 4.9997) 20120, 10120, 40120                      02730361
40120      IF (RHAVS - 5.0003) 10120, 10120, 20120                      02740361
10120      IVPASS = IVPASS + 1                                          02750361
           WRITE (NUVI, 80002) IVTNUM                                   02760361
           GO TO 0121                                                   02770361
20120      IVFAIL = IVFAIL + 1                                          02780361
           RVCORR = 5.0                                                 02790361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    02800361
 0121      CONTINUE                                                     02810361
C*****                                                                  02820361
        WRITE (NUVI, 90002)                                             02830361
        WRITE (NUVI, 90013)                                             02840361
        WRITE (NUVI, 90014)                                             02850361
C*****    TEST OF AMAX1                                                 02860361
C*****                                                                  02870361
        WRITE(NUVI, 16504)                                              02880361
16504   FORMAT (/ 8X, "TEST OF AMAX1" )                                 02890361
CT013*  TEST 13                                      BOTH VALUES ZERO   02900361
           IVTNUM = 13                                                  02910361
        RHBVS = 0.0                                                     02920361
        RHDVS = 0.0                                                     02930361
        RHAVS = AMAX1(RHBVS, RHDVS)                                     02940361
           IF (RHAVS + 0.00005) 20130, 10130, 40130                     02950361
40130      IF (RHAVS - 0.00005) 10130, 10130, 20130                     02960361
10130      IVPASS = IVPASS + 1                                          02970361
           WRITE (NUVI, 80002) IVTNUM                                   02980361
           GO TO 0131                                                   02990361
20130      IVFAIL = IVFAIL + 1                                          03000361
           RVCORR = 0.0                                                 03010361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    03020361
 0131      CONTINUE                                                     03030361
CT014*  TEST 14                     FIRST VALUE NON-ZERO, SECOND ZERO   03040361
           IVTNUM = 14                                                  03050361
        RHBVS = 5.625                                                   03060361
        RHDVS = 0.0                                                     03070361
        RHAVS = AMAX1(RHBVS, RHDVS)                                     03080361
           IF (RHAVS - 5.6247) 20140, 10140, 40140                      03090361
40140      IF (RHAVS - 5.6253) 10140, 10140, 20140                      03100361
10140      IVPASS = IVPASS + 1                                          03110361
           WRITE (NUVI, 80002) IVTNUM                                   03120361
           GO TO 0141                                                   03130361
20140      IVFAIL = IVFAIL + 1                                          03140361
           RVCORR = 5.625                                               03150361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    03160361
 0141      CONTINUE                                                     03170361
CT015*  TEST 15                                     BOTH VALUES EQUAL   03180361
           IVTNUM = 15                                                  03190361
        RHBVS = 6.5                                                     03200361
        RHDVS = 6.5                                                     03210361
        RHAVS = AMAX1(RHBVS, RHDVS)                                     03220361
           IF (RHAVS - 6.4996) 20150, 10150, 40150                      03230361
40150      IF (RHAVS - 6.5004) 10150, 10150, 20150                      03240361
10150      IVPASS = IVPASS + 1                                          03250361
           WRITE (NUVI, 80002) IVTNUM                                   03260361
           GO TO 0151                                                   03270361
20150      IVFAIL = IVFAIL + 1                                          03280361
           RVCORR = 6.5                                                 03290361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    03300361
 0151      CONTINUE                                                     03310361
CT016*  TEST 16                                      VALUES NOT EQUAL   03320361
           IVTNUM = 16                                                  03330361
        RHBVS = 7.125                                                   03340361
        RHDVS = 5.125                                                   03350361
        RHAVS = AMAX1(RHBVS, RHDVS)                                     03360361
           IF (RHAVS - 7.1246) 20160, 10160, 40160                      03370361
40160      IF (RHAVS - 7.1254) 10160, 10160, 20160                      03380361
10160      IVPASS = IVPASS + 1                                          03390361
           WRITE (NUVI, 80002) IVTNUM                                   03400361
           GO TO 0161                                                   03410361
20160      IVFAIL = IVFAIL + 1                                          03420361
           RVCORR = 7.125                                               03430361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    03440361
 0161      CONTINUE                                                     03450361
CT017*  TEST 17                     FIRST VALUE NEGATIVE, SECOND ZERO   03460361
           IVTNUM = 17                                                  03470361
        RHBVS = -5.625                                                  03480361
        RHDVS = 0.0                                                     03490361
        RHAVS = AMAX1(RHBVS, RHDVS)                                     03500361
           IF (RHAVS + 0.00005) 20170, 10170, 40170                     03510361
40170      IF (RHAVS - 0.00005) 10170, 10170, 20170                     03520361
10170      IVPASS = IVPASS + 1                                          03530361
           WRITE (NUVI, 80002) IVTNUM                                   03540361
           GO TO 0171                                                   03550361
20170      IVFAIL = IVFAIL + 1                                          03560361
           RVCORR = 0.0                                                 03570361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    03580361
 0171      CONTINUE                                                     03590361
CT018*  TEST 18                      BOTH VALUES EQUAL, BOTH NEGATIVE   03600361
           IVTNUM = 18                                                  03610361
        RHBVS = -6.5                                                    03620361
        RHDVS = -6.5                                                    03630361
        RHAVS = AMAX1(RHBVS, RHDVS)                                     03640361
           IF (RHAVS + 6.5004) 20180, 10180, 40180                      03650361
40180      IF (RHAVS + 6.4996) 10180, 10180, 20180                      03660361
10180      IVPASS = IVPASS + 1                                          03670361
           WRITE (NUVI, 80002) IVTNUM                                   03680361
           GO TO 0181                                                   03690361
20180      IVFAIL = IVFAIL + 1                                          03700361
           RVCORR = -6.5                                                03710361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    03720361
 0181      CONTINUE                                                     03730361
CT019*  TEST 19                       VALUES NOT EQUAL, BOTH NEGATIVE   03740361
           IVTNUM = 19                                                  03750361
        RHBVS = -7.125                                                  03760361
        RHDVS = -5.125                                                  03770361
        RHAVS = AMAX1(RHBVS, RHDVS)                                     03780361
           IF (RHAVS + 5.1253) 20190, 10190, 40190                      03790361
40190      IF (RHAVS + 5.1247) 10190, 10190, 20190                      03800361
10190      IVPASS = IVPASS + 1                                          03810361
           WRITE (NUVI, 80002) IVTNUM                                   03820361
           GO TO 0191                                                   03830361
20190      IVFAIL = IVFAIL + 1                                          03840361
           RVCORR = -5.125                                              03850361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    03860361
 0191      CONTINUE                                                     03870361
CT020*  TEST 20   1ST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN   03880361
           IVTNUM = 20                                                  03890361
        RHDVS = 5.625                                                   03900361
        RHEVS = 0.0                                                     03910361
        RHAVS = AMAX1(RHDVS, -RHEVS)                                    03920361
           IF (RHAVS - 5.6247) 20200, 10200, 40200                      03930361
40200      IF (RHAVS - 5.6253) 10200, 10200, 20200                      03940361
10200      IVPASS = IVPASS + 1                                          03950361
           WRITE (NUVI, 80002) IVTNUM                                   03960361
           GO TO 0201                                                   03970361
20200      IVFAIL = IVFAIL + 1                                          03980361
           RVCORR = 5.625                                               03990361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    04000361
 0201      CONTINUE                                                     04010361
CT021*  TEST 21                     EXPRESSIONS PRESENTED TO FUNCTION   04020361
           IVTNUM = 21                                                  04030361
        RHDVS = 3.5                                                     04040361
        RHEVS = 4.0                                                     04050361
        RHAVS = AMAX1(RHDVS + RHEVS, -RHEVS - RHDVS)                    04060361
           IF (RHAVS - 7.4996) 20210, 10210, 40210                      04070361
40210      IF (RHAVS - 7.5004) 10210, 10210, 20210                      04080361
10210      IVPASS = IVPASS + 1                                          04090361
           WRITE (NUVI, 80002) IVTNUM                                   04100361
           GO TO 0211                                                   04110361
20210      IVFAIL = IVFAIL + 1                                          04120361
           RVCORR = 7.5                                                 04130361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    04140361
 0211      CONTINUE                                                     04150361
CT022*  TEST 22                                           3 ARGUMENTS   04160361
           IVTNUM = 22                                                  04170361
        RHBVS = 0.0                                                     04180361
        RHCVS = 1.0                                                     04190361
        RHDVS = 0.5                                                     04200361
        RHAVS = AMAX1(RHBVS, RHCVS, RHDVS)                              04210361
           IF (RHAVS - 0.99995) 20220, 10220, 40220                     04220361
40220      IF (RHAVS - 1.0001) 10220, 10220, 20220                      04230361
10220      IVPASS = IVPASS + 1                                          04240361
           WRITE (NUVI, 80002) IVTNUM                                   04250361
           GO TO 0221                                                   04260361
20220      IVFAIL = IVFAIL + 1                                          04270361
           RVCORR = 1.0                                                 04280361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    04290361
 0221      CONTINUE                                                     04300361
CT023*  TEST 23                                           4 ARGUMENTS   04310361
           IVTNUM = 23                                                  04320361
        RHBVS = 1.5                                                     04330361
        RHCVS = 3.4                                                     04340361
        RHDVS = 3.5                                                     04350361
        RHAVS = AMAX1(-RHDVS, RHCVS, RHBVS, RHDVS)                      04360361
           IF (RHAVS - 3.4998) 20230, 10230, 40230                      04370361
40230      IF (RHAVS - 3.5002) 10230, 10230, 20230                      04380361
10230      IVPASS = IVPASS + 1                                          04390361
           WRITE (NUVI, 80002) IVTNUM                                   04400361
           GO TO 0231                                                   04410361
20230      IVFAIL = IVFAIL + 1                                          04420361
           RVCORR = 3.5                                                 04430361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    04440361
 0231      CONTINUE                                                     04450361
CT024*  TEST 24                                           5 ARGUMENTS   04460361
           IVTNUM = 24                                                  04470361
        RHDVS = 3.5                                                     04480361
        RHEVS = 4.5                                                     04490361
        RHAVS = AMAX1(RHDVS, -RHDVS, -RHEVS, +RHDVS, RHEVS)             04500361
           IF (RHAVS - 4.4997) 20240, 10240, 40240                      04510361
40240      IF (RHAVS - 4.5003) 10240, 10240, 20240                      04520361
10240      IVPASS = IVPASS + 1                                          04530361
           WRITE (NUVI, 80002) IVTNUM                                   04540361
           GO TO 0241                                                   04550361
20240      IVFAIL = IVFAIL + 1                                          04560361
           RVCORR = 4.5                                                 04570361
           WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR                    04580361
 0241      CONTINUE                                                     04590361
C*****                                                                  04600361
        WRITE (NUVI, 90002)                                             04610361
        WRITE (NUVI, 90013)                                             04620361
        WRITE (NUVI, 90014)                                             04630361
C*****    TEST OF MAX0                                                  04640361
C*****                                                                  04650361
        WRITE(NUVI, 16505)                                              04660361
16505   FORMAT (/ 8X, "TEST OF MAX0" )                                  04670361
C*****                                                                  04680361
CT025*  TEST 25                                      BOTH VALUES ZERO   04690361
           IVTNUM = 25                                                  04700361
        IHBVI = 0                                                       04710361
        IHDVI = 0                                                       04720361
        IHAVI = MAX0(IHBVI, IHDVI)                                      04730361
           IF (IHAVI - 0) 20250, 10250, 20250                           04740361
10250      IVPASS = IVPASS + 1                                          04750361
           WRITE (NUVI, 80002) IVTNUM                                   04760361
           GO TO 0251                                                   04770361
20250      IVFAIL = IVFAIL + 1                                          04780361
           IVCORR = 0                                                   04790361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    04800361
 0251      CONTINUE                                                     04810361
CT026*  TEST 26                     FIRST VALUE NON-ZERO, SECOND ZERO   04820361
           IVTNUM = 26                                                  04830361
        IHBVI = 6                                                       04840361
        IHDVI = 0                                                       04850361
        IHAVI = MAX0(IHBVI, IHDVI)                                      04860361
           IF (IHAVI - 6) 20260, 10260, 20260                           04870361
10260      IVPASS = IVPASS + 1                                          04880361
           WRITE (NUVI, 80002) IVTNUM                                   04890361
           GO TO 0261                                                   04900361
20260      IVFAIL = IVFAIL + 1                                          04910361
           IVCORR = 6                                                   04920361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    04930361
 0261      CONTINUE                                                     04940361
CT027*  TEST 27                                     BOTH VALUES EQUAL   04950361
           IVTNUM = 27                                                  04960361
        IHBVI = 7                                                       04970361
        IHDVI = 7                                                       04980361
        IHAVI = MAX0(IHBVI, IHDVI)                                      04990361
           IF (IHAVI - 7) 20270, 10270, 20270                           05000361
10270      IVPASS = IVPASS + 1                                          05010361
           WRITE (NUVI, 80002) IVTNUM                                   05020361
           GO TO 0271                                                   05030361
20270      IVFAIL = IVFAIL + 1                                          05040361
           IVCORR = 7                                                   05050361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    05060361
 0271      CONTINUE                                                     05070361
CT028*  TEST 28                                      VALUES NOT EQUAL   05080361
           IVTNUM = 28                                                  05090361
        IHBVI = 7                                                       05100361
        IHDVI = 5                                                       05110361
        IHAVI = MAX0(IHBVI, IHDVI)                                      05120361
           IF (IHAVI - 7) 20280, 10280, 20280                           05130361
10280      IVPASS = IVPASS + 1                                          05140361
           WRITE (NUVI, 80002) IVTNUM                                   05150361
           GO TO 0281                                                   05160361
20280      IVFAIL = IVFAIL + 1                                          05170361
           IVCORR = 7                                                   05180361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    05190361
 0281      CONTINUE                                                     05200361
CT029*  TEST 29                     FIRST VALUE NEGATIVE, SECOND ZERO   05210361
           IVTNUM = 29                                                  05220361
        IHBVI = -6                                                      05230361
        IHDVI = 0                                                       05240361
        IHAVI = MAX0(IHBVI, IHDVI)                                      05250361
           IF (IHAVI - 0) 20290, 10290, 20290                           05260361
10290      IVPASS = IVPASS + 1                                          05270361
           WRITE (NUVI, 80002) IVTNUM                                   05280361
           GO TO 0291                                                   05290361
20290      IVFAIL = IVFAIL + 1                                          05300361
           IVCORR = 0                                                   05310361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    05320361
 0291      CONTINUE                                                     05330361
CT030*  TEST 30                      BOTH VALUES EQUAL, BOTH NEGATIVE   05340361
           IVTNUM = 30                                                  05350361
        IHBVI = -7                                                      05360361
        IHDVI = -7                                                      05370361
        IHAVI = MAX0(IHBVI, IHDVI)                                      05380361
           IF (IHAVI + 7) 20300, 10300, 20300                           05390361
10300      IVPASS = IVPASS + 1                                          05400361
           WRITE (NUVI, 80002) IVTNUM                                   05410361
           GO TO 0301                                                   05420361
20300      IVFAIL = IVFAIL + 1                                          05430361
           IVCORR = -7                                                  05440361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    05450361
 0301      CONTINUE                                                     05460361
CT031*  TEST 31                       VALUES NOT EQUAL, BOTH NEGATIVE   05470361
           IVTNUM = 31                                                  05480361
        IHBVI = -7                                                      05490361
        IHDVI = -5                                                      05500361
        IHAVI = MAX0(IHBVI, IHDVI)                                      05510361
           IF (IHAVI + 5) 20310, 10310, 20310                           05520361
10310      IVPASS = IVPASS + 1                                          05530361
           WRITE (NUVI, 80002) IVTNUM                                   05540361
           GO TO 0311                                                   05550361
20310      IVFAIL = IVFAIL + 1                                          05560361
           IVCORR = -5                                                  05570361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    05580361
 0311      CONTINUE                                                     05590361
CT032*  TEST 32   1ST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN   05600361
           IVTNUM = 32                                                  05610361
        IHDVI = 6                                                       05620361
        IHEVI = 0                                                       05630361
        IHAVI = MAX0(IHDVI, -IHEVI)                                     05640361
           IF (IHAVI - 6) 20320, 10320, 20320                           05650361
10320      IVPASS = IVPASS + 1                                          05660361
           WRITE (NUVI, 80002) IVTNUM                                   05670361
           GO TO 0321                                                   05680361
20320      IVFAIL = IVFAIL + 1                                          05690361
           IVCORR = 6                                                   05700361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    05710361
 0321      CONTINUE                                                     05720361
CT033*  TEST 33                     EXPRESSIONS PRESENTED TO FUNCTION   05730361
           IVTNUM = 33                                                  05740361
        IHDVI = 3                                                       05750361
        IHEVI = 4                                                       05760361
        IHAVI = MAX0(IHDVI + IHEVI, -IHEVI - IHDVI)                     05770361
           IF (IHAVI - 7) 20330, 10330, 20330                           05780361
10330      IVPASS = IVPASS + 1                                          05790361
           WRITE (NUVI, 80002) IVTNUM                                   05800361
           GO TO 0331                                                   05810361
20330      IVFAIL = IVFAIL + 1                                          05820361
           IVCORR = 7                                                   05830361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    05840361
 0331      CONTINUE                                                     05850361
CT034*  TEST 34                                           3 ARGUMENTS   05860361
           IVTNUM = 34                                                  05870361
        IHBVI = 0                                                       05880361
        IHCVI = 3                                                       05890361
        IHDVI = -4                                                      05900361
        IHAVI = MAX0(IHDVI, IHBVI, IHCVI)                               05910361
           IF (IHAVI - 3) 20340, 10340, 20340                           05920361
10340      IVPASS = IVPASS + 1                                          05930361
           WRITE (NUVI, 80002) IVTNUM                                   05940361
           GO TO 0341                                                   05950361
20340      IVFAIL = IVFAIL + 1                                          05960361
           IVCORR = 3                                                   05970361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    05980361
 0341      CONTINUE                                                     05990361
CT035*  TEST 35                                           4 ARGUMENTS   06000361
           IVTNUM = 35                                                  06010361
        IHBVI = -1                                                      06020361
        IHCVI = 0                                                       06030361
        IHDVI = 4                                                       06040361
        IHAVI = MAX0(IHDVI, IHCVI, IHBVI, IHDVI)                        06050361
           IF (IHAVI - 4) 20350, 10350, 20350                           06060361
10350      IVPASS = IVPASS + 1                                          06070361
           WRITE (NUVI, 80002) IVTNUM                                   06080361
           GO TO 0351                                                   06090361
20350      IVFAIL = IVFAIL + 1                                          06100361
           IVCORR = 4                                                   06110361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    06120361
 0351      CONTINUE                                                     06130361
CT036*  TEST 36                                           5 ARGUMENTS   06140361
           IVTNUM = 36                                                  06150361
        IHDVI = 4                                                       06160361
        IHEVI = 5                                                       06170361
        IHAVI = MAX0(IHDVI, -IHDVI, -IHEVI, +IHDVI, IHEVI)              06180361
           IF (IHAVI - 5) 20360, 10360, 20360                           06190361
10360      IVPASS = IVPASS + 1                                          06200361
           WRITE (NUVI, 80002) IVTNUM                                   06210361
           GO TO 0361                                                   06220361
20360      IVFAIL = IVFAIL + 1                                          06230361
           IVCORR = 5                                                   06240361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    06250361
 0361      CONTINUE                                                     06260361
C*****                                                                  06270361
        WRITE (NUVI, 90002)                                             06280361
        WRITE (NUVI, 90013)                                             06290361
        WRITE (NUVI, 90014)                                             06300361
C*****    TEST OF MAX1                                                  06310361
C*****                                                                  06320361
        WRITE(NUVI, 16507)                                              06330361
16507   FORMAT (/ 8X, "TEST OF MAX1" )                                  06340361
CT037*  TEST 37                                     BOTH VALUES EQUAL   06350361
           IVTNUM = 37                                                  06360361
        RHBVS = 0.0                                                     06370361
        RHDVS = 0.0                                                     06380361
        IHAVI = MAX1(RHBVS, RHDVS)                                      06390361
           IF (IHAVI - 0) 20370, 10370, 20370                           06400361
10370      IVPASS = IVPASS + 1                                          06410361
           WRITE (NUVI, 80002) IVTNUM                                   06420361
           GO TO 0371                                                   06430361
20370      IVFAIL = IVFAIL + 1                                          06440361
           IVCORR = 0                                                   06450361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    06460361
 0371      CONTINUE                                                     06470361
CT038*  TEST 38                     FIRST VALUE NON-ZERO, SECOND ZERO   06480361
           IVTNUM = 38                                                  06490361
        RHBVS = 5.625                                                   06500361
        RHDVS = 0.0                                                     06510361
        IHAVI = MAX1(RHBVS, RHDVS)                                      06520361
           IF (IHAVI - 5) 20380, 10380, 20380                           06530361
10380      IVPASS = IVPASS + 1                                          06540361
           WRITE (NUVI, 80002) IVTNUM                                   06550361
           GO TO 0381                                                   06560361
20380      IVFAIL = IVFAIL + 1                                          06570361
           IVCORR = 5                                                   06580361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    06590361
 0381      CONTINUE                                                     06600361
CT039*  TEST 39                                     BOTH VALUES EQUAL   06610361
           IVTNUM = 39                                                  06620361
        RHBVS = 6.5                                                     06630361
        RHDVS = 6.5                                                     06640361
        IHAVI = MAX1(RHBVS, RHDVS)                                      06650361
           IF (IHAVI - 6) 20390, 10390, 20390                           06660361
10390      IVPASS = IVPASS + 1                                          06670361
           WRITE (NUVI, 80002) IVTNUM                                   06680361
           GO TO 0391                                                   06690361
20390      IVFAIL = IVFAIL + 1                                          06700361
           IVCORR = 6                                                   06710361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    06720361
 0391      CONTINUE                                                     06730361
CT040*  TEST 40                                      VALUES NOT EQUAL   06740361
           IVTNUM = 40                                                  06750361
        RHBVS = 7.125                                                   06760361
        RHDVS = 5.125                                                   06770361
        IHAVI = MAX1(RHBVS, RHDVS)                                      06780361
           IF (IHAVI - 7) 20400, 10400, 20400                           06790361
10400      IVPASS = IVPASS + 1                                          06800361
           WRITE (NUVI, 80002) IVTNUM                                   06810361
           GO TO 0401                                                   06820361
20400      IVFAIL = IVFAIL + 1                                          06830361
           IVCORR = 7                                                   06840361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    06850361
 0401      CONTINUE                                                     06860361
CT041*  TEST 41                     FIRST VALUE NEGATIVE, SECOND ZERO   06870361
           IVTNUM = 41                                                  06880361
        RHBVS = -5.625                                                  06890361
        RHDVS = 0.0                                                     06900361
        IHAVI = MAX1(RHBVS, RHDVS)                                      06910361
           IF (IHAVI - 0) 20410, 10410, 20410                           06920361
10410      IVPASS = IVPASS + 1                                          06930361
           WRITE (NUVI, 80002) IVTNUM                                   06940361
           GO TO 0411                                                   06950361
20410      IVFAIL = IVFAIL + 1                                          06960361
           IVCORR = 0                                                   06970361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    06980361
 0411      CONTINUE                                                     06990361
CT042*  TEST 42                      BOTH VALUES EQUAL, BOTH NEGATIVE   07000361
           IVTNUM = 42                                                  07010361
        RHBVS = - 6.5                                                   07020361
        RHDVS = - 6.5                                                   07030361
        IHAVI = MAX1(RHBVS, RHDVS)                                      07040361
           IF (IHAVI + 6) 20420, 10420, 20420                           07050361
10420      IVPASS = IVPASS + 1                                          07060361
           WRITE (NUVI, 80002) IVTNUM                                   07070361
           GO TO 0421                                                   07080361
20420      IVFAIL = IVFAIL + 1                                          07090361
           IVCORR = -6                                                  07100361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    07110361
 0421      CONTINUE                                                     07120361
CT043*  TEST 43                      VALUES NOT EQUAL,  BOTH NEGATIVE   07130361
           IVTNUM = 43                                                  07140361
        RHBVS = -7.125                                                  07150361
        RHDVS = -5.125                                                  07160361
        IHAVI = MAX1(RHBVS, RHDVS)                                      07170361
           IF (IHAVI + 5) 20430, 10430, 20430                           07180361
10430      IVPASS = IVPASS + 1                                          07190361
           WRITE (NUVI, 80002) IVTNUM                                   07200361
           GO TO 0431                                                   07210361
20430      IVFAIL = IVFAIL + 1                                          07220361
           IVCORR = -5                                                  07230361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    07240361
 0431      CONTINUE                                                     07250361
CT044*  TEST 44 1ST VALUE NON-ZERO, 2ND ZERO PRECEDED BY A MINUS SIGN   07260361
           IVTNUM = 44                                                  07270361
        RHDVS = 5.625                                                   07280361
        RHEVS = 0.0                                                     07290361
        IHAVI = MAX1(RHDVS, -RHEVS)                                     07300361
           IF (IHAVI - 5) 20440, 10440, 20440                           07310361
10440      IVPASS = IVPASS + 1                                          07320361
           WRITE (NUVI, 80002) IVTNUM                                   07330361
           GO TO 0441                                                   07340361
20440      IVFAIL = IVFAIL + 1                                          07350361
           IVCORR = 5                                                   07360361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    07370361
 0441      CONTINUE                                                     07380361
CT045*  TEST 45                     EXPRESSIONS PRESENTED TO FUNCTION   07390361
           IVTNUM = 45                                                  07400361
        RHDVS = 3.5                                                     07410361
        RHEVS = 4.0                                                     07420361
        IHAVI = MAX1(RHDVS + RHEVS, -RHEVS - RHDVS)                     07430361
           IF (IHAVI - 7) 20450, 10450, 20450                           07440361
10450      IVPASS = IVPASS + 1                                          07450361
           WRITE (NUVI, 80002) IVTNUM                                   07460361
           GO TO 0451                                                   07470361
20450      IVFAIL = IVFAIL + 1                                          07480361
           IVCORR = 7                                                   07490361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    07500361
 0451      CONTINUE                                                     07510361
CT046*  TEST 46                                           3 ARGUMENTS   07520361
           IVTNUM = 46                                                  07530361
        RHBVS = 0.0                                                     07540361
        RHCVS = 4.0                                                     07550361
        RHDVS = 0.0                                                     07560361
        IHAVI = MAX1(RHBVS, -RHCVS, RHDVS)                              07570361
           IF (IHAVI - 0) 20460, 10460, 20460                           07580361
10460      IVPASS = IVPASS + 1                                          07590361
           WRITE (NUVI, 80002) IVTNUM                                   07600361
           GO TO 0461                                                   07610361
20460      IVFAIL = IVFAIL + 1                                          07620361
           IVCORR = 0                                                   07630361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    07640361
 0461      CONTINUE                                                     07650361
CT047*  TEST 47                                           4 ARGUMENTS   07660361
           IVTNUM = 47                                                  07670361
        RHBVS = 3.49                                                    07680361
        RHCVS = 0.0                                                     07690361
        RHDVS = 3.5                                                     07700361
        IHAVI = MAX1(RHDVS, RHBVS, -RHBVS, RHCVS)                       07710361
           IF (IHAVI - 3) 20470, 10470, 20470                           07720361
10470      IVPASS = IVPASS + 1                                          07730361
           WRITE (NUVI, 80002) IVTNUM                                   07740361
           GO TO 0471                                                   07750361
20470      IVFAIL = IVFAIL + 1                                          07760361
           IVCORR = 3                                                   07770361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    07780361
 0471      CONTINUE                                                     07790361
CT048*  TEST 48                                           5 ARGUMENTS   07800361
           IVTNUM = 48                                                  07810361
        RHDVS = 3.5                                                     07820361
        RHEVS = 4.5                                                     07830361
        IHAVI = MAX1(RHDVS, -RHDVS, -RHEVS, +RHDVS, RHEVS)              07840361
           IF (IHAVI - 4) 20480, 10480, 20480                           07850361
10480      IVPASS = IVPASS + 1                                          07860361
           WRITE (NUVI, 80002) IVTNUM                                   07870361
           GO TO 0481                                                   07880361
20480      IVFAIL = IVFAIL + 1                                          07890361
           IVCORR = 4                                                   07900361
           WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR                    07910361
 0481      CONTINUE                                                     07920361
C*****                                                                  07930361
CBB** ********************** BBCSUM0  **********************************07940361
C**** WRITE OUT TEST SUMMARY                                            07950361
C****                                                                   07960361
      IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP                        07970361
      WRITE (I02, 90004)                                                07980361
      WRITE (I02, 90014)                                                07990361
      WRITE (I02, 90004)                                                08000361
      WRITE (I02, 90020) IVPASS                                         08010361
      WRITE (I02, 90022) IVFAIL                                         08020361
      WRITE (I02, 90024) IVDELE                                         08030361
      WRITE (I02, 90026) IVINSP                                         08040361
      WRITE (I02, 90028) IVTOTN, IVTOTL                                 08050361
CBE** ********************** BBCSUM0  **********************************08060361
CBB** ********************** BBCFOOT0 **********************************08070361
C**** WRITE OUT REPORT FOOTINGS                                         08080361
C****                                                                   08090361
      WRITE (I02,90016) ZPROG, ZPROG                                    08100361
      WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED                     08110361
      WRITE (I02,90019)                                                 08120361
CBE** ********************** BBCFOOT0 **********************************08130361
CBB** ********************** BBCFMT0A **********************************08140361
C**** FORMATS FOR TEST DETAIL LINES                                     08150361
C****                                                                   08160361
80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31)                           08170361
80002 FORMAT (" ",2X,I3,4X," PASS  ",32X,A31)                           08180361
80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31)                           08190361
80008 FORMAT (" ",2X,I3,4X," FAIL  ",32X,A31)                           08200361
80010 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",15X,"COMPUTED= " ,           08210361
     1I6,/," ",15X,"CORRECT=  " ,I6)                                    08220361
80012 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           08230361
     1E12.5,/," ",16X,"CORRECT=  " ,E12.5)                              08240361
80018 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           08250361
     1A21,/," ",16X,"CORRECT=  " ,A21)                                  08260361
80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31)                         08270361
80022 FORMAT (" ",16X,"CORRECT=  " ,A21,1X,A31)                         08280361
80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31)                         08290361
80026 FORMAT (" ",16X,"CORRECT=  " ,I6,16X,A31)                         08300361
80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31)                      08310361
80030 FORMAT (" ",16X,"CORRECT=  " ,E12.5,10X,A31)                      08320361
80050 FORMAT (" ",48X,A31)                                              08330361
CBE** ********************** BBCFMT0A **********************************08340361
CBB** ********************** BBCFMT0B **********************************08350361
C**** FORMAT STATEMENTS FOR PAGE HEADERS                                08360361
C****                                                                   08370361
90002 FORMAT ("1")                                                      08380361
90004 FORMAT (" ")                                                      08390361
90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )08400361
90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" )            08410361
90008 FORMAT (" ",21X,A13,A17)                                          08420361
90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/)       08430361
90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17,"  -  COMPILER= " ,A20)    08440361
90013 FORMAT (" "," TEST   ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" ,     08450361
     1       7X,"REMARKS",24X)                                          08460361
90014 FORMAT (" ","----------------------------------------------" ,    08470361
     1        "---------------------------------" )                     08480361
90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/)               08490361
C****                                                                   08500361
C**** FORMAT STATEMENTS FOR REPORT FOOTINGS                             08510361
C****                                                                   08520361
90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/)          08530361
90018 FORMAT (" ",A13,13X,A20,"   *   ",A10,"/",                        08540361
     1        A13)                                                      08550361
90019 FORMAT (" ","FOR OFFICIAL USE ONLY     " ,35X,"COPYRIGHT  1982" ) 08560361
C****                                                                   08570361
C**** FORMAT STATEMENTS FOR RUN SUMMARY                                 08580361
C****                                                                   08590361
90020 FORMAT (" ",21X,I5," TESTS PASSED" )                              08600361
90022 FORMAT (" ",21X,I5," TESTS FAILED" )                              08610361
90024 FORMAT (" ",21X,I5," TESTS DELETED" )                             08620361
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" )                  08630361
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" )                  08640361
CBE** ********************** BBCFMT0B **********************************08650361
C*****                                                                  08660361
C*****    END OF TEST SEGMENT 165                                       08670361
        STOP                                                            08680361
        END                                                             08690361
                                                                        08700361