![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM362.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests|
Return to FM362.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 ! root 1: C***********************************************************************00010362 ! 2: C DATE***82/08/02*18.33.46 ! 3: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 4: C AUDIT FCVS78 V2.0 ! 5: C***** FORTRAN 77 00020362 ! 6: C***** FM362 XMIN - (167) 00030362 ! 7: C***** 00040362 ! 8: C***********************************************************************00050362 ! 9: C***** GENERAL PURPOSE SUBSET REF00060362 ! 10: C***** TEST INTRINSIC FUNCTIONS AMIN0,AMIN1,MIN0,MIN1 15.3 00070362 ! 11: C***** CHOOSING SMALLEST VALUE. (TABLE 5)00080362 ! 12: C***** 00090362 ! 13: CBB** ********************** BBCCOMNT **********************************00100362 ! 14: C**** 00110362 ! 15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120362 ! 16: C**** VERSION 2.0 00130362 ! 17: C**** 00140362 ! 18: C**** 00150362 ! 19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160362 ! 20: C**** GENERAL SERVICES ADMINISTRATION 00170362 ! 21: C**** FEDERAL SOFTWARE TESTING CENTER 00180362 ! 22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190362 ! 23: C**** FALLS CHURCH, VA. 22041 00200362 ! 24: C**** 00210362 ! 25: C**** (703) 756-6153 00220362 ! 26: C**** 00230362 ! 27: CBE** ********************** BBCCOMNT **********************************00240362 ! 28: CBB** ********************** BBCINITA **********************************00250362 ! 29: C**** SPECIFICATION STATEMENTS 00260362 ! 30: C**** 00270362 ! 31: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00280362 ! 32: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00290362 ! 33: CBE** ********************** BBCINITA **********************************00300362 ! 34: CBB** ********************** BBCINITB **********************************00310362 ! 35: C**** INITIALIZE SECTION 00320362 ! 36: DATA ZVERS, ZVERSD, ZDATE 00330362 ! 37: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00340362 ! 38: DATA ZCOMPL, ZNAME, ZTAPE 00350362 ! 39: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00360362 ! 40: DATA ZPROJ, ZTAPED, ZPROG 00370362 ! 41: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00380362 ! 42: DATA REMRKS /' '/ 00390362 ! 43: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400362 ! 44: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00410362 ! 45: C**** 00420362 ! 46: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430362 ! 47: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440362 ! 48: CZ03 ZPROG = 'PROGRAM NAME' 00450362 ! 49: ZDATE = '07-Nov-85 ' *RP ! 50: ZCOMPL = 'CCI 5.2 ' *RP ! 51: ZPROJ = 'TC-85- -410' *RP ! 52: ZNAME = ' ' *RP ! 53: ZTAPE = ' ' *RP ! 54: ZTAPED = '850703 ' *RP ! 55: C 00520362 ! 56: IVPASS = 0 00530362 ! 57: IVFAIL = 0 00540362 ! 58: IVDELE = 0 00550362 ! 59: IVINSP = 0 00560362 ! 60: IVTOTL = 0 00570362 ! 61: IVTOTN = 0 00580362 ! 62: ICZERO = 0 00590362 ! 63: C 00600362 ! 64: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00610362 ! 65: I01 = 05 00620362 ! 66: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00630362 ! 67: I02 = 06 00640362 ! 68: C 00650362 ! 69: I01 = 5 00660362 ! 70: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00670362 ! 71: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00680362 ! 72: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00690362 ! 73: C 00700362 ! 74: I02 = 6 00710362 ! 75: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00720362 ! 76: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00730362 ! 77: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00740362 ! 78: C 00750362 ! 79: CBE** ********************** BBCINITB **********************************00760362 ! 80: NUVI = I02 00770362 ! 81: IVTOTL = 47 00780362 ! 82: ZPROG = 'FM362' 00790362 ! 83: CBB** ********************** BBCHED0A **********************************00800362 ! 84: C**** 00810362 ! 85: C**** WRITE REPORT TITLE 00820362 ! 86: C**** 00830362 ! 87: WRITE (I02, 90002) 00840362 ! 88: WRITE (I02, 90006) 00850362 ! 89: WRITE (I02, 90007) 00860362 ! 90: WRITE (I02, 90008) ZVERS, ZVERSD 00870362 ! 91: WRITE (I02, 90009) ZPROG, ZPROG 00880362 ! 92: WRITE (I02, 90010) ZDATE, ZCOMPL 00890362 ! 93: CBE** ********************** BBCHED0A **********************************00900362 ! 94: C***** 00910362 ! 95: C***** HEADER FOR SEGMENT 167 00920362 ! 96: WRITE (NUVI,16700) 00930362 ! 97: 16700 FORMAT (1H , // 2X,36HXMIN - (167) INTRINSIC FUNCTIONS-- //13X,00940362 ! 98: 1 24HAMIN0, AMIN1, MIN0, MIN1/ 13X, 00950362 ! 99: 2 25H(CHOOSING SMALLEST VALUE)//2X, 00960362 ! 100: 3 18HSUBSET REF. - 15.3) 00970362 ! 101: CBB** ********************** BBCHED0B **********************************00980362 ! 102: C**** WRITE DETAIL REPORT HEADERS 00990362 ! 103: C**** 01000362 ! 104: WRITE (I02,90004) 01010362 ! 105: WRITE (I02,90004) 01020362 ! 106: WRITE (I02,90013) 01030362 ! 107: WRITE (I02,90014) 01040362 ! 108: WRITE (I02,90015) IVTOTL 01050362 ! 109: CBE** ********************** BBCHED0B **********************************01060362 ! 110: C***** 01070362 ! 111: C***** TEST OF AMIN0 01080362 ! 112: C***** 01090362 ! 113: WRITE(NUVI, 16702) 01100362 ! 114: 16702 FORMAT (/ 8X, 13HTEST OF AMIN0) 01110362 ! 115: CT001* TEST 1 BOTH VALUES ZERO 01120362 ! 116: IVTNUM = 1 01130362 ! 117: IIBVI = 0 01140362 ! 118: IIDVI = 0 01150362 ! 119: RIAVS = AMIN0(IIBVI, IIDVI) 01160362 ! 120: IF (RIAVS + 0.00005) 20010, 10010, 40010 01170362 ! 121: 40010 IF (RIAVS - 0.00005) 10010, 10010, 20010 01180362 ! 122: 10010 IVPASS = IVPASS + 1 01190362 ! 123: WRITE (NUVI, 80002) IVTNUM 01200362 ! 124: GO TO 0011 01210362 ! 125: 20010 IVFAIL = IVFAIL + 1 01220362 ! 126: RVCORR = 0.0 01230362 ! 127: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01240362 ! 128: 0011 CONTINUE 01250362 ! 129: CT002* TEST 2 FIRST VALUE NON-ZERO, SECOND ZERO 01260362 ! 130: IVTNUM = 2 01270362 ! 131: IIBVI = 6 01280362 ! 132: IIDVI = 0 01290362 ! 133: RIAVS = AMIN0(IIBVI, IIDVI) 01300362 ! 134: IF (RIAVS + 0.00005) 20020, 10020, 40020 01310362 ! 135: 40020 IF (RIAVS - 0.00005) 10020, 10020, 20020 01320362 ! 136: 10020 IVPASS = IVPASS + 1 01330362 ! 137: WRITE (NUVI, 80002) IVTNUM 01340362 ! 138: GO TO 0021 01350362 ! 139: 20020 IVFAIL = IVFAIL + 1 01360362 ! 140: RVCORR = 0.0 01370362 ! 141: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01380362 ! 142: 0021 CONTINUE 01390362 ! 143: CT003* TEST 3 BOTH VALUES EQUAL 01400362 ! 144: IVTNUM = 3 01410362 ! 145: IIBVI = 7 01420362 ! 146: IIDVI = 7 01430362 ! 147: RIAVS = AMIN0(IIBVI, IIDVI) 01440362 ! 148: IF (RIAVS - 6.9996) 20030, 10030, 40030 01450362 ! 149: 40030 IF (RIAVS - 7.0004) 10030, 10030, 20030 01460362 ! 150: 10030 IVPASS = IVPASS + 1 01470362 ! 151: WRITE (NUVI, 80002) IVTNUM 01480362 ! 152: GO TO 0031 01490362 ! 153: 20030 IVFAIL = IVFAIL + 1 01500362 ! 154: RVCORR = 7.0 01510362 ! 155: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01520362 ! 156: 0031 CONTINUE 01530362 ! 157: CT004* TEST 4 VALUES NOT EQUAL 01540362 ! 158: IVTNUM = 4 01550362 ! 159: IIBVI = 7 01560362 ! 160: IIDVI = 5 01570362 ! 161: RIAVS = AMIN0(IIBVI, IIDVI) 01580362 ! 162: IF (RIAVS - 4.9997) 20040, 10040, 40040 01590362 ! 163: 40040 IF (RIAVS - 5.0003) 10040, 10040, 20040 01600362 ! 164: 10040 IVPASS = IVPASS + 1 01610362 ! 165: WRITE (NUVI, 80002) IVTNUM 01620362 ! 166: GO TO 0041 01630362 ! 167: 20040 IVFAIL = IVFAIL + 1 01640362 ! 168: RVCORR = 5.0 01650362 ! 169: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01660362 ! 170: 0041 CONTINUE 01670362 ! 171: CT005* TEST 5 FIRST VALUE NEGATIVE, SECOND ZERO 01680362 ! 172: IVTNUM = 5 01690362 ! 173: IIBVI = -6 01700362 ! 174: IIDVI = 0 01710362 ! 175: RIAVS = AMIN0(IIBVI, IIDVI) 01720362 ! 176: IF (RIAVS + 6.0003) 20050, 10050, 40050 01730362 ! 177: 40050 IF (RIAVS + 5.9997) 10050, 10050, 20050 01740362 ! 178: 10050 IVPASS = IVPASS + 1 01750362 ! 179: WRITE (NUVI, 80002) IVTNUM 01760362 ! 180: GO TO 0051 01770362 ! 181: 20050 IVFAIL = IVFAIL + 1 01780362 ! 182: RVCORR = -6.0 01790362 ! 183: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01800362 ! 184: 0051 CONTINUE 01810362 ! 185: CT006* TEST 6 BOTH VALUES EQUAL, BOTH NEGATIVE 01820362 ! 186: IVTNUM = 6 01830362 ! 187: IIBVI = -7 01840362 ! 188: IIDVI = -7 01850362 ! 189: RIAVS = AMIN0(IIBVI, IIDVI) 01860362 ! 190: IF (RIAVS + 7.0004) 20060, 10060, 40060 01870362 ! 191: 40060 IF (RIAVS + 6.9996) 10060, 10060, 20060 01880362 ! 192: 10060 IVPASS = IVPASS + 1 01890362 ! 193: WRITE (NUVI, 80002) IVTNUM 01900362 ! 194: GO TO 0061 01910362 ! 195: 20060 IVFAIL = IVFAIL + 1 01920362 ! 196: RVCORR = -7.0 01930362 ! 197: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01940362 ! 198: 0061 CONTINUE 01950362 ! 199: CT007* TEST 7 VALUES NOT EQUAL, BOTH NEGATIVE 01960362 ! 200: IVTNUM = 7 01970362 ! 201: IIBVI = -7 01980362 ! 202: IIDVI = -5 01990362 ! 203: RIAVS = AMIN0(IIBVI, IIDVI) 02000362 ! 204: IF (RIAVS + 7.0004) 20070, 10070, 40070 02010362 ! 205: 40070 IF (RIAVS + 6.9996) 10070, 10070, 20070 02020362 ! 206: 10070 IVPASS = IVPASS + 1 02030362 ! 207: WRITE (NUVI, 80002) IVTNUM 02040362 ! 208: GO TO 0071 02050362 ! 209: 20070 IVFAIL = IVFAIL + 1 02060362 ! 210: RVCORR = -7.0 02070362 ! 211: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02080362 ! 212: 0071 CONTINUE 02090362 ! 213: CT008* TEST 8 FIRST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 02100362 ! 214: IVTNUM = 8 02110362 ! 215: IIDVI = 6 02120362 ! 216: IIEVI = 0 02130362 ! 217: RIAVS = AMIN0(IIDVI, -IIEVI) 02140362 ! 218: IF (RIAVS + 0.00005) 20080, 10080, 40080 02150362 ! 219: 40080 IF (RIAVS - 0.00005) 10080, 10080, 20080 02160362 ! 220: 10080 IVPASS = IVPASS + 1 02170362 ! 221: WRITE (NUVI, 80002) IVTNUM 02180362 ! 222: GO TO 0081 02190362 ! 223: 20080 IVFAIL = IVFAIL + 1 02200362 ! 224: RVCORR = 0.0 02210362 ! 225: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02220362 ! 226: 0081 CONTINUE 02230362 ! 227: CT009* TEST 9 3 ARGUMENTS 02240362 ! 228: IVTNUM = 9 02250362 ! 229: IIBVI = 0 02260362 ! 230: IICVI = 9 02270362 ! 231: IIDVI = 8 02280362 ! 232: RIAVS = AMIN0(IIBVI, IICVI, IIDVI) 02290362 ! 233: IF (RIAVS + 0.00005) 20090, 10090, 40090 02300362 ! 234: 40090 IF (RIAVS - 0.00005) 10090, 10090, 20090 02310362 ! 235: 10090 IVPASS = IVPASS + 1 02320362 ! 236: WRITE (NUVI, 80002) IVTNUM 02330362 ! 237: GO TO 0091 02340362 ! 238: 20090 IVFAIL = IVFAIL + 1 02350362 ! 239: RVCORR = 0.0 02360362 ! 240: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02370362 ! 241: 0091 CONTINUE 02380362 ! 242: CT010* TEST 10 4 ARGUMENTS 02390362 ! 243: IVTNUM = 10 02400362 ! 244: IIBVI = 34 02410362 ! 245: IICVI = 8 02420362 ! 246: IIDVI = 4 02430362 ! 247: RIAVS = AMIN0(IIDVI, IIBVI, IICVI, IIDVI) 02440362 ! 248: IF (RIAVS - 3.9998) 20100, 10100, 40100 02450362 ! 249: 40100 IF (RIAVS - 4.0002) 10100, 10100, 20100 02460362 ! 250: 10100 IVPASS = IVPASS + 1 02470362 ! 251: WRITE (NUVI, 80002) IVTNUM 02480362 ! 252: GO TO 0101 02490362 ! 253: 20100 IVFAIL = IVFAIL + 1 02500362 ! 254: RVCORR = 4.0 02510362 ! 255: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02520362 ! 256: 0101 CONTINUE 02530362 ! 257: CT011* TEST 11 5 ARGUMENTS 02540362 ! 258: IVTNUM = 11 02550362 ! 259: IIDVI = 4.0 02560362 ! 260: IIEVI = 5.0 02570362 ! 261: RIAVS = AMIN0(IIDVI, -IIDVI, -IIEVI, +IIDVI, IIEVI) 02580362 ! 262: IF (RIAVS + 5.0003) 20110, 10110, 40110 02590362 ! 263: 40110 IF (RIAVS + 4.9997) 10110, 10110, 20110 02600362 ! 264: 10110 IVPASS = IVPASS + 1 02610362 ! 265: WRITE (NUVI, 80002) IVTNUM 02620362 ! 266: GO TO 0111 02630362 ! 267: 20110 IVFAIL = IVFAIL + 1 02640362 ! 268: RVCORR = -5.0 02650362 ! 269: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02660362 ! 270: 0111 CONTINUE 02670362 ! 271: C***** 02680362 ! 272: WRITE (NUVI, 90002) 02690362 ! 273: WRITE (NUVI, 90013) 02700362 ! 274: WRITE (NUVI, 90014) 02710362 ! 275: C***** TEST OF AMIN1 02720362 ! 276: C***** 02730362 ! 277: WRITE(NUVI, 16704) 02740362 ! 278: 16704 FORMAT (/ 8X, 13HTEST OF AMIN1) 02750362 ! 279: CT012* TEST 12 BOTH VALUES ZERO 02760362 ! 280: IVTNUM = 12 02770362 ! 281: RIBVS = 0.0 02780362 ! 282: RIDVS = 0.0 02790362 ! 283: RIAVS = AMIN1(RIBVS, RIDVS) 02800362 ! 284: IF (RIAVS + 0.00005) 20120, 10120, 40120 02810362 ! 285: 40120 IF (RIAVS - 0.00005) 10120, 10120, 20120 02820362 ! 286: 10120 IVPASS = IVPASS + 1 02830362 ! 287: WRITE (NUVI, 80002) IVTNUM 02840362 ! 288: GO TO 0121 02850362 ! 289: 20120 IVFAIL = IVFAIL + 1 02860362 ! 290: RVCORR = 0.0 02870362 ! 291: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02880362 ! 292: 0121 CONTINUE 02890362 ! 293: CT013* TEST 13 FIRST VALUE NON-ZERO, SECOND ZERO 02900362 ! 294: IVTNUM = 13 02910362 ! 295: RIBVS = 5.625 02920362 ! 296: RIDVS = 0.0 02930362 ! 297: RIAVS = AMIN1(RIBVS, RIDVS) 02940362 ! 298: IF (RIAVS + 0.00005) 20130, 10130, 40130 02950362 ! 299: 40130 IF (RIAVS - 0.00005) 10130, 10130, 20130 02960362 ! 300: 10130 IVPASS = IVPASS + 1 02970362 ! 301: WRITE (NUVI, 80002) IVTNUM 02980362 ! 302: GO TO 0131 02990362 ! 303: 20130 IVFAIL = IVFAIL + 1 03000362 ! 304: RVCORR = 0.0 03010362 ! 305: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03020362 ! 306: 0131 CONTINUE 03030362 ! 307: CT014* TEST 14 BOTH VALUES EQUAL 03040362 ! 308: IVTNUM = 14 03050362 ! 309: RIBVS = 6.5 03060362 ! 310: RIDVS = 6.5 03070362 ! 311: RIAVS = AMIN1(RIBVS, RIDVS) 03080362 ! 312: IF (RIAVS - 6.4996) 20140, 10140, 40140 03090362 ! 313: 40140 IF (RIAVS - 6.5004) 10140, 10140, 20140 03100362 ! 314: 10140 IVPASS = IVPASS + 1 03110362 ! 315: WRITE (NUVI, 80002) IVTNUM 03120362 ! 316: GO TO 0141 03130362 ! 317: 20140 IVFAIL = IVFAIL + 1 03140362 ! 318: RVCORR = 6.5 03150362 ! 319: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03160362 ! 320: 0141 CONTINUE 03170362 ! 321: CT015* TEST 15 VALUES NOT EQUAL 03180362 ! 322: IVTNUM = 15 03190362 ! 323: RIBVS = 7.125 03200362 ! 324: RIDVS = 5.125 03210362 ! 325: RIAVS = AMIN1(RIBVS, RIDVS) 03220362 ! 326: IF (RIAVS - 5.1247) 20150, 10150, 40150 03230362 ! 327: 40150 IF (RIAVS - 5.1253) 10150, 10150, 20150 03240362 ! 328: 10150 IVPASS = IVPASS + 1 03250362 ! 329: WRITE (NUVI, 80002) IVTNUM 03260362 ! 330: GO TO 0151 03270362 ! 331: 20150 IVFAIL = IVFAIL + 1 03280362 ! 332: RVCORR = 5.125 03290362 ! 333: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03300362 ! 334: 0151 CONTINUE 03310362 ! 335: CT016* TEST 16 FIRST VALUE NEGATIVE, SECOND ZERO 03320362 ! 336: IVTNUM = 16 03330362 ! 337: RIBVS = -5.625 03340362 ! 338: RIDVS = 0.0 03350362 ! 339: RIAVS = AMIN1(RIBVS, RIDVS) 03360362 ! 340: IF (RIAVS + 5.6253) 20160, 10160, 40160 03370362 ! 341: 40160 IF (RIAVS + 5.6247) 10160, 10160, 20160 03380362 ! 342: 10160 IVPASS = IVPASS + 1 03390362 ! 343: WRITE (NUVI, 80002) IVTNUM 03400362 ! 344: GO TO 0161 03410362 ! 345: 20160 IVFAIL = IVFAIL + 1 03420362 ! 346: RVCORR = -5.625 03430362 ! 347: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03440362 ! 348: 0161 CONTINUE 03450362 ! 349: CT017* TEST 17 BOTH VALUES EQUAL, BOTH NEGATIVE 03460362 ! 350: IVTNUM = 17 03470362 ! 351: RIBVS = -6.5 03480362 ! 352: RIDVS = -6.5 03490362 ! 353: RIAVS = AMIN1(RIBVS, RIDVS) 03500362 ! 354: IF (RIAVS + 6.5004) 20170, 10170, 40170 03510362 ! 355: 40170 IF (RIAVS + 6.4996) 10170, 10170, 20170 03520362 ! 356: 10170 IVPASS = IVPASS + 1 03530362 ! 357: WRITE (NUVI, 80002) IVTNUM 03540362 ! 358: GO TO 0171 03550362 ! 359: 20170 IVFAIL = IVFAIL + 1 03560362 ! 360: RVCORR = -6.5 03570362 ! 361: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03580362 ! 362: 0171 CONTINUE 03590362 ! 363: CT018* TEST 18 VALUES NOT EQUAL, BOTH NEGATIVE 03600362 ! 364: IVTNUM = 18 03610362 ! 365: RIBVS = -7.125 03620362 ! 366: RIDVS = -5.125 03630362 ! 367: RIAVS = AMIN1(RIBVS, RIDVS) 03640362 ! 368: IF (RIAVS + 7.1254) 20180, 10180, 40180 03650362 ! 369: 40180 IF (RIAVS + 7.1246) 10180, 10180, 20180 03660362 ! 370: 10180 IVPASS = IVPASS + 1 03670362 ! 371: WRITE (NUVI, 80002) IVTNUM 03680362 ! 372: GO TO 0181 03690362 ! 373: 20180 IVFAIL = IVFAIL + 1 03700362 ! 374: RVCORR = -7.125 03710362 ! 375: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03720362 ! 376: 0181 CONTINUE 03730362 ! 377: CT019* TEST 19 FIRST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 03740362 ! 378: IVTNUM = 19 03750362 ! 379: RIDVS = 5.625 03760362 ! 380: RIEVS = 0.0 03770362 ! 381: RIAVS = AMIN1(RIDVS, -RIEVS) 03780362 ! 382: IF (RIAVS + 0.00005) 20190, 10190, 40190 03790362 ! 383: 40190 IF (RIAVS - 0.00005) 10190, 10190, 20190 03800362 ! 384: 10190 IVPASS = IVPASS + 1 03810362 ! 385: WRITE (NUVI, 80002) IVTNUM 03820362 ! 386: GO TO 0191 03830362 ! 387: 20190 IVFAIL = IVFAIL + 1 03840362 ! 388: RVCORR = 0.0 03850362 ! 389: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03860362 ! 390: 0191 CONTINUE 03870362 ! 391: CT020* TEST 20 EXPRESSION AS ARGUMENT 03880362 ! 392: IVTNUM = 20 03890362 ! 393: RIDVS = 3.5 03900362 ! 394: RIEVS = 4.0 03910362 ! 395: RIAVS = AMIN1(RIDVS + RIEVS, -RIEVS - RIDVS) 03920362 ! 396: IF (RIAVS + 7.5004) 20200, 10200, 40200 03930362 ! 397: 40200 IF (RIAVS + 7.4996) 10200, 10200, 20200 03940362 ! 398: 10200 IVPASS = IVPASS + 1 03950362 ! 399: WRITE (NUVI, 80002) IVTNUM 03960362 ! 400: GO TO 0201 03970362 ! 401: 20200 IVFAIL = IVFAIL + 1 03980362 ! 402: RVCORR = -7.5 03990362 ! 403: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 04000362 ! 404: 0201 CONTINUE 04010362 ! 405: CT021* TEST 21 3 ARGUMENTS 04020362 ! 406: IVTNUM = 21 04030362 ! 407: RIBVS = 0.0 04040362 ! 408: RICVS = 1.0 04050362 ! 409: RIDVS = 10.9 04060362 ! 410: RIAVS = AMIN1(RIDVS, RICVS, RIBVS) 04070362 ! 411: IF (RIAVS + 0.00005) 20210, 10210, 40210 04080362 ! 412: 40210 IF (RIAVS - 0.00005) 10210, 10210, 20210 04090362 ! 413: 10210 IVPASS = IVPASS + 1 04100362 ! 414: WRITE (NUVI, 80002) IVTNUM 04110362 ! 415: GO TO 0211 04120362 ! 416: 20210 IVFAIL = IVFAIL + 1 04130362 ! 417: RVCORR = 0.0 04140362 ! 418: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 04150362 ! 419: 0211 CONTINUE 04160362 ! 420: CT022* TEST 22 4 ARGUMENTS 04170362 ! 421: IVTNUM = 22 04180362 ! 422: RIBVS = -9.0 04190362 ! 423: RICVS = 10.0 04200362 ! 424: RIDVS = 3.5 04210362 ! 425: RIAVS = AMIN1(RIDVS, RICVS, -RIBVS, RIDVS) 04220362 ! 426: IF (RIAVS - 3.4998) 20220, 10220, 40220 04230362 ! 427: 40220 IF (RIAVS - 3.5002) 10220, 10220, 20220 04240362 ! 428: 10220 IVPASS = IVPASS + 1 04250362 ! 429: WRITE (NUVI, 80002) IVTNUM 04260362 ! 430: GO TO 0221 04270362 ! 431: 20220 IVFAIL = IVFAIL + 1 04280362 ! 432: RVCORR = 3.5 04290362 ! 433: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 04300362 ! 434: 0221 CONTINUE 04310362 ! 435: CT023* TEST 23 5 ARGUMENTS 04320362 ! 436: IVTNUM = 23 04330362 ! 437: RIDVS = 3.5 04340362 ! 438: RIEVS = 4.5 04350362 ! 439: RIAVS = AMIN1(RIDVS, -RIDVS, -RIEVS, +RIDVS, RIEVS) 04360362 ! 440: IF (RIAVS + 4.5003) 20230, 10230, 40230 04370362 ! 441: 40230 IF (RIAVS + 4.4997) 10230, 10230, 20230 04380362 ! 442: 10230 IVPASS = IVPASS + 1 04390362 ! 443: WRITE (NUVI, 80002) IVTNUM 04400362 ! 444: GO TO 0231 04410362 ! 445: 20230 IVFAIL = IVFAIL + 1 04420362 ! 446: RVCORR = -4.5 04430362 ! 447: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 04440362 ! 448: 0231 CONTINUE 04450362 ! 449: C***** 04460362 ! 450: WRITE (NUVI, 90002) 04470362 ! 451: WRITE (NUVI, 90013) 04480362 ! 452: WRITE (NUVI, 90014) 04490362 ! 453: C***** TEST OF MIN0 04500362 ! 454: C***** 04510362 ! 455: WRITE(NUVI, 16705) 04520362 ! 456: 16705 FORMAT (/ 8X, 12HTEST OF MIN0) 04530362 ! 457: CT024* TEST 24 BOTH VALUES ZERO 04540362 ! 458: IVTNUM = 24 04550362 ! 459: IIBVI = 0 04560362 ! 460: IIDVI = 0 04570362 ! 461: IIAVI = MIN0(IIBVI, IIDVI) 04580362 ! 462: IF (IIAVI - 0) 20240, 10240, 20240 04590362 ! 463: 10240 IVPASS = IVPASS + 1 04600362 ! 464: WRITE (NUVI, 80002) IVTNUM 04610362 ! 465: GO TO 0241 04620362 ! 466: 20240 IVFAIL = IVFAIL + 1 04630362 ! 467: IVCORR = 0 04640362 ! 468: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 04650362 ! 469: 0241 CONTINUE 04660362 ! 470: CT025* TEST 25 FIRST VALUE NON-ZERO, SECOND ZERO 04670362 ! 471: IVTNUM = 25 04680362 ! 472: IIBVI = 6 04690362 ! 473: IIDVI = 0 04700362 ! 474: IIAVI = MIN0(IIBVI, IIDVI) 04710362 ! 475: IF (IIAVI - 0) 20250, 10250, 20250 04720362 ! 476: 10250 IVPASS = IVPASS + 1 04730362 ! 477: WRITE (NUVI, 80002) IVTNUM 04740362 ! 478: GO TO 0251 04750362 ! 479: 20250 IVFAIL = IVFAIL + 1 04760362 ! 480: IVCORR = 0 04770362 ! 481: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 04780362 ! 482: 0251 CONTINUE 04790362 ! 483: CT026* TEST 26 BOTH VALUES EQUAL 04800362 ! 484: IVTNUM = 26 04810362 ! 485: IIBVI = 7 04820362 ! 486: IIDVI = 7 04830362 ! 487: IIAVI = MIN0(IIBVI, IIDVI) 04840362 ! 488: IF (IIAVI - 7) 20260, 10260, 20260 04850362 ! 489: 10260 IVPASS = IVPASS + 1 04860362 ! 490: WRITE (NUVI, 80002) IVTNUM 04870362 ! 491: GO TO 0261 04880362 ! 492: 20260 IVFAIL = IVFAIL + 1 04890362 ! 493: IVCORR = 7 04900362 ! 494: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 04910362 ! 495: 0261 CONTINUE 04920362 ! 496: CT027* TEST 27 VALUES NOT EQUAL 04930362 ! 497: IVTNUM = 27 04940362 ! 498: IIBVI = 7 04950362 ! 499: IIDVI = 5 04960362 ! 500: IIAVI = MIN0(IIBVI, IIDVI) 04970362 ! 501: IF (IIAVI - 5) 20270, 10270, 20270 04980362 ! 502: 10270 IVPASS = IVPASS + 1 04990362 ! 503: WRITE (NUVI, 80002) IVTNUM 05000362 ! 504: GO TO 0271 05010362 ! 505: 20270 IVFAIL = IVFAIL + 1 05020362 ! 506: IVCORR = 5 05030362 ! 507: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05040362 ! 508: 0271 CONTINUE 05050362 ! 509: CT028* TEST 28 FIRST VALUE NEGATIVE, SECOND ZERO 05060362 ! 510: IVTNUM = 28 05070362 ! 511: IIBVI = -6 05080362 ! 512: IIDVI = 0 05090362 ! 513: IIAVI = MIN0(IIBVI, IIDVI) 05100362 ! 514: IF (IIAVI + 6) 20280, 10280, 20280 05110362 ! 515: 10280 IVPASS = IVPASS + 1 05120362 ! 516: WRITE (NUVI, 80002) IVTNUM 05130362 ! 517: GO TO 0281 05140362 ! 518: 20280 IVFAIL = IVFAIL + 1 05150362 ! 519: IVCORR = -6 05160362 ! 520: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05170362 ! 521: 0281 CONTINUE 05180362 ! 522: CT029* TEST 29 BOTH VALUES EQUAL, BOTH NEGATIVE 05190362 ! 523: IVTNUM = 29 05200362 ! 524: IIBVI = -7 05210362 ! 525: IIDVI = -7 05220362 ! 526: IIAVI = MIN0(IIBVI, IIDVI) 05230362 ! 527: IF (IIAVI + 7) 20290, 10290, 20290 05240362 ! 528: 10290 IVPASS = IVPASS + 1 05250362 ! 529: WRITE (NUVI, 80002) IVTNUM 05260362 ! 530: GO TO 0291 05270362 ! 531: 20290 IVFAIL = IVFAIL + 1 05280362 ! 532: IVCORR = -7 05290362 ! 533: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05300362 ! 534: 0291 CONTINUE 05310362 ! 535: CT030* TEST 30 VALUES NOT EQUAL, BOTH NEGATIVE 05320362 ! 536: IVTNUM = 30 05330362 ! 537: IIBVI = -7 05340362 ! 538: IIDVI = -5 05350362 ! 539: IIAVI = MIN0(IIBVI, IIDVI) 05360362 ! 540: IF (IIAVI + 7) 20300, 10300, 20300 05370362 ! 541: 10300 IVPASS = IVPASS + 1 05380362 ! 542: WRITE (NUVI, 80002) IVTNUM 05390362 ! 543: GO TO 0301 05400362 ! 544: 20300 IVFAIL = IVFAIL + 1 05410362 ! 545: IVCORR = -7 05420362 ! 546: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05430362 ! 547: 0301 CONTINUE 05440362 ! 548: CT031* TEST 31 FIRST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 05450362 ! 549: IVTNUM = 31 05460362 ! 550: IIDVI = 6 05470362 ! 551: IIEVI = 0 05480362 ! 552: IIAVI = MIN0(IIDVI, -IIEVI) 05490362 ! 553: IF (IIAVI - 0) 20310, 10310, 20310 05500362 ! 554: 10310 IVPASS = IVPASS + 1 05510362 ! 555: WRITE (NUVI, 80002) IVTNUM 05520362 ! 556: GO TO 0311 05530362 ! 557: 20310 IVFAIL = IVFAIL + 1 05540362 ! 558: IVCORR = 0 05550362 ! 559: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05560362 ! 560: 0311 CONTINUE 05570362 ! 561: CT032* TEST 32 EXPRESSION PRESENTED TO FUNCTION 05580362 ! 562: IVTNUM = 32 05590362 ! 563: IIDVI = 3 05600362 ! 564: IIEVI = 4 05610362 ! 565: IIAVI = MIN0(IIDVI + IIEVI, -IIEVI - IIDVI) 05620362 ! 566: IF (IIAVI + 7) 20320, 10320, 20320 05630362 ! 567: 10320 IVPASS = IVPASS + 1 05640362 ! 568: WRITE (NUVI, 80002) IVTNUM 05650362 ! 569: GO TO 0321 05660362 ! 570: 20320 IVFAIL = IVFAIL + 1 05670362 ! 571: IVCORR = -7 05680362 ! 572: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05690362 ! 573: 0321 CONTINUE 05700362 ! 574: CT033* TEST 33 3 ARGUMENTS 05710362 ! 575: IVTNUM = 33 05720362 ! 576: IIBVI = 0 05730362 ! 577: IICVI = 10 05740362 ! 578: IIDVI = -11 05750362 ! 579: IIAVI = MIN0(IICVI, IIBVI, -IIDVI) 05760362 ! 580: IF (IIAVI - 0) 20330, 10330, 20330 05770362 ! 581: 10330 IVPASS = IVPASS + 1 05780362 ! 582: WRITE (NUVI, 80002) IVTNUM 05790362 ! 583: GO TO 0331 05800362 ! 584: 20330 IVFAIL = IVFAIL + 1 05810362 ! 585: IVCORR = 0 05820362 ! 586: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05830362 ! 587: 0331 CONTINUE 05840362 ! 588: CT034* TEST 34 4 ARGUMENTS 05850362 ! 589: IVTNUM = 34 05860362 ! 590: IIAVI = 10 05870362 ! 591: IIBVI = -4 05880362 ! 592: IICVI = 8 05890362 ! 593: IIDVI = 4 05900362 ! 594: IIAVI = MIN0(IIAVI, -IIBVI, IICVI, IIDVI) 05910362 ! 595: IF (IIAVI - 4) 20340, 10340, 20340 05920362 ! 596: 10340 IVPASS = IVPASS + 1 05930362 ! 597: WRITE (NUVI, 80002) IVTNUM 05940362 ! 598: GO TO 0341 05950362 ! 599: 20340 IVFAIL = IVFAIL + 1 05960362 ! 600: IVCORR = 4 05970362 ! 601: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05980362 ! 602: 0341 CONTINUE 05990362 ! 603: CT035* TEST 35 5 ARGUMENTS 06000362 ! 604: IVTNUM = 35 06010362 ! 605: IIDVI = 4 06020362 ! 606: IIEVI = 5 06030362 ! 607: IIAVI = MIN0(IIDVI, -IIDVI, -IIEVI, +IIDVI, IIEVI) 06040362 ! 608: IF (IIAVI + 5) 20350, 10350, 20350 06050362 ! 609: 10350 IVPASS = IVPASS + 1 06060362 ! 610: WRITE (NUVI, 80002) IVTNUM 06070362 ! 611: GO TO 0351 06080362 ! 612: 20350 IVFAIL = IVFAIL + 1 06090362 ! 613: IVCORR = -5 06100362 ! 614: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06110362 ! 615: 0351 CONTINUE 06120362 ! 616: C***** 06130362 ! 617: WRITE (NUVI, 90002) 06140362 ! 618: WRITE (NUVI, 90013) 06150362 ! 619: WRITE (NUVI, 90014) 06160362 ! 620: C***** TEST OF MIN1 06170362 ! 621: C***** 06180362 ! 622: WRITE(NUVI, 16707) 06190362 ! 623: 16707 FORMAT (/ 8X, 12HTEST OF MIN1) 06200362 ! 624: CT036* TEST 36 BOTH VALUES ZERO 06210362 ! 625: IVTNUM = 36 06220362 ! 626: RIBVS = 0.0 06230362 ! 627: RIDVS = 0.0 06240362 ! 628: IIAVI = MIN1(RIBVS, RIDVS) 06250362 ! 629: IF (IIAVI - 0) 20360, 10360, 20360 06260362 ! 630: 10360 IVPASS = IVPASS + 1 06270362 ! 631: WRITE (NUVI, 80002) IVTNUM 06280362 ! 632: GO TO 0361 06290362 ! 633: 20360 IVFAIL = IVFAIL + 1 06300362 ! 634: IVCORR = 0 06310362 ! 635: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06320362 ! 636: 0361 CONTINUE 06330362 ! 637: CT037* TEST 37 FIRST VALUE NON-ZERO, SECOND ZERO 06340362 ! 638: IVTNUM = 37 06350362 ! 639: RIBVS = 5.625 06360362 ! 640: RIDVS = 0.0 06370362 ! 641: IIAVI = MIN1(RIBVS, RIDVS) 06380362 ! 642: IF (IIAVI - 0) 20370, 10370, 20370 06390362 ! 643: 10370 IVPASS = IVPASS + 1 06400362 ! 644: WRITE (NUVI, 80002) IVTNUM 06410362 ! 645: GO TO 0371 06420362 ! 646: 20370 IVFAIL = IVFAIL + 1 06430362 ! 647: IVCORR = 0 06440362 ! 648: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06450362 ! 649: 0371 CONTINUE 06460362 ! 650: CT038* TEST 38 BOTH VALUES EQUAL 06470362 ! 651: IVTNUM = 38 06480362 ! 652: RIBVS = 6.5 06490362 ! 653: RIDVS = 6.5 06500362 ! 654: IIAVI = MIN1(RIBVS, RIDVS) 06510362 ! 655: IF (IIAVI - 6) 20380, 10380, 20380 06520362 ! 656: 10380 IVPASS = IVPASS + 1 06530362 ! 657: WRITE (NUVI, 80002) IVTNUM 06540362 ! 658: GO TO 0381 06550362 ! 659: 20380 IVFAIL = IVFAIL + 1 06560362 ! 660: IVCORR = 6 06570362 ! 661: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06580362 ! 662: 0381 CONTINUE 06590362 ! 663: CT039* TEST 39 VALUES NOT EQUAL 06600362 ! 664: IVTNUM = 39 06610362 ! 665: RIBVS = 7.125 06620362 ! 666: RIDVS = 5.125 06630362 ! 667: IIAVI = MIN1(RIBVS, RIDVS) 06640362 ! 668: IF (IIAVI - 5) 20390, 10390, 20390 06650362 ! 669: 10390 IVPASS = IVPASS + 1 06660362 ! 670: WRITE (NUVI, 80002) IVTNUM 06670362 ! 671: GO TO 0391 06680362 ! 672: 20390 IVFAIL = IVFAIL + 1 06690362 ! 673: IVCORR = 5 06700362 ! 674: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06710362 ! 675: 0391 CONTINUE 06720362 ! 676: CT040* TEST 40 FIRST VALUE NEGATIVE, SECOND ZERO 06730362 ! 677: IVTNUM = 40 06740362 ! 678: RIBVS = -5.625 06750362 ! 679: RIDVS = 0.0 06760362 ! 680: IIAVI = MIN1(RIBVS, RIDVS) 06770362 ! 681: IF (IIAVI + 5) 20400, 10400, 20400 06780362 ! 682: 10400 IVPASS = IVPASS + 1 06790362 ! 683: WRITE (NUVI, 80002) IVTNUM 06800362 ! 684: GO TO 0401 06810362 ! 685: 20400 IVFAIL = IVFAIL + 1 06820362 ! 686: IVCORR = -5 06830362 ! 687: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06840362 ! 688: 0401 CONTINUE 06850362 ! 689: CT041* TEST 41 BOTH VALUES EQUAL, BOTH NEGATIVE 06860362 ! 690: IVTNUM = 41 06870362 ! 691: RIBVS = -6.5 06880362 ! 692: RIDVS = -6.5 06890362 ! 693: IIAVI = MIN1(RIBVS, RIDVS) 06900362 ! 694: IF (IIAVI + 6) 20410, 10410, 20410 06910362 ! 695: 10410 IVPASS = IVPASS + 1 06920362 ! 696: WRITE (NUVI, 80002) IVTNUM 06930362 ! 697: GO TO 0411 06940362 ! 698: 20410 IVFAIL = IVFAIL + 1 06950362 ! 699: IVCORR = -6 06960362 ! 700: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06970362 ! 701: 0411 CONTINUE 06980362 ! 702: CT042* TEST 42 VALUES NOT EQUAL, BOTH NEGATIVE 06990362 ! 703: IVTNUM = 42 07000362 ! 704: RIBVS = -7.125 07010362 ! 705: RIDVS = -5.125 07020362 ! 706: IIAVI = MIN1(RIBVS, RIDVS) 07030362 ! 707: IF (IIAVI + 7) 20420, 10420, 20420 07040362 ! 708: 10420 IVPASS = IVPASS + 1 07050362 ! 709: WRITE (NUVI, 80002) IVTNUM 07060362 ! 710: GO TO 0421 07070362 ! 711: 20420 IVFAIL = IVFAIL + 1 07080362 ! 712: IVCORR = -7 07090362 ! 713: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07100362 ! 714: 0421 CONTINUE 07110362 ! 715: CT043* TEST 43 FIRST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 07120362 ! 716: IVTNUM = 43 07130362 ! 717: RIDVS = 5.625 07140362 ! 718: RIEVS = 0.0 07150362 ! 719: IIAVI = MIN1(RIDVS, -RIEVS) 07160362 ! 720: IF (IIAVI - 0) 20430, 10430, 20430 07170362 ! 721: 10430 IVPASS = IVPASS + 1 07180362 ! 722: WRITE (NUVI, 80002) IVTNUM 07190362 ! 723: GO TO 0431 07200362 ! 724: 20430 IVFAIL = IVFAIL + 1 07210362 ! 725: IVCORR = 0 07220362 ! 726: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07230362 ! 727: 0431 CONTINUE 07240362 ! 728: CT044* TEST 44 EXPRESSION PRESENTED TO FUNCTION 07250362 ! 729: IVTNUM = 44 07260362 ! 730: RIDVS = 3.5 07270362 ! 731: RIEVS = 4.0 07280362 ! 732: IIAVI = MIN1(RIDVS + RIEVS, -RIEVS - RIDVS) 07290362 ! 733: IF (IIAVI + 7) 20440, 10440, 20440 07300362 ! 734: 10440 IVPASS = IVPASS + 1 07310362 ! 735: WRITE (NUVI, 80002) IVTNUM 07320362 ! 736: GO TO 0441 07330362 ! 737: 20440 IVFAIL = IVFAIL + 1 07340362 ! 738: IVCORR = -7 07350362 ! 739: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07360362 ! 740: 0441 CONTINUE 07370362 ! 741: CT045* TEST 45 3 ARGUMENTS 07380362 ! 742: IVTNUM = 45 07390362 ! 743: RIBVS = 0.0 07400362 ! 744: RICVS = 1.0 07410362 ! 745: RIDVS = 2.0 07420362 ! 746: IIAVI = MIN1(RIBVS, RICVS, RIDVS) 07430362 ! 747: IF (IIAVI - 0) 20450, 10450, 20450 07440362 ! 748: 10450 IVPASS = IVPASS + 1 07450362 ! 749: WRITE (NUVI, 80002) IVTNUM 07460362 ! 750: GO TO 0451 07470362 ! 751: 20450 IVFAIL = IVFAIL + 1 07480362 ! 752: IVCORR = 0 07490362 ! 753: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07500362 ! 754: 0451 CONTINUE 07510362 ! 755: CT046* TEST 46 4 ARGUMENTS 07520362 ! 756: IVTNUM = 46 07530362 ! 757: RIAVS = -3.5 07540362 ! 758: RIBVS = 12.0 07550362 ! 759: RICVS = 3.6 07560362 ! 760: RIDVS = 3.5 07570362 ! 761: IIAVI = MIN1(-RIAVS, RIBVS, RICVS, RIDVS) 07580362 ! 762: IF (IIAVI - 3) 20460, 10460, 20460 07590362 ! 763: 10460 IVPASS = IVPASS + 1 07600362 ! 764: WRITE (NUVI, 80002) IVTNUM 07610362 ! 765: GO TO 0461 07620362 ! 766: 20460 IVFAIL = IVFAIL + 1 07630362 ! 767: IVCORR = 3 07640362 ! 768: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07650362 ! 769: 0461 CONTINUE 07660362 ! 770: CT047* TEST 47 5 ARGUMENTS 07670362 ! 771: IVTNUM = 47 07680362 ! 772: RIDVS = 3.5 07690362 ! 773: RIEVS = 4.5 07700362 ! 774: IIAVI = MIN1(RIDVS, -RIDVS, -RIEVS, +RIDVS, RIEVS) 07710362 ! 775: IF (IIAVI + 4) 20470, 10470, 20470 07720362 ! 776: 10470 IVPASS = IVPASS + 1 07730362 ! 777: WRITE (NUVI, 80002) IVTNUM 07740362 ! 778: GO TO 0471 07750362 ! 779: 20470 IVFAIL = IVFAIL + 1 07760362 ! 780: IVCORR = -4 07770362 ! 781: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07780362 ! 782: 0471 CONTINUE 07790362 ! 783: C***** 07800362 ! 784: CBB** ********************** BBCSUM0 **********************************07810362 ! 785: C**** WRITE OUT TEST SUMMARY 07820362 ! 786: C**** 07830362 ! 787: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 07840362 ! 788: WRITE (I02, 90004) 07850362 ! 789: WRITE (I02, 90014) 07860362 ! 790: WRITE (I02, 90004) 07870362 ! 791: WRITE (I02, 90020) IVPASS 07880362 ! 792: WRITE (I02, 90022) IVFAIL 07890362 ! 793: WRITE (I02, 90024) IVDELE 07900362 ! 794: WRITE (I02, 90026) IVINSP 07910362 ! 795: WRITE (I02, 90028) IVTOTN, IVTOTL 07920362 ! 796: CBE** ********************** BBCSUM0 **********************************07930362 ! 797: CBB** ********************** BBCFOOT0 **********************************07940362 ! 798: C**** WRITE OUT REPORT FOOTINGS 07950362 ! 799: C**** 07960362 ! 800: WRITE (I02,90016) ZPROG, ZPROG 07970362 ! 801: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 07980362 ! 802: WRITE (I02,90019) 07990362 ! 803: CBE** ********************** BBCFOOT0 **********************************08000362 ! 804: CBB** ********************** BBCFMT0A **********************************08010362 ! 805: C**** FORMATS FOR TEST DETAIL LINES 08020362 ! 806: C**** 08030362 ! 807: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 08040362 ! 808: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 08050362 ! 809: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 08060362 ! 810: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 08070362 ! 811: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 08080362 ! 812: 1I6,/,1H ,15X,10HCORRECT= ,I6) 08090362 ! 813: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 08100362 ! 814: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 08110362 ! 815: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 08120362 ! 816: 1A21,/,1H ,16X,10HCORRECT= ,A21) 08130362 ! 817: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 08140362 ! 818: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 08150362 ! 819: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 08160362 ! 820: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 08170362 ! 821: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 08180362 ! 822: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 08190362 ! 823: 80050 FORMAT (1H ,48X,A31) 08200362 ! 824: CBE** ********************** BBCFMT0A **********************************08210362 ! 825: CBB** ********************** BBCFMT0B **********************************08220362 ! 826: C**** FORMAT STATEMENTS FOR PAGE HEADERS 08230362 ! 827: C**** 08240362 ! 828: 90002 FORMAT (1H1) 08250362 ! 829: 90004 FORMAT (1H ) 08260362 ! 830: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 08270362 ! 831: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08280362 ! 832: 90008 FORMAT (1H ,21X,A13,A17) 08290362 ! 833: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 08300362 ! 834: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 08310362 ! 835: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 08320362 ! 836: 1 7X,7HREMARKS,24X) 08330362 ! 837: 90014 FORMAT (1H ,46H----------------------------------------------, 08340362 ! 838: 1 33H---------------------------------) 08350362 ! 839: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 08360362 ! 840: C**** 08370362 ! 841: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 08380362 ! 842: C**** 08390362 ! 843: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 08400362 ! 844: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 08410362 ! 845: 1 A13) 08420362 ! 846: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 08430362 ! 847: C**** 08440362 ! 848: C**** FORMAT STATEMENTS FOR RUN SUMMARY 08450362 ! 849: C**** 08460362 ! 850: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 08470362 ! 851: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 08480362 ! 852: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 08490362 ! 853: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 08500362 ! 854: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 08510362 ! 855: CBE** ********************** BBCFMT0B **********************************08520362 ! 856: C***** 08530362 ! 857: C***** END OF TEST SEGMENT 167 08540362 ! 858: STOP 08550362 ! 859: END 08560362 ! 860: 08570362
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.