| PROGRAM FM362 |
| |
| C***********************************************************************00010362 |
| C***** FORTRAN 77 00020362 |
| C***** FM362 XMIN - (167) 00030362 |
| C***** 00040362 |
| C***********************************************************************00050362 |
| C***** GENERAL PURPOSE SUBSET REF00060362 |
| C***** TEST INTRINSIC FUNCTIONS AMIN0,AMIN1,MIN0,MIN1 15.3 00070362 |
| C***** CHOOSING SMALLEST VALUE. (TABLE 5)00080362 |
| C***** 00090362 |
| CBB** ********************** BBCCOMNT **********************************00100362 |
| C**** 00110362 |
| C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120362 |
| C**** VERSION 2.1 00130362 |
| C**** 00140362 |
| C**** 00150362 |
| C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160362 |
| C**** NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170362 |
| C**** SOFTWARE STANDARDS VALIDATION GROUP 00180362 |
| C**** BUILDING 225 RM A266 00190362 |
| C**** GAITHERSBURG, MD 20899 00200362 |
| C**** 00210362 |
| C**** 00220362 |
| C**** 00230362 |
| CBE** ********************** BBCCOMNT **********************************00240362 |
| CBB** ********************** BBCINITA **********************************00250362 |
| C**** SPECIFICATION STATEMENTS 00260362 |
| C**** 00270362 |
| CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00280362 |
| 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00290362 |
| CBE** ********************** BBCINITA **********************************00300362 |
| CBB** ********************** BBCINITB **********************************00310362 |
| C**** INITIALIZE SECTION 00320362 |
| DATA ZVERS, ZVERSD, ZDATE 00330362 |
| 1 /'VERSION 2.1 ', '93/10/21*21.02.00', '*NO DATE*TIME'/ 00340362 |
| DATA ZCOMPL, ZNAME, ZTAPE 00350362 |
| 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00360362 |
| DATA ZPROJ, ZTAPED, ZPROG 00370362 |
| 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00380362 |
| DATA REMRKS /' '/ 00390362 |
| C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400362 |
| C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00410362 |
| C**** 00420362 |
| CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430362 |
| CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440362 |
| CZ03 ZPROG = 'PROGRAM NAME' 00450362 |
| CZ04 ZDATE = 'DATE OF TEST' 00460362 |
| CZ05 ZCOMPL = 'COMPILER IDENTIFICATION' 00470362 |
| CZ06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00480362 |
| CZ07 ZNAME = 'NAME OF USER' 00490362 |
| CZ08 ZTAPE = 'TAPE OWNER/ID' 00500362 |
| CZ09 ZTAPED = 'DATE TAPE COPIED' 00510362 |
| C 00520362 |
| IVPASS = 0 00530362 |
| IVFAIL = 0 00540362 |
| IVDELE = 0 00550362 |
| IVINSP = 0 00560362 |
| IVTOTL = 0 00570362 |
| IVTOTN = 0 00580362 |
| ICZERO = 0 00590362 |
| C 00600362 |
| C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00610362 |
| I01 = 05 00620362 |
| C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00630362 |
| I02 = 06 00640362 |
| C 00650362 |
| CX010 REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00660362 |
| C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00670362 |
| CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00680362 |
| C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00690362 |
| C 00700362 |
| CX020 REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER). 00710362 |
| C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00720362 |
| CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00730362 |
| C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00740362 |
| C 00750362 |
| CBE** ********************** BBCINITB **********************************00760362 |
| NUVI = I02 00770362 |
| IVTOTL = 47 00780362 |
| ZPROG = 'FM362' 00790362 |
| CBB** ********************** BBCHED0A **********************************00800362 |
| C**** 00810362 |
| C**** WRITE REPORT TITLE 00820362 |
| C**** 00830362 |
| WRITE (I02, 90002) 00840362 |
| WRITE (I02, 90006) 00850362 |
| WRITE (I02, 90007) 00860362 |
| WRITE (I02, 90008) ZVERS, ZVERSD 00870362 |
| WRITE (I02, 90009) ZPROG, ZPROG 00880362 |
| WRITE (I02, 90010) ZDATE, ZCOMPL 00890362 |
| CBE** ********************** BBCHED0A **********************************00900362 |
| C***** 00910362 |
| C***** HEADER FOR SEGMENT 167 00920362 |
| WRITE (NUVI,16700) 00930362 |
| 16700 FORMAT (" ", // 2X,"XMIN - (167) INTRINSIC FUNCTIONS-- " //13X,00940362 |
| 1 "AMIN0, AMIN1, MIN0, MIN1" / 13X, 00950362 |
| 2 "(CHOOSING SMALLEST VALUE)" //2X, 00960362 |
| 3 "SUBSET REF. - 15.3" ) 00970362 |
| CBB** ********************** BBCHED0B **********************************00980362 |
| C**** WRITE DETAIL REPORT HEADERS 00990362 |
| C**** 01000362 |
| WRITE (I02,90004) 01010362 |
| WRITE (I02,90004) 01020362 |
| WRITE (I02,90013) 01030362 |
| WRITE (I02,90014) 01040362 |
| WRITE (I02,90015) IVTOTL 01050362 |
| CBE** ********************** BBCHED0B **********************************01060362 |
| C***** 01070362 |
| C***** TEST OF AMIN0 01080362 |
| C***** 01090362 |
| WRITE(NUVI, 16702) 01100362 |
| 16702 FORMAT (/ 8X, "TEST OF AMIN0" ) 01110362 |
| CT001* TEST 1 BOTH VALUES ZERO 01120362 |
| IVTNUM = 1 01130362 |
| IIBVI = 0 01140362 |
| IIDVI = 0 01150362 |
| RIAVS = AMIN0(IIBVI, IIDVI) 01160362 |
| IF (RIAVS + 0.00005) 20010, 10010, 40010 01170362 |
| 40010 IF (RIAVS - 0.00005) 10010, 10010, 20010 01180362 |
| 10010 IVPASS = IVPASS + 1 01190362 |
| WRITE (NUVI, 80002) IVTNUM 01200362 |
| GO TO 0011 01210362 |
| 20010 IVFAIL = IVFAIL + 1 01220362 |
| RVCORR = 0.0 01230362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01240362 |
| 0011 CONTINUE 01250362 |
| CT002* TEST 2 FIRST VALUE NON-ZERO, SECOND ZERO 01260362 |
| IVTNUM = 2 01270362 |
| IIBVI = 6 01280362 |
| IIDVI = 0 01290362 |
| RIAVS = AMIN0(IIBVI, IIDVI) 01300362 |
| IF (RIAVS + 0.00005) 20020, 10020, 40020 01310362 |
| 40020 IF (RIAVS - 0.00005) 10020, 10020, 20020 01320362 |
| 10020 IVPASS = IVPASS + 1 01330362 |
| WRITE (NUVI, 80002) IVTNUM 01340362 |
| GO TO 0021 01350362 |
| 20020 IVFAIL = IVFAIL + 1 01360362 |
| RVCORR = 0.0 01370362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01380362 |
| 0021 CONTINUE 01390362 |
| CT003* TEST 3 BOTH VALUES EQUAL 01400362 |
| IVTNUM = 3 01410362 |
| IIBVI = 7 01420362 |
| IIDVI = 7 01430362 |
| RIAVS = AMIN0(IIBVI, IIDVI) 01440362 |
| IF (RIAVS - 6.9996) 20030, 10030, 40030 01450362 |
| 40030 IF (RIAVS - 7.0004) 10030, 10030, 20030 01460362 |
| 10030 IVPASS = IVPASS + 1 01470362 |
| WRITE (NUVI, 80002) IVTNUM 01480362 |
| GO TO 0031 01490362 |
| 20030 IVFAIL = IVFAIL + 1 01500362 |
| RVCORR = 7.0 01510362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01520362 |
| 0031 CONTINUE 01530362 |
| CT004* TEST 4 VALUES NOT EQUAL 01540362 |
| IVTNUM = 4 01550362 |
| IIBVI = 7 01560362 |
| IIDVI = 5 01570362 |
| RIAVS = AMIN0(IIBVI, IIDVI) 01580362 |
| IF (RIAVS - 4.9997) 20040, 10040, 40040 01590362 |
| 40040 IF (RIAVS - 5.0003) 10040, 10040, 20040 01600362 |
| 10040 IVPASS = IVPASS + 1 01610362 |
| WRITE (NUVI, 80002) IVTNUM 01620362 |
| GO TO 0041 01630362 |
| 20040 IVFAIL = IVFAIL + 1 01640362 |
| RVCORR = 5.0 01650362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01660362 |
| 0041 CONTINUE 01670362 |
| CT005* TEST 5 FIRST VALUE NEGATIVE, SECOND ZERO 01680362 |
| IVTNUM = 5 01690362 |
| IIBVI = -6 01700362 |
| IIDVI = 0 01710362 |
| RIAVS = AMIN0(IIBVI, IIDVI) 01720362 |
| IF (RIAVS + 6.0003) 20050, 10050, 40050 01730362 |
| 40050 IF (RIAVS + 5.9997) 10050, 10050, 20050 01740362 |
| 10050 IVPASS = IVPASS + 1 01750362 |
| WRITE (NUVI, 80002) IVTNUM 01760362 |
| GO TO 0051 01770362 |
| 20050 IVFAIL = IVFAIL + 1 01780362 |
| RVCORR = -6.0 01790362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01800362 |
| 0051 CONTINUE 01810362 |
| CT006* TEST 6 BOTH VALUES EQUAL, BOTH NEGATIVE 01820362 |
| IVTNUM = 6 01830362 |
| IIBVI = -7 01840362 |
| IIDVI = -7 01850362 |
| RIAVS = AMIN0(IIBVI, IIDVI) 01860362 |
| IF (RIAVS + 7.0004) 20060, 10060, 40060 01870362 |
| 40060 IF (RIAVS + 6.9996) 10060, 10060, 20060 01880362 |
| 10060 IVPASS = IVPASS + 1 01890362 |
| WRITE (NUVI, 80002) IVTNUM 01900362 |
| GO TO 0061 01910362 |
| 20060 IVFAIL = IVFAIL + 1 01920362 |
| RVCORR = -7.0 01930362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01940362 |
| 0061 CONTINUE 01950362 |
| CT007* TEST 7 VALUES NOT EQUAL, BOTH NEGATIVE 01960362 |
| IVTNUM = 7 01970362 |
| IIBVI = -7 01980362 |
| IIDVI = -5 01990362 |
| RIAVS = AMIN0(IIBVI, IIDVI) 02000362 |
| IF (RIAVS + 7.0004) 20070, 10070, 40070 02010362 |
| 40070 IF (RIAVS + 6.9996) 10070, 10070, 20070 02020362 |
| 10070 IVPASS = IVPASS + 1 02030362 |
| WRITE (NUVI, 80002) IVTNUM 02040362 |
| GO TO 0071 02050362 |
| 20070 IVFAIL = IVFAIL + 1 02060362 |
| RVCORR = -7.0 02070362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02080362 |
| 0071 CONTINUE 02090362 |
| CT008* TEST 8 FIRST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 02100362 |
| IVTNUM = 8 02110362 |
| IIDVI = 6 02120362 |
| IIEVI = 0 02130362 |
| RIAVS = AMIN0(IIDVI, -IIEVI) 02140362 |
| IF (RIAVS + 0.00005) 20080, 10080, 40080 02150362 |
| 40080 IF (RIAVS - 0.00005) 10080, 10080, 20080 02160362 |
| 10080 IVPASS = IVPASS + 1 02170362 |
| WRITE (NUVI, 80002) IVTNUM 02180362 |
| GO TO 0081 02190362 |
| 20080 IVFAIL = IVFAIL + 1 02200362 |
| RVCORR = 0.0 02210362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02220362 |
| 0081 CONTINUE 02230362 |
| CT009* TEST 9 3 ARGUMENTS 02240362 |
| IVTNUM = 9 02250362 |
| IIBVI = 0 02260362 |
| IICVI = 9 02270362 |
| IIDVI = 8 02280362 |
| RIAVS = AMIN0(IIBVI, IICVI, IIDVI) 02290362 |
| IF (RIAVS + 0.00005) 20090, 10090, 40090 02300362 |
| 40090 IF (RIAVS - 0.00005) 10090, 10090, 20090 02310362 |
| 10090 IVPASS = IVPASS + 1 02320362 |
| WRITE (NUVI, 80002) IVTNUM 02330362 |
| GO TO 0091 02340362 |
| 20090 IVFAIL = IVFAIL + 1 02350362 |
| RVCORR = 0.0 02360362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02370362 |
| 0091 CONTINUE 02380362 |
| CT010* TEST 10 4 ARGUMENTS 02390362 |
| IVTNUM = 10 02400362 |
| IIBVI = 34 02410362 |
| IICVI = 8 02420362 |
| IIDVI = 4 02430362 |
| RIAVS = AMIN0(IIDVI, IIBVI, IICVI, IIDVI) 02440362 |
| IF (RIAVS - 3.9998) 20100, 10100, 40100 02450362 |
| 40100 IF (RIAVS - 4.0002) 10100, 10100, 20100 02460362 |
| 10100 IVPASS = IVPASS + 1 02470362 |
| WRITE (NUVI, 80002) IVTNUM 02480362 |
| GO TO 0101 02490362 |
| 20100 IVFAIL = IVFAIL + 1 02500362 |
| RVCORR = 4.0 02510362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02520362 |
| 0101 CONTINUE 02530362 |
| CT011* TEST 11 5 ARGUMENTS 02540362 |
| IVTNUM = 11 02550362 |
| IIDVI = 4.0 02560362 |
| IIEVI = 5.0 02570362 |
| RIAVS = AMIN0(IIDVI, -IIDVI, -IIEVI, +IIDVI, IIEVI) 02580362 |
| IF (RIAVS + 5.0003) 20110, 10110, 40110 02590362 |
| 40110 IF (RIAVS + 4.9997) 10110, 10110, 20110 02600362 |
| 10110 IVPASS = IVPASS + 1 02610362 |
| WRITE (NUVI, 80002) IVTNUM 02620362 |
| GO TO 0111 02630362 |
| 20110 IVFAIL = IVFAIL + 1 02640362 |
| RVCORR = -5.0 02650362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02660362 |
| 0111 CONTINUE 02670362 |
| C***** 02680362 |
| WRITE (NUVI, 90002) 02690362 |
| WRITE (NUVI, 90013) 02700362 |
| WRITE (NUVI, 90014) 02710362 |
| C***** TEST OF AMIN1 02720362 |
| C***** 02730362 |
| WRITE(NUVI, 16704) 02740362 |
| 16704 FORMAT (/ 8X, "TEST OF AMIN1" ) 02750362 |
| CT012* TEST 12 BOTH VALUES ZERO 02760362 |
| IVTNUM = 12 02770362 |
| RIBVS = 0.0 02780362 |
| RIDVS = 0.0 02790362 |
| RIAVS = AMIN1(RIBVS, RIDVS) 02800362 |
| IF (RIAVS + 0.00005) 20120, 10120, 40120 02810362 |
| 40120 IF (RIAVS - 0.00005) 10120, 10120, 20120 02820362 |
| 10120 IVPASS = IVPASS + 1 02830362 |
| WRITE (NUVI, 80002) IVTNUM 02840362 |
| GO TO 0121 02850362 |
| 20120 IVFAIL = IVFAIL + 1 02860362 |
| RVCORR = 0.0 02870362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02880362 |
| 0121 CONTINUE 02890362 |
| CT013* TEST 13 FIRST VALUE NON-ZERO, SECOND ZERO 02900362 |
| IVTNUM = 13 02910362 |
| RIBVS = 5.625 02920362 |
| RIDVS = 0.0 02930362 |
| RIAVS = AMIN1(RIBVS, RIDVS) 02940362 |
| IF (RIAVS + 0.00005) 20130, 10130, 40130 02950362 |
| 40130 IF (RIAVS - 0.00005) 10130, 10130, 20130 02960362 |
| 10130 IVPASS = IVPASS + 1 02970362 |
| WRITE (NUVI, 80002) IVTNUM 02980362 |
| GO TO 0131 02990362 |
| 20130 IVFAIL = IVFAIL + 1 03000362 |
| RVCORR = 0.0 03010362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03020362 |
| 0131 CONTINUE 03030362 |
| CT014* TEST 14 BOTH VALUES EQUAL 03040362 |
| IVTNUM = 14 03050362 |
| RIBVS = 6.5 03060362 |
| RIDVS = 6.5 03070362 |
| RIAVS = AMIN1(RIBVS, RIDVS) 03080362 |
| IF (RIAVS - 6.4996) 20140, 10140, 40140 03090362 |
| 40140 IF (RIAVS - 6.5004) 10140, 10140, 20140 03100362 |
| 10140 IVPASS = IVPASS + 1 03110362 |
| WRITE (NUVI, 80002) IVTNUM 03120362 |
| GO TO 0141 03130362 |
| 20140 IVFAIL = IVFAIL + 1 03140362 |
| RVCORR = 6.5 03150362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03160362 |
| 0141 CONTINUE 03170362 |
| CT015* TEST 15 VALUES NOT EQUAL 03180362 |
| IVTNUM = 15 03190362 |
| RIBVS = 7.125 03200362 |
| RIDVS = 5.125 03210362 |
| RIAVS = AMIN1(RIBVS, RIDVS) 03220362 |
| IF (RIAVS - 5.1247) 20150, 10150, 40150 03230362 |
| 40150 IF (RIAVS - 5.1253) 10150, 10150, 20150 03240362 |
| 10150 IVPASS = IVPASS + 1 03250362 |
| WRITE (NUVI, 80002) IVTNUM 03260362 |
| GO TO 0151 03270362 |
| 20150 IVFAIL = IVFAIL + 1 03280362 |
| RVCORR = 5.125 03290362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03300362 |
| 0151 CONTINUE 03310362 |
| CT016* TEST 16 FIRST VALUE NEGATIVE, SECOND ZERO 03320362 |
| IVTNUM = 16 03330362 |
| RIBVS = -5.625 03340362 |
| RIDVS = 0.0 03350362 |
| RIAVS = AMIN1(RIBVS, RIDVS) 03360362 |
| IF (RIAVS + 5.6253) 20160, 10160, 40160 03370362 |
| 40160 IF (RIAVS + 5.6247) 10160, 10160, 20160 03380362 |
| 10160 IVPASS = IVPASS + 1 03390362 |
| WRITE (NUVI, 80002) IVTNUM 03400362 |
| GO TO 0161 03410362 |
| 20160 IVFAIL = IVFAIL + 1 03420362 |
| RVCORR = -5.625 03430362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03440362 |
| 0161 CONTINUE 03450362 |
| CT017* TEST 17 BOTH VALUES EQUAL, BOTH NEGATIVE 03460362 |
| IVTNUM = 17 03470362 |
| RIBVS = -6.5 03480362 |
| RIDVS = -6.5 03490362 |
| RIAVS = AMIN1(RIBVS, RIDVS) 03500362 |
| IF (RIAVS + 6.5004) 20170, 10170, 40170 03510362 |
| 40170 IF (RIAVS + 6.4996) 10170, 10170, 20170 03520362 |
| 10170 IVPASS = IVPASS + 1 03530362 |
| WRITE (NUVI, 80002) IVTNUM 03540362 |
| GO TO 0171 03550362 |
| 20170 IVFAIL = IVFAIL + 1 03560362 |
| RVCORR = -6.5 03570362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03580362 |
| 0171 CONTINUE 03590362 |
| CT018* TEST 18 VALUES NOT EQUAL, BOTH NEGATIVE 03600362 |
| IVTNUM = 18 03610362 |
| RIBVS = -7.125 03620362 |
| RIDVS = -5.125 03630362 |
| RIAVS = AMIN1(RIBVS, RIDVS) 03640362 |
| IF (RIAVS + 7.1254) 20180, 10180, 40180 03650362 |
| 40180 IF (RIAVS + 7.1246) 10180, 10180, 20180 03660362 |
| 10180 IVPASS = IVPASS + 1 03670362 |
| WRITE (NUVI, 80002) IVTNUM 03680362 |
| GO TO 0181 03690362 |
| 20180 IVFAIL = IVFAIL + 1 03700362 |
| RVCORR = -7.125 03710362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03720362 |
| 0181 CONTINUE 03730362 |
| CT019* TEST 19 FIRST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 03740362 |
| IVTNUM = 19 03750362 |
| RIDVS = 5.625 03760362 |
| RIEVS = 0.0 03770362 |
| RIAVS = AMIN1(RIDVS, -RIEVS) 03780362 |
| IF (RIAVS + 0.00005) 20190, 10190, 40190 03790362 |
| 40190 IF (RIAVS - 0.00005) 10190, 10190, 20190 03800362 |
| 10190 IVPASS = IVPASS + 1 03810362 |
| WRITE (NUVI, 80002) IVTNUM 03820362 |
| GO TO 0191 03830362 |
| 20190 IVFAIL = IVFAIL + 1 03840362 |
| RVCORR = 0.0 03850362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03860362 |
| 0191 CONTINUE 03870362 |
| CT020* TEST 20 EXPRESSION AS ARGUMENT 03880362 |
| IVTNUM = 20 03890362 |
| RIDVS = 3.5 03900362 |
| RIEVS = 4.0 03910362 |
| RIAVS = AMIN1(RIDVS + RIEVS, -RIEVS - RIDVS) 03920362 |
| IF (RIAVS + 7.5004) 20200, 10200, 40200 03930362 |
| 40200 IF (RIAVS + 7.4996) 10200, 10200, 20200 03940362 |
| 10200 IVPASS = IVPASS + 1 03950362 |
| WRITE (NUVI, 80002) IVTNUM 03960362 |
| GO TO 0201 03970362 |
| 20200 IVFAIL = IVFAIL + 1 03980362 |
| RVCORR = -7.5 03990362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 04000362 |
| 0201 CONTINUE 04010362 |
| CT021* TEST 21 3 ARGUMENTS 04020362 |
| IVTNUM = 21 04030362 |
| RIBVS = 0.0 04040362 |
| RICVS = 1.0 04050362 |
| RIDVS = 10.9 04060362 |
| RIAVS = AMIN1(RIDVS, RICVS, RIBVS) 04070362 |
| IF (RIAVS + 0.00005) 20210, 10210, 40210 04080362 |
| 40210 IF (RIAVS - 0.00005) 10210, 10210, 20210 04090362 |
| 10210 IVPASS = IVPASS + 1 04100362 |
| WRITE (NUVI, 80002) IVTNUM 04110362 |
| GO TO 0211 04120362 |
| 20210 IVFAIL = IVFAIL + 1 04130362 |
| RVCORR = 0.0 04140362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 04150362 |
| 0211 CONTINUE 04160362 |
| CT022* TEST 22 4 ARGUMENTS 04170362 |
| IVTNUM = 22 04180362 |
| RIBVS = -9.0 04190362 |
| RICVS = 10.0 04200362 |
| RIDVS = 3.5 04210362 |
| RIAVS = AMIN1(RIDVS, RICVS, -RIBVS, RIDVS) 04220362 |
| IF (RIAVS - 3.4998) 20220, 10220, 40220 04230362 |
| 40220 IF (RIAVS - 3.5002) 10220, 10220, 20220 04240362 |
| 10220 IVPASS = IVPASS + 1 04250362 |
| WRITE (NUVI, 80002) IVTNUM 04260362 |
| GO TO 0221 04270362 |
| 20220 IVFAIL = IVFAIL + 1 04280362 |
| RVCORR = 3.5 04290362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 04300362 |
| 0221 CONTINUE 04310362 |
| CT023* TEST 23 5 ARGUMENTS 04320362 |
| IVTNUM = 23 04330362 |
| RIDVS = 3.5 04340362 |
| RIEVS = 4.5 04350362 |
| RIAVS = AMIN1(RIDVS, -RIDVS, -RIEVS, +RIDVS, RIEVS) 04360362 |
| IF (RIAVS + 4.5003) 20230, 10230, 40230 04370362 |
| 40230 IF (RIAVS + 4.4997) 10230, 10230, 20230 04380362 |
| 10230 IVPASS = IVPASS + 1 04390362 |
| WRITE (NUVI, 80002) IVTNUM 04400362 |
| GO TO 0231 04410362 |
| 20230 IVFAIL = IVFAIL + 1 04420362 |
| RVCORR = -4.5 04430362 |
| WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 04440362 |
| 0231 CONTINUE 04450362 |
| C***** 04460362 |
| WRITE (NUVI, 90002) 04470362 |
| WRITE (NUVI, 90013) 04480362 |
| WRITE (NUVI, 90014) 04490362 |
| C***** TEST OF MIN0 04500362 |
| C***** 04510362 |
| WRITE(NUVI, 16705) 04520362 |
| 16705 FORMAT (/ 8X, "TEST OF MIN0" ) 04530362 |
| CT024* TEST 24 BOTH VALUES ZERO 04540362 |
| IVTNUM = 24 04550362 |
| IIBVI = 0 04560362 |
| IIDVI = 0 04570362 |
| IIAVI = MIN0(IIBVI, IIDVI) 04580362 |
| IF (IIAVI - 0) 20240, 10240, 20240 04590362 |
| 10240 IVPASS = IVPASS + 1 04600362 |
| WRITE (NUVI, 80002) IVTNUM 04610362 |
| GO TO 0241 04620362 |
| 20240 IVFAIL = IVFAIL + 1 04630362 |
| IVCORR = 0 04640362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 04650362 |
| 0241 CONTINUE 04660362 |
| CT025* TEST 25 FIRST VALUE NON-ZERO, SECOND ZERO 04670362 |
| IVTNUM = 25 04680362 |
| IIBVI = 6 04690362 |
| IIDVI = 0 04700362 |
| IIAVI = MIN0(IIBVI, IIDVI) 04710362 |
| IF (IIAVI - 0) 20250, 10250, 20250 04720362 |
| 10250 IVPASS = IVPASS + 1 04730362 |
| WRITE (NUVI, 80002) IVTNUM 04740362 |
| GO TO 0251 04750362 |
| 20250 IVFAIL = IVFAIL + 1 04760362 |
| IVCORR = 0 04770362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 04780362 |
| 0251 CONTINUE 04790362 |
| CT026* TEST 26 BOTH VALUES EQUAL 04800362 |
| IVTNUM = 26 04810362 |
| IIBVI = 7 04820362 |
| IIDVI = 7 04830362 |
| IIAVI = MIN0(IIBVI, IIDVI) 04840362 |
| IF (IIAVI - 7) 20260, 10260, 20260 04850362 |
| 10260 IVPASS = IVPASS + 1 04860362 |
| WRITE (NUVI, 80002) IVTNUM 04870362 |
| GO TO 0261 04880362 |
| 20260 IVFAIL = IVFAIL + 1 04890362 |
| IVCORR = 7 04900362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 04910362 |
| 0261 CONTINUE 04920362 |
| CT027* TEST 27 VALUES NOT EQUAL 04930362 |
| IVTNUM = 27 04940362 |
| IIBVI = 7 04950362 |
| IIDVI = 5 04960362 |
| IIAVI = MIN0(IIBVI, IIDVI) 04970362 |
| IF (IIAVI - 5) 20270, 10270, 20270 04980362 |
| 10270 IVPASS = IVPASS + 1 04990362 |
| WRITE (NUVI, 80002) IVTNUM 05000362 |
| GO TO 0271 05010362 |
| 20270 IVFAIL = IVFAIL + 1 05020362 |
| IVCORR = 5 05030362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05040362 |
| 0271 CONTINUE 05050362 |
| CT028* TEST 28 FIRST VALUE NEGATIVE, SECOND ZERO 05060362 |
| IVTNUM = 28 05070362 |
| IIBVI = -6 05080362 |
| IIDVI = 0 05090362 |
| IIAVI = MIN0(IIBVI, IIDVI) 05100362 |
| IF (IIAVI + 6) 20280, 10280, 20280 05110362 |
| 10280 IVPASS = IVPASS + 1 05120362 |
| WRITE (NUVI, 80002) IVTNUM 05130362 |
| GO TO 0281 05140362 |
| 20280 IVFAIL = IVFAIL + 1 05150362 |
| IVCORR = -6 05160362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05170362 |
| 0281 CONTINUE 05180362 |
| CT029* TEST 29 BOTH VALUES EQUAL, BOTH NEGATIVE 05190362 |
| IVTNUM = 29 05200362 |
| IIBVI = -7 05210362 |
| IIDVI = -7 05220362 |
| IIAVI = MIN0(IIBVI, IIDVI) 05230362 |
| IF (IIAVI + 7) 20290, 10290, 20290 05240362 |
| 10290 IVPASS = IVPASS + 1 05250362 |
| WRITE (NUVI, 80002) IVTNUM 05260362 |
| GO TO 0291 05270362 |
| 20290 IVFAIL = IVFAIL + 1 05280362 |
| IVCORR = -7 05290362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05300362 |
| 0291 CONTINUE 05310362 |
| CT030* TEST 30 VALUES NOT EQUAL, BOTH NEGATIVE 05320362 |
| IVTNUM = 30 05330362 |
| IIBVI = -7 05340362 |
| IIDVI = -5 05350362 |
| IIAVI = MIN0(IIBVI, IIDVI) 05360362 |
| IF (IIAVI + 7) 20300, 10300, 20300 05370362 |
| 10300 IVPASS = IVPASS + 1 05380362 |
| WRITE (NUVI, 80002) IVTNUM 05390362 |
| GO TO 0301 05400362 |
| 20300 IVFAIL = IVFAIL + 1 05410362 |
| IVCORR = -7 05420362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05430362 |
| 0301 CONTINUE 05440362 |
| CT031* TEST 31 FIRST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 05450362 |
| IVTNUM = 31 05460362 |
| IIDVI = 6 05470362 |
| IIEVI = 0 05480362 |
| IIAVI = MIN0(IIDVI, -IIEVI) 05490362 |
| IF (IIAVI - 0) 20310, 10310, 20310 05500362 |
| 10310 IVPASS = IVPASS + 1 05510362 |
| WRITE (NUVI, 80002) IVTNUM 05520362 |
| GO TO 0311 05530362 |
| 20310 IVFAIL = IVFAIL + 1 05540362 |
| IVCORR = 0 05550362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05560362 |
| 0311 CONTINUE 05570362 |
| CT032* TEST 32 EXPRESSION PRESENTED TO FUNCTION 05580362 |
| IVTNUM = 32 05590362 |
| IIDVI = 3 05600362 |
| IIEVI = 4 05610362 |
| IIAVI = MIN0(IIDVI + IIEVI, -IIEVI - IIDVI) 05620362 |
| IF (IIAVI + 7) 20320, 10320, 20320 05630362 |
| 10320 IVPASS = IVPASS + 1 05640362 |
| WRITE (NUVI, 80002) IVTNUM 05650362 |
| GO TO 0321 05660362 |
| 20320 IVFAIL = IVFAIL + 1 05670362 |
| IVCORR = -7 05680362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05690362 |
| 0321 CONTINUE 05700362 |
| CT033* TEST 33 3 ARGUMENTS 05710362 |
| IVTNUM = 33 05720362 |
| IIBVI = 0 05730362 |
| IICVI = 10 05740362 |
| IIDVI = -11 05750362 |
| IIAVI = MIN0(IICVI, IIBVI, -IIDVI) 05760362 |
| IF (IIAVI - 0) 20330, 10330, 20330 05770362 |
| 10330 IVPASS = IVPASS + 1 05780362 |
| WRITE (NUVI, 80002) IVTNUM 05790362 |
| GO TO 0331 05800362 |
| 20330 IVFAIL = IVFAIL + 1 05810362 |
| IVCORR = 0 05820362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05830362 |
| 0331 CONTINUE 05840362 |
| CT034* TEST 34 4 ARGUMENTS 05850362 |
| IVTNUM = 34 05860362 |
| IIAVI = 10 05870362 |
| IIBVI = -4 05880362 |
| IICVI = 8 05890362 |
| IIDVI = 4 05900362 |
| IIAVI = MIN0(IIAVI, -IIBVI, IICVI, IIDVI) 05910362 |
| IF (IIAVI - 4) 20340, 10340, 20340 05920362 |
| 10340 IVPASS = IVPASS + 1 05930362 |
| WRITE (NUVI, 80002) IVTNUM 05940362 |
| GO TO 0341 05950362 |
| 20340 IVFAIL = IVFAIL + 1 05960362 |
| IVCORR = 4 05970362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05980362 |
| 0341 CONTINUE 05990362 |
| CT035* TEST 35 5 ARGUMENTS 06000362 |
| IVTNUM = 35 06010362 |
| IIDVI = 4 06020362 |
| IIEVI = 5 06030362 |
| IIAVI = MIN0(IIDVI, -IIDVI, -IIEVI, +IIDVI, IIEVI) 06040362 |
| IF (IIAVI + 5) 20350, 10350, 20350 06050362 |
| 10350 IVPASS = IVPASS + 1 06060362 |
| WRITE (NUVI, 80002) IVTNUM 06070362 |
| GO TO 0351 06080362 |
| 20350 IVFAIL = IVFAIL + 1 06090362 |
| IVCORR = -5 06100362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06110362 |
| 0351 CONTINUE 06120362 |
| C***** 06130362 |
| WRITE (NUVI, 90002) 06140362 |
| WRITE (NUVI, 90013) 06150362 |
| WRITE (NUVI, 90014) 06160362 |
| C***** TEST OF MIN1 06170362 |
| C***** 06180362 |
| WRITE(NUVI, 16707) 06190362 |
| 16707 FORMAT (/ 8X, "TEST OF MIN1" ) 06200362 |
| CT036* TEST 36 BOTH VALUES ZERO 06210362 |
| IVTNUM = 36 06220362 |
| RIBVS = 0.0 06230362 |
| RIDVS = 0.0 06240362 |
| IIAVI = MIN1(RIBVS, RIDVS) 06250362 |
| IF (IIAVI - 0) 20360, 10360, 20360 06260362 |
| 10360 IVPASS = IVPASS + 1 06270362 |
| WRITE (NUVI, 80002) IVTNUM 06280362 |
| GO TO 0361 06290362 |
| 20360 IVFAIL = IVFAIL + 1 06300362 |
| IVCORR = 0 06310362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06320362 |
| 0361 CONTINUE 06330362 |
| CT037* TEST 37 FIRST VALUE NON-ZERO, SECOND ZERO 06340362 |
| IVTNUM = 37 06350362 |
| RIBVS = 5.625 06360362 |
| RIDVS = 0.0 06370362 |
| IIAVI = MIN1(RIBVS, RIDVS) 06380362 |
| IF (IIAVI - 0) 20370, 10370, 20370 06390362 |
| 10370 IVPASS = IVPASS + 1 06400362 |
| WRITE (NUVI, 80002) IVTNUM 06410362 |
| GO TO 0371 06420362 |
| 20370 IVFAIL = IVFAIL + 1 06430362 |
| IVCORR = 0 06440362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06450362 |
| 0371 CONTINUE 06460362 |
| CT038* TEST 38 BOTH VALUES EQUAL 06470362 |
| IVTNUM = 38 06480362 |
| RIBVS = 6.5 06490362 |
| RIDVS = 6.5 06500362 |
| IIAVI = MIN1(RIBVS, RIDVS) 06510362 |
| IF (IIAVI - 6) 20380, 10380, 20380 06520362 |
| 10380 IVPASS = IVPASS + 1 06530362 |
| WRITE (NUVI, 80002) IVTNUM 06540362 |
| GO TO 0381 06550362 |
| 20380 IVFAIL = IVFAIL + 1 06560362 |
| IVCORR = 6 06570362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06580362 |
| 0381 CONTINUE 06590362 |
| CT039* TEST 39 VALUES NOT EQUAL 06600362 |
| IVTNUM = 39 06610362 |
| RIBVS = 7.125 06620362 |
| RIDVS = 5.125 06630362 |
| IIAVI = MIN1(RIBVS, RIDVS) 06640362 |
| IF (IIAVI - 5) 20390, 10390, 20390 06650362 |
| 10390 IVPASS = IVPASS + 1 06660362 |
| WRITE (NUVI, 80002) IVTNUM 06670362 |
| GO TO 0391 06680362 |
| 20390 IVFAIL = IVFAIL + 1 06690362 |
| IVCORR = 5 06700362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06710362 |
| 0391 CONTINUE 06720362 |
| CT040* TEST 40 FIRST VALUE NEGATIVE, SECOND ZERO 06730362 |
| IVTNUM = 40 06740362 |
| RIBVS = -5.625 06750362 |
| RIDVS = 0.0 06760362 |
| IIAVI = MIN1(RIBVS, RIDVS) 06770362 |
| IF (IIAVI + 5) 20400, 10400, 20400 06780362 |
| 10400 IVPASS = IVPASS + 1 06790362 |
| WRITE (NUVI, 80002) IVTNUM 06800362 |
| GO TO 0401 06810362 |
| 20400 IVFAIL = IVFAIL + 1 06820362 |
| IVCORR = -5 06830362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06840362 |
| 0401 CONTINUE 06850362 |
| CT041* TEST 41 BOTH VALUES EQUAL, BOTH NEGATIVE 06860362 |
| IVTNUM = 41 06870362 |
| RIBVS = -6.5 06880362 |
| RIDVS = -6.5 06890362 |
| IIAVI = MIN1(RIBVS, RIDVS) 06900362 |
| IF (IIAVI + 6) 20410, 10410, 20410 06910362 |
| 10410 IVPASS = IVPASS + 1 06920362 |
| WRITE (NUVI, 80002) IVTNUM 06930362 |
| GO TO 0411 06940362 |
| 20410 IVFAIL = IVFAIL + 1 06950362 |
| IVCORR = -6 06960362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06970362 |
| 0411 CONTINUE 06980362 |
| CT042* TEST 42 VALUES NOT EQUAL, BOTH NEGATIVE 06990362 |
| IVTNUM = 42 07000362 |
| RIBVS = -7.125 07010362 |
| RIDVS = -5.125 07020362 |
| IIAVI = MIN1(RIBVS, RIDVS) 07030362 |
| IF (IIAVI + 7) 20420, 10420, 20420 07040362 |
| 10420 IVPASS = IVPASS + 1 07050362 |
| WRITE (NUVI, 80002) IVTNUM 07060362 |
| GO TO 0421 07070362 |
| 20420 IVFAIL = IVFAIL + 1 07080362 |
| IVCORR = -7 07090362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07100362 |
| 0421 CONTINUE 07110362 |
| CT043* TEST 43 FIRST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 07120362 |
| IVTNUM = 43 07130362 |
| RIDVS = 5.625 07140362 |
| RIEVS = 0.0 07150362 |
| IIAVI = MIN1(RIDVS, -RIEVS) 07160362 |
| IF (IIAVI - 0) 20430, 10430, 20430 07170362 |
| 10430 IVPASS = IVPASS + 1 07180362 |
| WRITE (NUVI, 80002) IVTNUM 07190362 |
| GO TO 0431 07200362 |
| 20430 IVFAIL = IVFAIL + 1 07210362 |
| IVCORR = 0 07220362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07230362 |
| 0431 CONTINUE 07240362 |
| CT044* TEST 44 EXPRESSION PRESENTED TO FUNCTION 07250362 |
| IVTNUM = 44 07260362 |
| RIDVS = 3.5 07270362 |
| RIEVS = 4.0 07280362 |
| IIAVI = MIN1(RIDVS + RIEVS, -RIEVS - RIDVS) 07290362 |
| IF (IIAVI + 7) 20440, 10440, 20440 07300362 |
| 10440 IVPASS = IVPASS + 1 07310362 |
| WRITE (NUVI, 80002) IVTNUM 07320362 |
| GO TO 0441 07330362 |
| 20440 IVFAIL = IVFAIL + 1 07340362 |
| IVCORR = -7 07350362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07360362 |
| 0441 CONTINUE 07370362 |
| CT045* TEST 45 3 ARGUMENTS 07380362 |
| IVTNUM = 45 07390362 |
| RIBVS = 0.0 07400362 |
| RICVS = 1.0 07410362 |
| RIDVS = 2.0 07420362 |
| IIAVI = MIN1(RIBVS, RICVS, RIDVS) 07430362 |
| IF (IIAVI - 0) 20450, 10450, 20450 07440362 |
| 10450 IVPASS = IVPASS + 1 07450362 |
| WRITE (NUVI, 80002) IVTNUM 07460362 |
| GO TO 0451 07470362 |
| 20450 IVFAIL = IVFAIL + 1 07480362 |
| IVCORR = 0 07490362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07500362 |
| 0451 CONTINUE 07510362 |
| CT046* TEST 46 4 ARGUMENTS 07520362 |
| IVTNUM = 46 07530362 |
| RIAVS = -3.5 07540362 |
| RIBVS = 12.0 07550362 |
| RICVS = 3.6 07560362 |
| RIDVS = 3.5 07570362 |
| IIAVI = MIN1(-RIAVS, RIBVS, RICVS, RIDVS) 07580362 |
| IF (IIAVI - 3) 20460, 10460, 20460 07590362 |
| 10460 IVPASS = IVPASS + 1 07600362 |
| WRITE (NUVI, 80002) IVTNUM 07610362 |
| GO TO 0461 07620362 |
| 20460 IVFAIL = IVFAIL + 1 07630362 |
| IVCORR = 3 07640362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07650362 |
| 0461 CONTINUE 07660362 |
| CT047* TEST 47 5 ARGUMENTS 07670362 |
| IVTNUM = 47 07680362 |
| RIDVS = 3.5 07690362 |
| RIEVS = 4.5 07700362 |
| IIAVI = MIN1(RIDVS, -RIDVS, -RIEVS, +RIDVS, RIEVS) 07710362 |
| IF (IIAVI + 4) 20470, 10470, 20470 07720362 |
| 10470 IVPASS = IVPASS + 1 07730362 |
| WRITE (NUVI, 80002) IVTNUM 07740362 |
| GO TO 0471 07750362 |
| 20470 IVFAIL = IVFAIL + 1 07760362 |
| IVCORR = -4 07770362 |
| WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07780362 |
| 0471 CONTINUE 07790362 |
| C***** 07800362 |
| CBB** ********************** BBCSUM0 **********************************07810362 |
| C**** WRITE OUT TEST SUMMARY 07820362 |
| C**** 07830362 |
| IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 07840362 |
| WRITE (I02, 90004) 07850362 |
| WRITE (I02, 90014) 07860362 |
| WRITE (I02, 90004) 07870362 |
| WRITE (I02, 90020) IVPASS 07880362 |
| WRITE (I02, 90022) IVFAIL 07890362 |
| WRITE (I02, 90024) IVDELE 07900362 |
| WRITE (I02, 90026) IVINSP 07910362 |
| WRITE (I02, 90028) IVTOTN, IVTOTL 07920362 |
| CBE** ********************** BBCSUM0 **********************************07930362 |
| CBB** ********************** BBCFOOT0 **********************************07940362 |
| C**** WRITE OUT REPORT FOOTINGS 07950362 |
| C**** 07960362 |
| WRITE (I02,90016) ZPROG, ZPROG 07970362 |
| WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 07980362 |
| WRITE (I02,90019) 07990362 |
| CBE** ********************** BBCFOOT0 **********************************08000362 |
| CBB** ********************** BBCFMT0A **********************************08010362 |
| C**** FORMATS FOR TEST DETAIL LINES 08020362 |
| C**** 08030362 |
| 80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31) 08040362 |
| 80002 FORMAT (" ",2X,I3,4X," PASS ",32X,A31) 08050362 |
| 80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31) 08060362 |
| 80008 FORMAT (" ",2X,I3,4X," FAIL ",32X,A31) 08070362 |
| 80010 FORMAT (" ",2X,I3,4X," FAIL ",/," ",15X,"COMPUTED= " , 08080362 |
| 1I6,/," ",15X,"CORRECT= " ,I6) 08090362 |
| 80012 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 08100362 |
| 1E12.5,/," ",16X,"CORRECT= " ,E12.5) 08110362 |
| 80018 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 08120362 |
| 1A21,/," ",16X,"CORRECT= " ,A21) 08130362 |
| 80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31) 08140362 |
| 80022 FORMAT (" ",16X,"CORRECT= " ,A21,1X,A31) 08150362 |
| 80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31) 08160362 |
| 80026 FORMAT (" ",16X,"CORRECT= " ,I6,16X,A31) 08170362 |
| 80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31) 08180362 |
| 80030 FORMAT (" ",16X,"CORRECT= " ,E12.5,10X,A31) 08190362 |
| 80050 FORMAT (" ",48X,A31) 08200362 |
| CBE** ********************** BBCFMT0A **********************************08210362 |
| CBB** ********************** BBCFMT0B **********************************08220362 |
| C**** FORMAT STATEMENTS FOR PAGE HEADERS 08230362 |
| C**** 08240362 |
| 90002 FORMAT ("1") 08250362 |
| 90004 FORMAT (" ") 08260362 |
| 90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )08270362 |
| 90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08280362 |
| 90008 FORMAT (" ",21X,A13,A17) 08290362 |
| 90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/) 08300362 |
| 90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17," - COMPILER= " ,A20) 08310362 |
| 90013 FORMAT (" "," TEST ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" , 08320362 |
| 1 7X,"REMARKS",24X) 08330362 |
| 90014 FORMAT (" ","----------------------------------------------" , 08340362 |
| 1 "---------------------------------" ) 08350362 |
| 90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/) 08360362 |
| C**** 08370362 |
| C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 08380362 |
| C**** 08390362 |
| 90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/) 08400362 |
| 90018 FORMAT (" ",A13,13X,A20," * ",A10,"/", 08410362 |
| 1 A13) 08420362 |
| 90019 FORMAT (" ","FOR OFFICIAL USE ONLY " ,35X,"COPYRIGHT 1982" ) 08430362 |
| C**** 08440362 |
| C**** FORMAT STATEMENTS FOR RUN SUMMARY 08450362 |
| C**** 08460362 |
| 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 08470362 |
| 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 08480362 |
| 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 08490362 |
| 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 08500362 |
| 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 08510362 |
| CBE** ********************** BBCFMT0B **********************************08520362 |
| C***** 08530362 |
| C***** END OF TEST SEGMENT 167 08540362 |
| STOP 08550362 |
| END 08560362 |
| 08570362 |