![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM361.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 FM361.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***********************************************************************00010361 ! 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 00020361 ! 6: C***** FM361 XMAX - (165) 00030361 ! 7: C***** 00040361 ! 8: C***********************************************************************00050361 ! 9: C***** GENERAL PURPOSE SUBSET REF00060361 ! 10: C***** TEST OF INTRINSIC FUNCTIONS AMAX0,AMAX1,MAX0,MAX1 15.3 00070361 ! 11: C***** CHOOSING LARGEST VALUE (TABLE 5)00080361 ! 12: C***** 00090361 ! 13: CBB** ********************** BBCCOMNT **********************************00100361 ! 14: C**** 00110361 ! 15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120361 ! 16: C**** VERSION 2.0 00130361 ! 17: C**** 00140361 ! 18: C**** 00150361 ! 19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160361 ! 20: C**** GENERAL SERVICES ADMINISTRATION 00170361 ! 21: C**** FEDERAL SOFTWARE TESTING CENTER 00180361 ! 22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190361 ! 23: C**** FALLS CHURCH, VA. 22041 00200361 ! 24: C**** 00210361 ! 25: C**** (703) 756-6153 00220361 ! 26: C**** 00230361 ! 27: CBE** ********************** BBCCOMNT **********************************00240361 ! 28: CBB** ********************** BBCINITA **********************************00250361 ! 29: C**** SPECIFICATION STATEMENTS 00260361 ! 30: C**** 00270361 ! 31: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00280361 ! 32: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00290361 ! 33: CBE** ********************** BBCINITA **********************************00300361 ! 34: CBB** ********************** BBCINITB **********************************00310361 ! 35: C**** INITIALIZE SECTION 00320361 ! 36: DATA ZVERS, ZVERSD, ZDATE 00330361 ! 37: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00340361 ! 38: DATA ZCOMPL, ZNAME, ZTAPE 00350361 ! 39: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00360361 ! 40: DATA ZPROJ, ZTAPED, ZPROG 00370361 ! 41: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00380361 ! 42: DATA REMRKS /' '/ 00390361 ! 43: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400361 ! 44: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00410361 ! 45: C**** 00420361 ! 46: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430361 ! 47: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440361 ! 48: CZ03 ZPROG = 'PROGRAM NAME' 00450361 ! 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 00520361 ! 56: IVPASS = 0 00530361 ! 57: IVFAIL = 0 00540361 ! 58: IVDELE = 0 00550361 ! 59: IVINSP = 0 00560361 ! 60: IVTOTL = 0 00570361 ! 61: IVTOTN = 0 00580361 ! 62: ICZERO = 0 00590361 ! 63: C 00600361 ! 64: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00610361 ! 65: I01 = 05 00620361 ! 66: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00630361 ! 67: I02 = 06 00640361 ! 68: C 00650361 ! 69: I01 = 5 00660361 ! 70: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00670361 ! 71: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00680361 ! 72: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00690361 ! 73: C 00700361 ! 74: I02 = 6 00710361 ! 75: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00720361 ! 76: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00730361 ! 77: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00740361 ! 78: C 00750361 ! 79: CBE** ********************** BBCINITB **********************************00760361 ! 80: NUVI = I02 00770361 ! 81: IVTOTL = 48 00780361 ! 82: ZPROG = 'FM361' 00790361 ! 83: CBB** ********************** BBCHED0A **********************************00800361 ! 84: C**** 00810361 ! 85: C**** WRITE REPORT TITLE 00820361 ! 86: C**** 00830361 ! 87: WRITE (I02, 90002) 00840361 ! 88: WRITE (I02, 90006) 00850361 ! 89: WRITE (I02, 90007) 00860361 ! 90: WRITE (I02, 90008) ZVERS, ZVERSD 00870361 ! 91: WRITE (I02, 90009) ZPROG, ZPROG 00880361 ! 92: WRITE (I02, 90010) ZDATE, ZCOMPL 00890361 ! 93: CBE** ********************** BBCHED0A **********************************00900361 ! 94: C***** 00910361 ! 95: C***** HEADER FOR SEGMENT 165 00920361 ! 96: WRITE (NUVI,16501) 00930361 ! 97: 16501 FORMAT (1H , // 2X,36HXMAX - (165) INTRINSIC FUNCTIONS-- //13X,00940361 ! 98: 1 26HAMAX0, AMAX1, MAX0, MAX1 /13X, 00950361 ! 99: 2 24H(CHOOSING LARGEST VALUE)//2X, 00960361 ! 100: 3 18HSUBSET REF. - 15.3) 00970361 ! 101: CBB** ********************** BBCHED0B **********************************00980361 ! 102: C**** WRITE DETAIL REPORT HEADERS 00990361 ! 103: C**** 01000361 ! 104: WRITE (I02,90004) 01010361 ! 105: WRITE (I02,90004) 01020361 ! 106: WRITE (I02,90013) 01030361 ! 107: WRITE (I02,90014) 01040361 ! 108: WRITE (I02,90015) IVTOTL 01050361 ! 109: CBE** ********************** BBCHED0B **********************************01060361 ! 110: C***** 01070361 ! 111: C***** TEST OF AMAX0 01080361 ! 112: C***** 01090361 ! 113: WRITE(NUVI, 16502) 01100361 ! 114: 16502 FORMAT (/ 8X, 13HTEST OF AMAX0) 01110361 ! 115: CT001* TEST 1 BOTH ZEROES 01120361 ! 116: IVTNUM = 1 01130361 ! 117: IHBVI = 0 01140361 ! 118: IHDVI = 0 01150361 ! 119: RHAVS = AMAX0(IHBVI,IHDVI) 01160361 ! 120: IF (RHAVS + 0.00005) 20010, 10010, 40010 01170361 ! 121: 40010 IF (RHAVS - 0.00005) 10010, 10010, 20010 01180361 ! 122: 10010 IVPASS = IVPASS + 1 01190361 ! 123: WRITE (NUVI, 80002) IVTNUM 01200361 ! 124: GO TO 0011 01210361 ! 125: 20010 IVFAIL = IVFAIL + 1 01220361 ! 126: RVCORR = 0.0 01230361 ! 127: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 01240361 ! 128: 0011 CONTINUE 01250361 ! 129: CT002* TEST 2 ONE NON-ZERO, ONE ZERO 01260361 ! 130: IVTNUM = 2 01270361 ! 131: IHBVI = 6 01280361 ! 132: IHDVI = 0 01290361 ! 133: RHAVS = AMAX0(IHBVI,IHDVI) 01300361 ! 134: IF (RHAVS - 5.9997) 20020, 10020, 40020 01310361 ! 135: 40020 IF (RHAVS - 6.0003) 10020, 10020, 20020 01320361 ! 136: 10020 IVPASS = IVPASS + 1 01330361 ! 137: WRITE (NUVI, 80002) IVTNUM 01340361 ! 138: GO TO 0021 01350361 ! 139: 20020 IVFAIL = IVFAIL + 1 01360361 ! 140: RVCORR = 6.0 01370361 ! 141: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 01380361 ! 142: 0021 CONTINUE 01390361 ! 143: CT003* TEST 3 BOTH VALUES EQUAL 01400361 ! 144: IVTNUM = 3 01410361 ! 145: IHBVI = 7 01420361 ! 146: IHDVI = 7 01430361 ! 147: RHAVS = AMAX0(IHBVI,IHDVI) 01440361 ! 148: IF (RHAVS - 6.9996) 20030, 10030, 40030 01450361 ! 149: 40030 IF (RHAVS - 7.0004) 10030, 10030, 20030 01460361 ! 150: 10030 IVPASS = IVPASS + 1 01470361 ! 151: WRITE (NUVI, 80002) IVTNUM 01480361 ! 152: GO TO 0031 01490361 ! 153: 20030 IVFAIL = IVFAIL + 1 01500361 ! 154: RVCORR = 7.0 01510361 ! 155: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 01520361 ! 156: 0031 CONTINUE 01530361 ! 157: CT004* TEST 4 UNEQUAL VALUES, BOTH POSITIVE 01540361 ! 158: IVTNUM = 4 01550361 ! 159: IHBVI = 7 01560361 ! 160: IHDVI = 5 01570361 ! 161: RHAVS = AMAX0(IHBVI,IHDVI) 01580361 ! 162: IF (RHAVS - 6.9996) 20040, 10040, 40040 01590361 ! 163: 40040 IF (RHAVS - 7.0004) 10040, 10040, 20040 01600361 ! 164: 10040 IVPASS = IVPASS + 1 01610361 ! 165: WRITE (NUVI, 80002) IVTNUM 01620361 ! 166: GO TO 0041 01630361 ! 167: 20040 IVFAIL = IVFAIL + 1 01640361 ! 168: RVCORR = 7.0 01650361 ! 169: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 01660361 ! 170: 0041 CONTINUE 01670361 ! 171: CT005* TEST 5 ONE NEGATIVE, ONE ZERO 01680361 ! 172: IVTNUM = 5 01690361 ! 173: IHBVI = -6 01700361 ! 174: IHDVI = 0 01710361 ! 175: RHAVS = AMAX0(IHBVI,IHDVI) 01720361 ! 176: IF (RHAVS + 0.00005) 20050, 10050, 40050 01730361 ! 177: 40050 IF (RHAVS - 0.00005) 10050, 10050, 20050 01740361 ! 178: 10050 IVPASS = IVPASS + 1 01750361 ! 179: WRITE (NUVI, 80002) IVTNUM 01760361 ! 180: GO TO 0051 01770361 ! 181: 20050 IVFAIL = IVFAIL + 1 01780361 ! 182: RVCORR = 0.0 01790361 ! 183: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 01800361 ! 184: 0051 CONTINUE 01810361 ! 185: CT006* TEST 6 BOTH VALUES EQUAL, BOTH NEGATIVE 01820361 ! 186: IVTNUM = 6 01830361 ! 187: IHBVI = -7 01840361 ! 188: IHDVI = -7 01850361 ! 189: RHAVS = AMAX0(IHBVI,IHDVI) 01860361 ! 190: IF (RHAVS + 7.0004) 20060, 10060, 40060 01870361 ! 191: 40060 IF (RHAVS + 6.9996) 10060, 10060, 20060 01880361 ! 192: 10060 IVPASS = IVPASS + 1 01890361 ! 193: WRITE (NUVI, 80002) IVTNUM 01900361 ! 194: GO TO 0061 01910361 ! 195: 20060 IVFAIL = IVFAIL + 1 01920361 ! 196: RVCORR = -7.0 01930361 ! 197: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 01940361 ! 198: 0061 CONTINUE 01950361 ! 199: CT007* TEST 7 BOTH VALUES NOT EQUAL, BOTH NEGATIVE 01960361 ! 200: IVTNUM = 7 01970361 ! 201: IHBVI = -7 01980361 ! 202: IHDVI = -5 01990361 ! 203: RHAVS = AMAX0(IHBVI,IHDVI) 02000361 ! 204: IF (RHAVS + 5.0003) 20070, 10070, 40070 02010361 ! 205: 40070 IF (RHAVS + 4.9997) 10070, 10070, 20070 02020361 ! 206: 10070 IVPASS = IVPASS + 1 02030361 ! 207: WRITE (NUVI, 80002) IVTNUM 02040361 ! 208: GO TO 0071 02050361 ! 209: 20070 IVFAIL = IVFAIL + 1 02060361 ! 210: RVCORR = -5.0 02070361 ! 211: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 02080361 ! 212: 0071 CONTINUE 02090361 ! 213: CT008* TEST 8 1ST VALUE NON-ZERO, 2ND ZERO PRECEDED BY A MINUS SIGN 02100361 ! 214: IVTNUM = 8 02110361 ! 215: IHDVI = 6 02120361 ! 216: IHEVI = 0 02130361 ! 217: RHAVS = AMAX0(IHDVI, -IHEVI) 02140361 ! 218: IF (RHAVS - 5.9997) 20080, 10080, 40080 02150361 ! 219: 40080 IF (RHAVS - 6.0003) 10080, 10080, 20080 02160361 ! 220: 10080 IVPASS = IVPASS + 1 02170361 ! 221: WRITE (NUVI, 80002) IVTNUM 02180361 ! 222: GO TO 0081 02190361 ! 223: 20080 IVFAIL = IVFAIL + 1 02200361 ! 224: RVCORR = 6.0 02210361 ! 225: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 02220361 ! 226: 0081 CONTINUE 02230361 ! 227: CT009* TEST 9 EXPRESSIONS PRESENTED TO FUNCTION 02240361 ! 228: IVTNUM = 9 02250361 ! 229: IHDVI = 3 02260361 ! 230: IHEVI = 4 02270361 ! 231: RHAVS = AMAX0(IHDVI + IHEVI, -IHEVI - IHDVI) 02280361 ! 232: IF (RHAVS - 6.9996) 20090, 10090, 40090 02290361 ! 233: 40090 IF (RHAVS - 7.0004) 10090, 10090, 20090 02300361 ! 234: 10090 IVPASS = IVPASS + 1 02310361 ! 235: WRITE (NUVI, 80002) IVTNUM 02320361 ! 236: GO TO 0091 02330361 ! 237: 20090 IVFAIL = IVFAIL + 1 02340361 ! 238: RVCORR = 7.0 02350361 ! 239: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 02360361 ! 240: 0091 CONTINUE 02370361 ! 241: CT010* TEST 10 3 ARGUMENTS 02380361 ! 242: IVTNUM = 10 02390361 ! 243: IHBVI = 0 02400361 ! 244: IHCVI = 1 02410361 ! 245: IHDVI = 3 02420361 ! 246: RHAVS = AMAX0(IHBVI, IHCVI, IHDVI) 02430361 ! 247: IF (RHAVS - 2.9998) 20100, 10100, 40100 02440361 ! 248: 40100 IF (RHAVS - 3.0002) 10100, 10100, 20100 02450361 ! 249: 10100 IVPASS = IVPASS + 1 02460361 ! 250: WRITE (NUVI, 80002) IVTNUM 02470361 ! 251: GO TO 0101 02480361 ! 252: 20100 IVFAIL = IVFAIL + 1 02490361 ! 253: RVCORR = 3.0 02500361 ! 254: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 02510361 ! 255: 0101 CONTINUE 02520361 ! 256: CT011* TEST 11 4 ARGUMENTS 02530361 ! 257: IVTNUM = 11 02540361 ! 258: IHBVI = 0 02550361 ! 259: IHCVI = 1 02560361 ! 260: IHDVI = 4 02570361 ! 261: RHAVS = AMAX0(IHDVI, -IHBVI, IHCVI, IHBVI) 02580361 ! 262: IF (RHAVS - 3.9998) 20110, 10110, 40110 02590361 ! 263: 40110 IF (RHAVS - 4.0002) 10110, 10110, 20110 02600361 ! 264: 10110 IVPASS = IVPASS + 1 02610361 ! 265: WRITE (NUVI, 80002) IVTNUM 02620361 ! 266: GO TO 0111 02630361 ! 267: 20110 IVFAIL = IVFAIL + 1 02640361 ! 268: RVCORR = 4.0 02650361 ! 269: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 02660361 ! 270: 0111 CONTINUE 02670361 ! 271: CT012* TEST 12 5 ARGUMENTS 02680361 ! 272: IVTNUM = 12 02690361 ! 273: IHDVI = 4.0 02700361 ! 274: IHEVI = 5.0 02710361 ! 275: RHAVS = AMAX0(IHDVI, -IHDVI, -IHEVI, +IHDVI, IHEVI) 02720361 ! 276: IF (RHAVS - 4.9997) 20120, 10120, 40120 02730361 ! 277: 40120 IF (RHAVS - 5.0003) 10120, 10120, 20120 02740361 ! 278: 10120 IVPASS = IVPASS + 1 02750361 ! 279: WRITE (NUVI, 80002) IVTNUM 02760361 ! 280: GO TO 0121 02770361 ! 281: 20120 IVFAIL = IVFAIL + 1 02780361 ! 282: RVCORR = 5.0 02790361 ! 283: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 02800361 ! 284: 0121 CONTINUE 02810361 ! 285: C***** 02820361 ! 286: WRITE (NUVI, 90002) 02830361 ! 287: WRITE (NUVI, 90013) 02840361 ! 288: WRITE (NUVI, 90014) 02850361 ! 289: C***** TEST OF AMAX1 02860361 ! 290: C***** 02870361 ! 291: WRITE(NUVI, 16504) 02880361 ! 292: 16504 FORMAT (/ 8X, 13HTEST OF AMAX1) 02890361 ! 293: CT013* TEST 13 BOTH VALUES ZERO 02900361 ! 294: IVTNUM = 13 02910361 ! 295: RHBVS = 0.0 02920361 ! 296: RHDVS = 0.0 02930361 ! 297: RHAVS = AMAX1(RHBVS, RHDVS) 02940361 ! 298: IF (RHAVS + 0.00005) 20130, 10130, 40130 02950361 ! 299: 40130 IF (RHAVS - 0.00005) 10130, 10130, 20130 02960361 ! 300: 10130 IVPASS = IVPASS + 1 02970361 ! 301: WRITE (NUVI, 80002) IVTNUM 02980361 ! 302: GO TO 0131 02990361 ! 303: 20130 IVFAIL = IVFAIL + 1 03000361 ! 304: RVCORR = 0.0 03010361 ! 305: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 03020361 ! 306: 0131 CONTINUE 03030361 ! 307: CT014* TEST 14 FIRST VALUE NON-ZERO, SECOND ZERO 03040361 ! 308: IVTNUM = 14 03050361 ! 309: RHBVS = 5.625 03060361 ! 310: RHDVS = 0.0 03070361 ! 311: RHAVS = AMAX1(RHBVS, RHDVS) 03080361 ! 312: IF (RHAVS - 5.6247) 20140, 10140, 40140 03090361 ! 313: 40140 IF (RHAVS - 5.6253) 10140, 10140, 20140 03100361 ! 314: 10140 IVPASS = IVPASS + 1 03110361 ! 315: WRITE (NUVI, 80002) IVTNUM 03120361 ! 316: GO TO 0141 03130361 ! 317: 20140 IVFAIL = IVFAIL + 1 03140361 ! 318: RVCORR = 5.625 03150361 ! 319: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 03160361 ! 320: 0141 CONTINUE 03170361 ! 321: CT015* TEST 15 BOTH VALUES EQUAL 03180361 ! 322: IVTNUM = 15 03190361 ! 323: RHBVS = 6.5 03200361 ! 324: RHDVS = 6.5 03210361 ! 325: RHAVS = AMAX1(RHBVS, RHDVS) 03220361 ! 326: IF (RHAVS - 6.4996) 20150, 10150, 40150 03230361 ! 327: 40150 IF (RHAVS - 6.5004) 10150, 10150, 20150 03240361 ! 328: 10150 IVPASS = IVPASS + 1 03250361 ! 329: WRITE (NUVI, 80002) IVTNUM 03260361 ! 330: GO TO 0151 03270361 ! 331: 20150 IVFAIL = IVFAIL + 1 03280361 ! 332: RVCORR = 6.5 03290361 ! 333: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 03300361 ! 334: 0151 CONTINUE 03310361 ! 335: CT016* TEST 16 VALUES NOT EQUAL 03320361 ! 336: IVTNUM = 16 03330361 ! 337: RHBVS = 7.125 03340361 ! 338: RHDVS = 5.125 03350361 ! 339: RHAVS = AMAX1(RHBVS, RHDVS) 03360361 ! 340: IF (RHAVS - 7.1246) 20160, 10160, 40160 03370361 ! 341: 40160 IF (RHAVS - 7.1254) 10160, 10160, 20160 03380361 ! 342: 10160 IVPASS = IVPASS + 1 03390361 ! 343: WRITE (NUVI, 80002) IVTNUM 03400361 ! 344: GO TO 0161 03410361 ! 345: 20160 IVFAIL = IVFAIL + 1 03420361 ! 346: RVCORR = 7.125 03430361 ! 347: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 03440361 ! 348: 0161 CONTINUE 03450361 ! 349: CT017* TEST 17 FIRST VALUE NEGATIVE, SECOND ZERO 03460361 ! 350: IVTNUM = 17 03470361 ! 351: RHBVS = -5.625 03480361 ! 352: RHDVS = 0.0 03490361 ! 353: RHAVS = AMAX1(RHBVS, RHDVS) 03500361 ! 354: IF (RHAVS + 0.00005) 20170, 10170, 40170 03510361 ! 355: 40170 IF (RHAVS - 0.00005) 10170, 10170, 20170 03520361 ! 356: 10170 IVPASS = IVPASS + 1 03530361 ! 357: WRITE (NUVI, 80002) IVTNUM 03540361 ! 358: GO TO 0171 03550361 ! 359: 20170 IVFAIL = IVFAIL + 1 03560361 ! 360: RVCORR = 0.0 03570361 ! 361: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 03580361 ! 362: 0171 CONTINUE 03590361 ! 363: CT018* TEST 18 BOTH VALUES EQUAL, BOTH NEGATIVE 03600361 ! 364: IVTNUM = 18 03610361 ! 365: RHBVS = -6.5 03620361 ! 366: RHDVS = -6.5 03630361 ! 367: RHAVS = AMAX1(RHBVS, RHDVS) 03640361 ! 368: IF (RHAVS + 6.5004) 20180, 10180, 40180 03650361 ! 369: 40180 IF (RHAVS + 6.4996) 10180, 10180, 20180 03660361 ! 370: 10180 IVPASS = IVPASS + 1 03670361 ! 371: WRITE (NUVI, 80002) IVTNUM 03680361 ! 372: GO TO 0181 03690361 ! 373: 20180 IVFAIL = IVFAIL + 1 03700361 ! 374: RVCORR = -6.5 03710361 ! 375: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 03720361 ! 376: 0181 CONTINUE 03730361 ! 377: CT019* TEST 19 VALUES NOT EQUAL, BOTH NEGATIVE 03740361 ! 378: IVTNUM = 19 03750361 ! 379: RHBVS = -7.125 03760361 ! 380: RHDVS = -5.125 03770361 ! 381: RHAVS = AMAX1(RHBVS, RHDVS) 03780361 ! 382: IF (RHAVS + 5.1253) 20190, 10190, 40190 03790361 ! 383: 40190 IF (RHAVS + 5.1247) 10190, 10190, 20190 03800361 ! 384: 10190 IVPASS = IVPASS + 1 03810361 ! 385: WRITE (NUVI, 80002) IVTNUM 03820361 ! 386: GO TO 0191 03830361 ! 387: 20190 IVFAIL = IVFAIL + 1 03840361 ! 388: RVCORR = -5.125 03850361 ! 389: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 03860361 ! 390: 0191 CONTINUE 03870361 ! 391: CT020* TEST 20 1ST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 03880361 ! 392: IVTNUM = 20 03890361 ! 393: RHDVS = 5.625 03900361 ! 394: RHEVS = 0.0 03910361 ! 395: RHAVS = AMAX1(RHDVS, -RHEVS) 03920361 ! 396: IF (RHAVS - 5.6247) 20200, 10200, 40200 03930361 ! 397: 40200 IF (RHAVS - 5.6253) 10200, 10200, 20200 03940361 ! 398: 10200 IVPASS = IVPASS + 1 03950361 ! 399: WRITE (NUVI, 80002) IVTNUM 03960361 ! 400: GO TO 0201 03970361 ! 401: 20200 IVFAIL = IVFAIL + 1 03980361 ! 402: RVCORR = 5.625 03990361 ! 403: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 04000361 ! 404: 0201 CONTINUE 04010361 ! 405: CT021* TEST 21 EXPRESSIONS PRESENTED TO FUNCTION 04020361 ! 406: IVTNUM = 21 04030361 ! 407: RHDVS = 3.5 04040361 ! 408: RHEVS = 4.0 04050361 ! 409: RHAVS = AMAX1(RHDVS + RHEVS, -RHEVS - RHDVS) 04060361 ! 410: IF (RHAVS - 7.4996) 20210, 10210, 40210 04070361 ! 411: 40210 IF (RHAVS - 7.5004) 10210, 10210, 20210 04080361 ! 412: 10210 IVPASS = IVPASS + 1 04090361 ! 413: WRITE (NUVI, 80002) IVTNUM 04100361 ! 414: GO TO 0211 04110361 ! 415: 20210 IVFAIL = IVFAIL + 1 04120361 ! 416: RVCORR = 7.5 04130361 ! 417: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 04140361 ! 418: 0211 CONTINUE 04150361 ! 419: CT022* TEST 22 3 ARGUMENTS 04160361 ! 420: IVTNUM = 22 04170361 ! 421: RHBVS = 0.0 04180361 ! 422: RHCVS = 1.0 04190361 ! 423: RHDVS = 0.5 04200361 ! 424: RHAVS = AMAX1(RHBVS, RHCVS, RHDVS) 04210361 ! 425: IF (RHAVS - 0.99995) 20220, 10220, 40220 04220361 ! 426: 40220 IF (RHAVS - 1.0001) 10220, 10220, 20220 04230361 ! 427: 10220 IVPASS = IVPASS + 1 04240361 ! 428: WRITE (NUVI, 80002) IVTNUM 04250361 ! 429: GO TO 0221 04260361 ! 430: 20220 IVFAIL = IVFAIL + 1 04270361 ! 431: RVCORR = 1.0 04280361 ! 432: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 04290361 ! 433: 0221 CONTINUE 04300361 ! 434: CT023* TEST 23 4 ARGUMENTS 04310361 ! 435: IVTNUM = 23 04320361 ! 436: RHBVS = 1.5 04330361 ! 437: RHCVS = 3.4 04340361 ! 438: RHDVS = 3.5 04350361 ! 439: RHAVS = AMAX1(-RHDVS, RHCVS, RHBVS, RHDVS) 04360361 ! 440: IF (RHAVS - 3.4998) 20230, 10230, 40230 04370361 ! 441: 40230 IF (RHAVS - 3.5002) 10230, 10230, 20230 04380361 ! 442: 10230 IVPASS = IVPASS + 1 04390361 ! 443: WRITE (NUVI, 80002) IVTNUM 04400361 ! 444: GO TO 0231 04410361 ! 445: 20230 IVFAIL = IVFAIL + 1 04420361 ! 446: RVCORR = 3.5 04430361 ! 447: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 04440361 ! 448: 0231 CONTINUE 04450361 ! 449: CT024* TEST 24 5 ARGUMENTS 04460361 ! 450: IVTNUM = 24 04470361 ! 451: RHDVS = 3.5 04480361 ! 452: RHEVS = 4.5 04490361 ! 453: RHAVS = AMAX1(RHDVS, -RHDVS, -RHEVS, +RHDVS, RHEVS) 04500361 ! 454: IF (RHAVS - 4.4997) 20240, 10240, 40240 04510361 ! 455: 40240 IF (RHAVS - 4.5003) 10240, 10240, 20240 04520361 ! 456: 10240 IVPASS = IVPASS + 1 04530361 ! 457: WRITE (NUVI, 80002) IVTNUM 04540361 ! 458: GO TO 0241 04550361 ! 459: 20240 IVFAIL = IVFAIL + 1 04560361 ! 460: RVCORR = 4.5 04570361 ! 461: WRITE (NUVI, 80012) IVTNUM, RHAVS, RVCORR 04580361 ! 462: 0241 CONTINUE 04590361 ! 463: C***** 04600361 ! 464: WRITE (NUVI, 90002) 04610361 ! 465: WRITE (NUVI, 90013) 04620361 ! 466: WRITE (NUVI, 90014) 04630361 ! 467: C***** TEST OF MAX0 04640361 ! 468: C***** 04650361 ! 469: WRITE(NUVI, 16505) 04660361 ! 470: 16505 FORMAT (/ 8X, 12HTEST OF MAX0) 04670361 ! 471: C***** 04680361 ! 472: CT025* TEST 25 BOTH VALUES ZERO 04690361 ! 473: IVTNUM = 25 04700361 ! 474: IHBVI = 0 04710361 ! 475: IHDVI = 0 04720361 ! 476: IHAVI = MAX0(IHBVI, IHDVI) 04730361 ! 477: IF (IHAVI - 0) 20250, 10250, 20250 04740361 ! 478: 10250 IVPASS = IVPASS + 1 04750361 ! 479: WRITE (NUVI, 80002) IVTNUM 04760361 ! 480: GO TO 0251 04770361 ! 481: 20250 IVFAIL = IVFAIL + 1 04780361 ! 482: IVCORR = 0 04790361 ! 483: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 04800361 ! 484: 0251 CONTINUE 04810361 ! 485: CT026* TEST 26 FIRST VALUE NON-ZERO, SECOND ZERO 04820361 ! 486: IVTNUM = 26 04830361 ! 487: IHBVI = 6 04840361 ! 488: IHDVI = 0 04850361 ! 489: IHAVI = MAX0(IHBVI, IHDVI) 04860361 ! 490: IF (IHAVI - 6) 20260, 10260, 20260 04870361 ! 491: 10260 IVPASS = IVPASS + 1 04880361 ! 492: WRITE (NUVI, 80002) IVTNUM 04890361 ! 493: GO TO 0261 04900361 ! 494: 20260 IVFAIL = IVFAIL + 1 04910361 ! 495: IVCORR = 6 04920361 ! 496: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 04930361 ! 497: 0261 CONTINUE 04940361 ! 498: CT027* TEST 27 BOTH VALUES EQUAL 04950361 ! 499: IVTNUM = 27 04960361 ! 500: IHBVI = 7 04970361 ! 501: IHDVI = 7 04980361 ! 502: IHAVI = MAX0(IHBVI, IHDVI) 04990361 ! 503: IF (IHAVI - 7) 20270, 10270, 20270 05000361 ! 504: 10270 IVPASS = IVPASS + 1 05010361 ! 505: WRITE (NUVI, 80002) IVTNUM 05020361 ! 506: GO TO 0271 05030361 ! 507: 20270 IVFAIL = IVFAIL + 1 05040361 ! 508: IVCORR = 7 05050361 ! 509: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 05060361 ! 510: 0271 CONTINUE 05070361 ! 511: CT028* TEST 28 VALUES NOT EQUAL 05080361 ! 512: IVTNUM = 28 05090361 ! 513: IHBVI = 7 05100361 ! 514: IHDVI = 5 05110361 ! 515: IHAVI = MAX0(IHBVI, IHDVI) 05120361 ! 516: IF (IHAVI - 7) 20280, 10280, 20280 05130361 ! 517: 10280 IVPASS = IVPASS + 1 05140361 ! 518: WRITE (NUVI, 80002) IVTNUM 05150361 ! 519: GO TO 0281 05160361 ! 520: 20280 IVFAIL = IVFAIL + 1 05170361 ! 521: IVCORR = 7 05180361 ! 522: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 05190361 ! 523: 0281 CONTINUE 05200361 ! 524: CT029* TEST 29 FIRST VALUE NEGATIVE, SECOND ZERO 05210361 ! 525: IVTNUM = 29 05220361 ! 526: IHBVI = -6 05230361 ! 527: IHDVI = 0 05240361 ! 528: IHAVI = MAX0(IHBVI, IHDVI) 05250361 ! 529: IF (IHAVI - 0) 20290, 10290, 20290 05260361 ! 530: 10290 IVPASS = IVPASS + 1 05270361 ! 531: WRITE (NUVI, 80002) IVTNUM 05280361 ! 532: GO TO 0291 05290361 ! 533: 20290 IVFAIL = IVFAIL + 1 05300361 ! 534: IVCORR = 0 05310361 ! 535: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 05320361 ! 536: 0291 CONTINUE 05330361 ! 537: CT030* TEST 30 BOTH VALUES EQUAL, BOTH NEGATIVE 05340361 ! 538: IVTNUM = 30 05350361 ! 539: IHBVI = -7 05360361 ! 540: IHDVI = -7 05370361 ! 541: IHAVI = MAX0(IHBVI, IHDVI) 05380361 ! 542: IF (IHAVI + 7) 20300, 10300, 20300 05390361 ! 543: 10300 IVPASS = IVPASS + 1 05400361 ! 544: WRITE (NUVI, 80002) IVTNUM 05410361 ! 545: GO TO 0301 05420361 ! 546: 20300 IVFAIL = IVFAIL + 1 05430361 ! 547: IVCORR = -7 05440361 ! 548: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 05450361 ! 549: 0301 CONTINUE 05460361 ! 550: CT031* TEST 31 VALUES NOT EQUAL, BOTH NEGATIVE 05470361 ! 551: IVTNUM = 31 05480361 ! 552: IHBVI = -7 05490361 ! 553: IHDVI = -5 05500361 ! 554: IHAVI = MAX0(IHBVI, IHDVI) 05510361 ! 555: IF (IHAVI + 5) 20310, 10310, 20310 05520361 ! 556: 10310 IVPASS = IVPASS + 1 05530361 ! 557: WRITE (NUVI, 80002) IVTNUM 05540361 ! 558: GO TO 0311 05550361 ! 559: 20310 IVFAIL = IVFAIL + 1 05560361 ! 560: IVCORR = -5 05570361 ! 561: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 05580361 ! 562: 0311 CONTINUE 05590361 ! 563: CT032* TEST 32 1ST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 05600361 ! 564: IVTNUM = 32 05610361 ! 565: IHDVI = 6 05620361 ! 566: IHEVI = 0 05630361 ! 567: IHAVI = MAX0(IHDVI, -IHEVI) 05640361 ! 568: IF (IHAVI - 6) 20320, 10320, 20320 05650361 ! 569: 10320 IVPASS = IVPASS + 1 05660361 ! 570: WRITE (NUVI, 80002) IVTNUM 05670361 ! 571: GO TO 0321 05680361 ! 572: 20320 IVFAIL = IVFAIL + 1 05690361 ! 573: IVCORR = 6 05700361 ! 574: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 05710361 ! 575: 0321 CONTINUE 05720361 ! 576: CT033* TEST 33 EXPRESSIONS PRESENTED TO FUNCTION 05730361 ! 577: IVTNUM = 33 05740361 ! 578: IHDVI = 3 05750361 ! 579: IHEVI = 4 05760361 ! 580: IHAVI = MAX0(IHDVI + IHEVI, -IHEVI - IHDVI) 05770361 ! 581: IF (IHAVI - 7) 20330, 10330, 20330 05780361 ! 582: 10330 IVPASS = IVPASS + 1 05790361 ! 583: WRITE (NUVI, 80002) IVTNUM 05800361 ! 584: GO TO 0331 05810361 ! 585: 20330 IVFAIL = IVFAIL + 1 05820361 ! 586: IVCORR = 7 05830361 ! 587: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 05840361 ! 588: 0331 CONTINUE 05850361 ! 589: CT034* TEST 34 3 ARGUMENTS 05860361 ! 590: IVTNUM = 34 05870361 ! 591: IHBVI = 0 05880361 ! 592: IHCVI = 3 05890361 ! 593: IHDVI = -4 05900361 ! 594: IHAVI = MAX0(IHDVI, IHBVI, IHCVI) 05910361 ! 595: IF (IHAVI - 3) 20340, 10340, 20340 05920361 ! 596: 10340 IVPASS = IVPASS + 1 05930361 ! 597: WRITE (NUVI, 80002) IVTNUM 05940361 ! 598: GO TO 0341 05950361 ! 599: 20340 IVFAIL = IVFAIL + 1 05960361 ! 600: IVCORR = 3 05970361 ! 601: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 05980361 ! 602: 0341 CONTINUE 05990361 ! 603: CT035* TEST 35 4 ARGUMENTS 06000361 ! 604: IVTNUM = 35 06010361 ! 605: IHBVI = -1 06020361 ! 606: IHCVI = 0 06030361 ! 607: IHDVI = 4 06040361 ! 608: IHAVI = MAX0(IHDVI, IHCVI, IHBVI, IHDVI) 06050361 ! 609: IF (IHAVI - 4) 20350, 10350, 20350 06060361 ! 610: 10350 IVPASS = IVPASS + 1 06070361 ! 611: WRITE (NUVI, 80002) IVTNUM 06080361 ! 612: GO TO 0351 06090361 ! 613: 20350 IVFAIL = IVFAIL + 1 06100361 ! 614: IVCORR = 4 06110361 ! 615: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 06120361 ! 616: 0351 CONTINUE 06130361 ! 617: CT036* TEST 36 5 ARGUMENTS 06140361 ! 618: IVTNUM = 36 06150361 ! 619: IHDVI = 4 06160361 ! 620: IHEVI = 5 06170361 ! 621: IHAVI = MAX0(IHDVI, -IHDVI, -IHEVI, +IHDVI, IHEVI) 06180361 ! 622: IF (IHAVI - 5) 20360, 10360, 20360 06190361 ! 623: 10360 IVPASS = IVPASS + 1 06200361 ! 624: WRITE (NUVI, 80002) IVTNUM 06210361 ! 625: GO TO 0361 06220361 ! 626: 20360 IVFAIL = IVFAIL + 1 06230361 ! 627: IVCORR = 5 06240361 ! 628: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 06250361 ! 629: 0361 CONTINUE 06260361 ! 630: C***** 06270361 ! 631: WRITE (NUVI, 90002) 06280361 ! 632: WRITE (NUVI, 90013) 06290361 ! 633: WRITE (NUVI, 90014) 06300361 ! 634: C***** TEST OF MAX1 06310361 ! 635: C***** 06320361 ! 636: WRITE(NUVI, 16507) 06330361 ! 637: 16507 FORMAT (/ 8X, 12HTEST OF MAX1) 06340361 ! 638: CT037* TEST 37 BOTH VALUES EQUAL 06350361 ! 639: IVTNUM = 37 06360361 ! 640: RHBVS = 0.0 06370361 ! 641: RHDVS = 0.0 06380361 ! 642: IHAVI = MAX1(RHBVS, RHDVS) 06390361 ! 643: IF (IHAVI - 0) 20370, 10370, 20370 06400361 ! 644: 10370 IVPASS = IVPASS + 1 06410361 ! 645: WRITE (NUVI, 80002) IVTNUM 06420361 ! 646: GO TO 0371 06430361 ! 647: 20370 IVFAIL = IVFAIL + 1 06440361 ! 648: IVCORR = 0 06450361 ! 649: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 06460361 ! 650: 0371 CONTINUE 06470361 ! 651: CT038* TEST 38 FIRST VALUE NON-ZERO, SECOND ZERO 06480361 ! 652: IVTNUM = 38 06490361 ! 653: RHBVS = 5.625 06500361 ! 654: RHDVS = 0.0 06510361 ! 655: IHAVI = MAX1(RHBVS, RHDVS) 06520361 ! 656: IF (IHAVI - 5) 20380, 10380, 20380 06530361 ! 657: 10380 IVPASS = IVPASS + 1 06540361 ! 658: WRITE (NUVI, 80002) IVTNUM 06550361 ! 659: GO TO 0381 06560361 ! 660: 20380 IVFAIL = IVFAIL + 1 06570361 ! 661: IVCORR = 5 06580361 ! 662: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 06590361 ! 663: 0381 CONTINUE 06600361 ! 664: CT039* TEST 39 BOTH VALUES EQUAL 06610361 ! 665: IVTNUM = 39 06620361 ! 666: RHBVS = 6.5 06630361 ! 667: RHDVS = 6.5 06640361 ! 668: IHAVI = MAX1(RHBVS, RHDVS) 06650361 ! 669: IF (IHAVI - 6) 20390, 10390, 20390 06660361 ! 670: 10390 IVPASS = IVPASS + 1 06670361 ! 671: WRITE (NUVI, 80002) IVTNUM 06680361 ! 672: GO TO 0391 06690361 ! 673: 20390 IVFAIL = IVFAIL + 1 06700361 ! 674: IVCORR = 6 06710361 ! 675: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 06720361 ! 676: 0391 CONTINUE 06730361 ! 677: CT040* TEST 40 VALUES NOT EQUAL 06740361 ! 678: IVTNUM = 40 06750361 ! 679: RHBVS = 7.125 06760361 ! 680: RHDVS = 5.125 06770361 ! 681: IHAVI = MAX1(RHBVS, RHDVS) 06780361 ! 682: IF (IHAVI - 7) 20400, 10400, 20400 06790361 ! 683: 10400 IVPASS = IVPASS + 1 06800361 ! 684: WRITE (NUVI, 80002) IVTNUM 06810361 ! 685: GO TO 0401 06820361 ! 686: 20400 IVFAIL = IVFAIL + 1 06830361 ! 687: IVCORR = 7 06840361 ! 688: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 06850361 ! 689: 0401 CONTINUE 06860361 ! 690: CT041* TEST 41 FIRST VALUE NEGATIVE, SECOND ZERO 06870361 ! 691: IVTNUM = 41 06880361 ! 692: RHBVS = -5.625 06890361 ! 693: RHDVS = 0.0 06900361 ! 694: IHAVI = MAX1(RHBVS, RHDVS) 06910361 ! 695: IF (IHAVI - 0) 20410, 10410, 20410 06920361 ! 696: 10410 IVPASS = IVPASS + 1 06930361 ! 697: WRITE (NUVI, 80002) IVTNUM 06940361 ! 698: GO TO 0411 06950361 ! 699: 20410 IVFAIL = IVFAIL + 1 06960361 ! 700: IVCORR = 0 06970361 ! 701: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 06980361 ! 702: 0411 CONTINUE 06990361 ! 703: CT042* TEST 42 BOTH VALUES EQUAL, BOTH NEGATIVE 07000361 ! 704: IVTNUM = 42 07010361 ! 705: RHBVS = - 6.5 07020361 ! 706: RHDVS = - 6.5 07030361 ! 707: IHAVI = MAX1(RHBVS, RHDVS) 07040361 ! 708: IF (IHAVI + 6) 20420, 10420, 20420 07050361 ! 709: 10420 IVPASS = IVPASS + 1 07060361 ! 710: WRITE (NUVI, 80002) IVTNUM 07070361 ! 711: GO TO 0421 07080361 ! 712: 20420 IVFAIL = IVFAIL + 1 07090361 ! 713: IVCORR = -6 07100361 ! 714: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 07110361 ! 715: 0421 CONTINUE 07120361 ! 716: CT043* TEST 43 VALUES NOT EQUAL, BOTH NEGATIVE 07130361 ! 717: IVTNUM = 43 07140361 ! 718: RHBVS = -7.125 07150361 ! 719: RHDVS = -5.125 07160361 ! 720: IHAVI = MAX1(RHBVS, RHDVS) 07170361 ! 721: IF (IHAVI + 5) 20430, 10430, 20430 07180361 ! 722: 10430 IVPASS = IVPASS + 1 07190361 ! 723: WRITE (NUVI, 80002) IVTNUM 07200361 ! 724: GO TO 0431 07210361 ! 725: 20430 IVFAIL = IVFAIL + 1 07220361 ! 726: IVCORR = -5 07230361 ! 727: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 07240361 ! 728: 0431 CONTINUE 07250361 ! 729: CT044* TEST 44 1ST VALUE NON-ZERO, 2ND ZERO PRECEDED BY A MINUS SIGN 07260361 ! 730: IVTNUM = 44 07270361 ! 731: RHDVS = 5.625 07280361 ! 732: RHEVS = 0.0 07290361 ! 733: IHAVI = MAX1(RHDVS, -RHEVS) 07300361 ! 734: IF (IHAVI - 5) 20440, 10440, 20440 07310361 ! 735: 10440 IVPASS = IVPASS + 1 07320361 ! 736: WRITE (NUVI, 80002) IVTNUM 07330361 ! 737: GO TO 0441 07340361 ! 738: 20440 IVFAIL = IVFAIL + 1 07350361 ! 739: IVCORR = 5 07360361 ! 740: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 07370361 ! 741: 0441 CONTINUE 07380361 ! 742: CT045* TEST 45 EXPRESSIONS PRESENTED TO FUNCTION 07390361 ! 743: IVTNUM = 45 07400361 ! 744: RHDVS = 3.5 07410361 ! 745: RHEVS = 4.0 07420361 ! 746: IHAVI = MAX1(RHDVS + RHEVS, -RHEVS - RHDVS) 07430361 ! 747: IF (IHAVI - 7) 20450, 10450, 20450 07440361 ! 748: 10450 IVPASS = IVPASS + 1 07450361 ! 749: WRITE (NUVI, 80002) IVTNUM 07460361 ! 750: GO TO 0451 07470361 ! 751: 20450 IVFAIL = IVFAIL + 1 07480361 ! 752: IVCORR = 7 07490361 ! 753: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 07500361 ! 754: 0451 CONTINUE 07510361 ! 755: CT046* TEST 46 3 ARGUMENTS 07520361 ! 756: IVTNUM = 46 07530361 ! 757: RHBVS = 0.0 07540361 ! 758: RHCVS = 4.0 07550361 ! 759: RHDVS = 0.0 07560361 ! 760: IHAVI = MAX1(RHBVS, -RHCVS, RHDVS) 07570361 ! 761: IF (IHAVI - 0) 20460, 10460, 20460 07580361 ! 762: 10460 IVPASS = IVPASS + 1 07590361 ! 763: WRITE (NUVI, 80002) IVTNUM 07600361 ! 764: GO TO 0461 07610361 ! 765: 20460 IVFAIL = IVFAIL + 1 07620361 ! 766: IVCORR = 0 07630361 ! 767: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 07640361 ! 768: 0461 CONTINUE 07650361 ! 769: CT047* TEST 47 4 ARGUMENTS 07660361 ! 770: IVTNUM = 47 07670361 ! 771: RHBVS = 3.49 07680361 ! 772: RHCVS = 0.0 07690361 ! 773: RHDVS = 3.5 07700361 ! 774: IHAVI = MAX1(RHDVS, RHBVS, -RHBVS, RHCVS) 07710361 ! 775: IF (IHAVI - 3) 20470, 10470, 20470 07720361 ! 776: 10470 IVPASS = IVPASS + 1 07730361 ! 777: WRITE (NUVI, 80002) IVTNUM 07740361 ! 778: GO TO 0471 07750361 ! 779: 20470 IVFAIL = IVFAIL + 1 07760361 ! 780: IVCORR = 3 07770361 ! 781: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 07780361 ! 782: 0471 CONTINUE 07790361 ! 783: CT048* TEST 48 5 ARGUMENTS 07800361 ! 784: IVTNUM = 48 07810361 ! 785: RHDVS = 3.5 07820361 ! 786: RHEVS = 4.5 07830361 ! 787: IHAVI = MAX1(RHDVS, -RHDVS, -RHEVS, +RHDVS, RHEVS) 07840361 ! 788: IF (IHAVI - 4) 20480, 10480, 20480 07850361 ! 789: 10480 IVPASS = IVPASS + 1 07860361 ! 790: WRITE (NUVI, 80002) IVTNUM 07870361 ! 791: GO TO 0481 07880361 ! 792: 20480 IVFAIL = IVFAIL + 1 07890361 ! 793: IVCORR = 4 07900361 ! 794: WRITE (NUVI, 80010) IVTNUM, IHAVI, IVCORR 07910361 ! 795: 0481 CONTINUE 07920361 ! 796: C***** 07930361 ! 797: CBB** ********************** BBCSUM0 **********************************07940361 ! 798: C**** WRITE OUT TEST SUMMARY 07950361 ! 799: C**** 07960361 ! 800: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 07970361 ! 801: WRITE (I02, 90004) 07980361 ! 802: WRITE (I02, 90014) 07990361 ! 803: WRITE (I02, 90004) 08000361 ! 804: WRITE (I02, 90020) IVPASS 08010361 ! 805: WRITE (I02, 90022) IVFAIL 08020361 ! 806: WRITE (I02, 90024) IVDELE 08030361 ! 807: WRITE (I02, 90026) IVINSP 08040361 ! 808: WRITE (I02, 90028) IVTOTN, IVTOTL 08050361 ! 809: CBE** ********************** BBCSUM0 **********************************08060361 ! 810: CBB** ********************** BBCFOOT0 **********************************08070361 ! 811: C**** WRITE OUT REPORT FOOTINGS 08080361 ! 812: C**** 08090361 ! 813: WRITE (I02,90016) ZPROG, ZPROG 08100361 ! 814: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 08110361 ! 815: WRITE (I02,90019) 08120361 ! 816: CBE** ********************** BBCFOOT0 **********************************08130361 ! 817: CBB** ********************** BBCFMT0A **********************************08140361 ! 818: C**** FORMATS FOR TEST DETAIL LINES 08150361 ! 819: C**** 08160361 ! 820: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 08170361 ! 821: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 08180361 ! 822: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 08190361 ! 823: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 08200361 ! 824: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 08210361 ! 825: 1I6,/,1H ,15X,10HCORRECT= ,I6) 08220361 ! 826: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 08230361 ! 827: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 08240361 ! 828: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 08250361 ! 829: 1A21,/,1H ,16X,10HCORRECT= ,A21) 08260361 ! 830: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 08270361 ! 831: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 08280361 ! 832: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 08290361 ! 833: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 08300361 ! 834: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 08310361 ! 835: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 08320361 ! 836: 80050 FORMAT (1H ,48X,A31) 08330361 ! 837: CBE** ********************** BBCFMT0A **********************************08340361 ! 838: CBB** ********************** BBCFMT0B **********************************08350361 ! 839: C**** FORMAT STATEMENTS FOR PAGE HEADERS 08360361 ! 840: C**** 08370361 ! 841: 90002 FORMAT (1H1) 08380361 ! 842: 90004 FORMAT (1H ) 08390361 ! 843: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 08400361 ! 844: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08410361 ! 845: 90008 FORMAT (1H ,21X,A13,A17) 08420361 ! 846: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 08430361 ! 847: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 08440361 ! 848: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 08450361 ! 849: 1 7X,7HREMARKS,24X) 08460361 ! 850: 90014 FORMAT (1H ,46H----------------------------------------------, 08470361 ! 851: 1 33H---------------------------------) 08480361 ! 852: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 08490361 ! 853: C**** 08500361 ! 854: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 08510361 ! 855: C**** 08520361 ! 856: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 08530361 ! 857: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 08540361 ! 858: 1 A13) 08550361 ! 859: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 08560361 ! 860: C**** 08570361 ! 861: C**** FORMAT STATEMENTS FOR RUN SUMMARY 08580361 ! 862: C**** 08590361 ! 863: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 08600361 ! 864: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 08610361 ! 865: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 08620361 ! 866: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 08630361 ! 867: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 08640361 ! 868: CBE** ********************** BBCFMT0B **********************************08650361 ! 869: C***** 08660361 ! 870: C***** END OF TEST SEGMENT 165 08670361 ! 871: STOP 08680361 ! 872: END 08690361 ! 873: 08700361
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.