![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM355.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 FM355.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***********************************************************************00010355 ! 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 00020355 ! 6: C***** FM355 XAINT - (154) 00030355 ! 7: C***** 00040355 ! 8: C***********************************************************************00050355 ! 9: C***** GENERAL PURPOSE SUBSET REF00060355 ! 10: C***** TEST INTRINSIC FUNCTIONS AINT, ANINT, NINT 15.3 00070355 ! 11: C***** TRUNCATION (SIGN OF A * LARGEST INTEGER LE ABS(A) ) (TABLE 5)00080355 ! 12: C***** 00090355 ! 13: C***** GENERAL COMMENTS 00100355 ! 14: C***** FLOAT FUNCTION ASSUMED WORKING 00110355 ! 15: C***** 00120355 ! 16: CBB** ********************** BBCCOMNT **********************************00130355 ! 17: C**** 00140355 ! 18: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150355 ! 19: C**** VERSION 2.0 00160355 ! 20: C**** 00170355 ! 21: C**** 00180355 ! 22: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190355 ! 23: C**** GENERAL SERVICES ADMINISTRATION 00200355 ! 24: C**** FEDERAL SOFTWARE TESTING CENTER 00210355 ! 25: C**** 5203 LEESBURG PIKE, SUITE 1100 00220355 ! 26: C**** FALLS CHURCH, VA. 22041 00230355 ! 27: C**** 00240355 ! 28: C**** (703) 756-6153 00250355 ! 29: C**** 00260355 ! 30: CBE** ********************** BBCCOMNT **********************************00270355 ! 31: CBB** ********************** BBCINITA **********************************00280355 ! 32: C**** SPECIFICATION STATEMENTS 00290355 ! 33: C**** 00300355 ! 34: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00310355 ! 35: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00320355 ! 36: CBE** ********************** BBCINITA **********************************00330355 ! 37: CBB** ********************** BBCINITB **********************************00340355 ! 38: C**** INITIALIZE SECTION 00350355 ! 39: DATA ZVERS, ZVERSD, ZDATE 00360355 ! 40: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00370355 ! 41: DATA ZCOMPL, ZNAME, ZTAPE 00380355 ! 42: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00390355 ! 43: DATA ZPROJ, ZTAPED, ZPROG 00400355 ! 44: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00410355 ! 45: DATA REMRKS /' '/ 00420355 ! 46: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00430355 ! 47: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00440355 ! 48: C**** 00450355 ! 49: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00460355 ! 50: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00470355 ! 51: CZ03 ZPROG = 'PROGRAM NAME' 00480355 ! 52: ZDATE = '07-Nov-85 ' *RP ! 53: ZCOMPL = 'CCI 5.2 ' *RP ! 54: ZPROJ = 'TC-85- -410' *RP ! 55: ZNAME = ' ' *RP ! 56: ZTAPE = ' ' *RP ! 57: ZTAPED = '850703 ' *RP ! 58: C 00550355 ! 59: IVPASS = 0 00560355 ! 60: IVFAIL = 0 00570355 ! 61: IVDELE = 0 00580355 ! 62: IVINSP = 0 00590355 ! 63: IVTOTL = 0 00600355 ! 64: IVTOTN = 0 00610355 ! 65: ICZERO = 0 00620355 ! 66: C 00630355 ! 67: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00640355 ! 68: I01 = 05 00650355 ! 69: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00660355 ! 70: I02 = 06 00670355 ! 71: C 00680355 ! 72: I01 = 5 00690355 ! 73: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00700355 ! 74: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00710355 ! 75: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00720355 ! 76: C 00730355 ! 77: I02 = 6 00740355 ! 78: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00750355 ! 79: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00760355 ! 80: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00770355 ! 81: C 00780355 ! 82: CBE** ********************** BBCINITB **********************************00790355 ! 83: NUVI = I02 00800355 ! 84: IVTOTL = 48 00810355 ! 85: ZPROG = 'FM355' 00820355 ! 86: CBB** ********************** BBCHED0A **********************************00830355 ! 87: C**** 00840355 ! 88: C**** WRITE REPORT TITLE 00850355 ! 89: C**** 00860355 ! 90: WRITE (I02, 90002) 00870355 ! 91: WRITE (I02, 90006) 00880355 ! 92: WRITE (I02, 90007) 00890355 ! 93: WRITE (I02, 90008) ZVERS, ZVERSD 00900355 ! 94: WRITE (I02, 90009) ZPROG, ZPROG 00910355 ! 95: WRITE (I02, 90010) ZDATE, ZCOMPL 00920355 ! 96: CBE** ********************** BBCHED0A **********************************00930355 ! 97: C***** 00940355 ! 98: C***** HEADER FOR SEGMENT 154 00950355 ! 99: WRITE (NUVI,15401) 00960355 ! 100: 15401 FORMAT (1H , // 2X,35HXAINT - (154) INTRINSIC FUNCTIONS--//10X,00970355 ! 101: 1 36HAINT, ANINT, NINT (TYPE CONVERSION) // 00980355 ! 102: 2 20H SUBSET REF. - 15.3) 00990355 ! 103: CBB** ********************** BBCHED0B **********************************01000355 ! 104: C**** WRITE DETAIL REPORT HEADERS 01010355 ! 105: C**** 01020355 ! 106: WRITE (I02,90004) 01030355 ! 107: WRITE (I02,90004) 01040355 ! 108: WRITE (I02,90013) 01050355 ! 109: WRITE (I02,90014) 01060355 ! 110: WRITE (I02,90015) IVTOTL 01070355 ! 111: CBE** ********************** BBCHED0B **********************************01080355 ! 112: C***** 01090355 ! 113: C***** TEST OF AINT 01100355 ! 114: C***** 01110355 ! 115: WRITE(NUVI, 15402) 01120355 ! 116: 15402 FORMAT (/ 8X, 12HTEST OF AINT) 01130355 ! 117: CT001* TEST 1 THE VALUE ZERO 01140355 ! 118: IVTNUM = 1 01150355 ! 119: RCBVS = 0.0 01160355 ! 120: RCAVS = AINT(RCBVS) 01170355 ! 121: IF (RCAVS + 0.00005) 20010, 10010, 40010 01180355 ! 122: 40010 IF (RCAVS - 0.00005) 10010, 10010, 20010 01190355 ! 123: 10010 IVPASS = IVPASS + 1 01200355 ! 124: WRITE (NUVI, 80002) IVTNUM 01210355 ! 125: GO TO 0011 01220355 ! 126: 20010 IVFAIL = IVFAIL + 1 01230355 ! 127: RVCORR = 0.0 01240355 ! 128: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 01250355 ! 129: 0011 CONTINUE 01260355 ! 130: CT002* TEST 2 ZERO PREFIXED WITH A MINUS SIGN 01270355 ! 131: IVTNUM = 2 01280355 ! 132: RCDVS = -0.0 01290355 ! 133: RCAVS = AINT(RCBVS) 01300355 ! 134: IF (RCAVS + 0.00005) 20020, 10020, 40020 01310355 ! 135: 40020 IF (RCAVS - 0.00005) 10020, 10020, 20020 01320355 ! 136: 10020 IVPASS = IVPASS + 1 01330355 ! 137: WRITE (NUVI, 80002) IVTNUM 01340355 ! 138: GO TO 0021 01350355 ! 139: 20020 IVFAIL = IVFAIL + 1 01360355 ! 140: RVCORR = -0.0 01370355 ! 141: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 01380355 ! 142: 0021 CONTINUE 01390355 ! 143: CT003* TEST 3 A VALUE IN (0,1) 01400355 ! 144: IVTNUM = 3 01410355 ! 145: RCDVS = 0.375 01420355 ! 146: RCAVS = AINT(RCBVS) 01430355 ! 147: IF (RCAVS + 0.00005) 20030, 10030, 40030 01440355 ! 148: 40030 IF (RCAVS - 0.00005) 10030, 10030, 20030 01450355 ! 149: 10030 IVPASS = IVPASS + 1 01460355 ! 150: WRITE (NUVI, 80002) IVTNUM 01470355 ! 151: GO TO 0031 01480355 ! 152: 20030 IVFAIL = IVFAIL + 1 01490355 ! 153: RVCORR = 0.0 01500355 ! 154: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 01510355 ! 155: 0031 CONTINUE 01520355 ! 156: CT004* TEST 4 THE VALUE 1 01530355 ! 157: IVTNUM = 4 01540355 ! 158: RCBVS = FLOAT(1) 01550355 ! 159: RCAVS = AINT(RCBVS) 01560355 ! 160: IF (RCAVS - 0.99995) 20040, 10040, 40040 01570355 ! 161: 40040 IF (RCAVS - 1.0001) 10040, 10040, 20040 01580355 ! 162: 10040 IVPASS = IVPASS + 1 01590355 ! 163: WRITE (NUVI, 80002) IVTNUM 01600355 ! 164: GO TO 0041 01610355 ! 165: 20040 IVFAIL = IVFAIL + 1 01620355 ! 166: RVCORR = 1.0 01630355 ! 167: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 01640355 ! 168: 0041 CONTINUE 01650355 ! 169: CT005* TEST 5 AN INTEGRAL VALUE OTHER THAN 0, 1 01660355 ! 170: IVTNUM = 5 01670355 ! 171: RCBVS = FLOAT(6) 01680355 ! 172: RCAVS = AINT(RCBVS) 01690355 ! 173: IF (RCAVS - 5.9997) 20050, 10050, 40050 01700355 ! 174: 40050 IF (RCAVS - 6.0003) 10050, 10050, 20050 01710355 ! 175: 10050 IVPASS = IVPASS + 1 01720355 ! 176: WRITE (NUVI, 80002) IVTNUM 01730355 ! 177: GO TO 0051 01740355 ! 178: 20050 IVFAIL = IVFAIL + 1 01750355 ! 179: RVCORR = 6.0 01760355 ! 180: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 01770355 ! 181: 0051 CONTINUE 01780355 ! 182: CT006* TEST 6 A VALUE IN (X,X+1) 01790355 ! 183: IVTNUM = 6 01800355 ! 184: RCBVS = 3.75 01810355 ! 185: RCAVS = AINT(RCBVS) 01820355 ! 186: IF (RCAVS - 2.9998) 20060, 10060, 40060 01830355 ! 187: 40060 IF (RCAVS - 3.0002) 10060, 10060, 20060 01840355 ! 188: 10060 IVPASS = IVPASS + 1 01850355 ! 189: WRITE (NUVI, 80002) IVTNUM 01860355 ! 190: GO TO 0061 01870355 ! 191: 20060 IVFAIL = IVFAIL + 1 01880355 ! 192: RVCORR = 3.0 01890355 ! 193: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 01900355 ! 194: 0061 CONTINUE 01910355 ! 195: CT007* TEST 7 A NEGATIVE VALUE WITH MAGNITUDE IN (0,1) 01920355 ! 196: IVTNUM = 7 01930355 ! 197: RCBVS = -0.375 01940355 ! 198: RCAVS = AINT(RCBVS) 01950355 ! 199: IF (RCAVS + 0.00005) 20070, 10070, 40070 01960355 ! 200: 40070 IF (RCAVS - 0.00005) 10070, 10070, 20070 01970355 ! 201: 10070 IVPASS = IVPASS + 1 01980355 ! 202: WRITE (NUVI, 80002) IVTNUM 01990355 ! 203: GO TO 0071 02000355 ! 204: 20070 IVFAIL = IVFAIL + 1 02010355 ! 205: RVCORR = 0.0 02020355 ! 206: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 02030355 ! 207: 0071 CONTINUE 02040355 ! 208: CT008* TEST 8 THE VALUE -1 02050355 ! 209: IVTNUM = 8 02060355 ! 210: RCBVS = FLOAT(-1) 02070355 ! 211: RCAVS = AINT(RCBVS) 02080355 ! 212: IF (RCAVS + 1.0001) 20080, 10080, 40080 02090355 ! 213: 40080 IF (RCAVS + 0.99995) 10080, 10080, 20080 02100355 ! 214: 10080 IVPASS = IVPASS + 1 02110355 ! 215: WRITE (NUVI, 80002) IVTNUM 02120355 ! 216: GO TO 0081 02130355 ! 217: 20080 IVFAIL = IVFAIL + 1 02140355 ! 218: RVCORR = -1.0 02150355 ! 219: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 02160355 ! 220: 0081 CONTINUE 02170355 ! 221: CT009* TEST 9 A NEGATIVE INTEGRAL VALUE 02180355 ! 222: IVTNUM = 9 02190355 ! 223: RCBVS = FLOAT(-6) 02200355 ! 224: RCAVS = AINT(RCBVS) 02210355 ! 225: IF (RCAVS + 6.0003) 20090, 10090, 40090 02220355 ! 226: 40090 IF (RCAVS + 5.9997) 10090, 10090, 20090 02230355 ! 227: 10090 IVPASS = IVPASS + 1 02240355 ! 228: WRITE (NUVI, 80002) IVTNUM 02250355 ! 229: GO TO 0091 02260355 ! 230: 20090 IVFAIL = IVFAIL + 1 02270355 ! 231: RVCORR = -6.0 02280355 ! 232: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 02290355 ! 233: 0091 CONTINUE 02300355 ! 234: CT010* TEST 10 A NEGATIVE VALUE WITH MAGNITUDE IN (X,X+1) 02310355 ! 235: IVTNUM = 10 02320355 ! 236: RCBVS = -3.75 02330355 ! 237: RCAVS = AINT(RCBVS) 02340355 ! 238: IF (RCAVS + 3.0002) 20100, 10100, 40100 02350355 ! 239: 40100 IF (RCAVS + 2.9998) 10100, 10100, 20100 02360355 ! 240: 10100 IVPASS = IVPASS + 1 02370355 ! 241: WRITE (NUVI, 80002) IVTNUM 02380355 ! 242: GO TO 0101 02390355 ! 243: 20100 IVFAIL = IVFAIL + 1 02400355 ! 244: RVCORR = -3.0 02410355 ! 245: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 02420355 ! 246: 0101 CONTINUE 02430355 ! 247: CT011* TEST 11 AN ARITHMETIC EXPRESSION PRESENTED TO AINT 02440355 ! 248: IVTNUM = 11 02450355 ! 249: RCBVS = 3.25 02460355 ! 250: RCDVS = 3.0 02470355 ! 251: RCAVS = AINT(FLOAT(25) + RCDVS * RCBVS) 02480355 ! 252: IF (RCAVS - 33.998) 20110, 10110, 40110 02490355 ! 253: 40110 IF (RCAVS - 34.002) 10110, 10110, 20110 02500355 ! 254: 10110 IVPASS = IVPASS + 1 02510355 ! 255: WRITE (NUVI, 80002) IVTNUM 02520355 ! 256: GO TO 0111 02530355 ! 257: 20110 IVFAIL = IVFAIL + 1 02540355 ! 258: RVCORR = 34.0 02550355 ! 259: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 02560355 ! 260: 0111 CONTINUE 02570355 ! 261: CT012* TEST 12 AN ARGUMENT OF LOW MAGNITUDE 02580355 ! 262: IVTNUM = 12 02590355 ! 263: RCBVS = 3.7521E-36 02600355 ! 264: RCAVS = AINT(RCBVS) 02610355 ! 265: IF (RCAVS + 0.00005) 20120, 10120, 40120 02620355 ! 266: 40120 IF (RCAVS - 0.00005) 10120, 10120, 20120 02630355 ! 267: 10120 IVPASS = IVPASS + 1 02640355 ! 268: WRITE (NUVI, 80002) IVTNUM 02650355 ! 269: GO TO 0121 02660355 ! 270: 20120 IVFAIL = IVFAIL + 1 02670355 ! 271: RVCORR = 0.0 02680355 ! 272: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 02690355 ! 273: 0121 CONTINUE 02700355 ! 274: C***** 02710355 ! 275: WRITE(NUVI, 90002) 02720355 ! 276: WRITE(NUVI, 90013) 02730355 ! 277: WRITE(NUVI, 90014) 02740355 ! 278: C***** 02750355 ! 279: C***** TEST OF ANINT 02760355 ! 280: C***** 02770355 ! 281: WRITE(NUVI, 15404) 02780355 ! 282: 15404 FORMAT (/ 08X, 13HTEST OF ANINT) 02790355 ! 283: C***** 02800355 ! 284: CT013* TEST 13 THE VALUE ZERO 02810355 ! 285: IVTNUM = 13 02820355 ! 286: RCBVS = 0.0 02830355 ! 287: RCAVS = ANINT(RCBVS) 02840355 ! 288: IF (RCAVS + 0.00005) 20130, 10130, 40130 02850355 ! 289: 40130 IF (RCAVS - 0.00005) 10130, 10130, 20130 02860355 ! 290: 10130 IVPASS = IVPASS + 1 02870355 ! 291: WRITE (NUVI, 80002) IVTNUM 02880355 ! 292: GO TO 0131 02890355 ! 293: 20130 IVFAIL = IVFAIL + 1 02900355 ! 294: RVCORR = 0.0 02910355 ! 295: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 02920355 ! 296: 0131 CONTINUE 02930355 ! 297: CT014* TEST 14 THE VALUE ZERO PREFIXED WITH A MINUS SIGN 02940355 ! 298: IVTNUM = 14 02950355 ! 299: RCDVS = 0.0 02960355 ! 300: RCAVS = ANINT(-RCBVS) 02970355 ! 301: IF (RCAVS + 0.00005) 20140, 10140, 40140 02980355 ! 302: 40140 IF (RCAVS - 0.00005) 10140, 10140, 20140 02990355 ! 303: 10140 IVPASS = IVPASS + 1 03000355 ! 304: WRITE (NUVI, 80002) IVTNUM 03010355 ! 305: GO TO 0141 03020355 ! 306: 20140 IVFAIL = IVFAIL + 1 03030355 ! 307: RVCORR = 0.0 03040355 ! 308: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 03050355 ! 309: 0141 CONTINUE 03060355 ! 310: CT015* TEST 15 A VALUE IN (0,.5) 03070355 ! 311: IVTNUM = 15 03080355 ! 312: RCBVS = 0.25 03090355 ! 313: RCAVS = ANINT(RCBVS) 03100355 ! 314: IF (RCAVS + 0.00005) 20150, 10150, 40150 03110355 ! 315: 40150 IF (RCAVS - 0.00005) 10150, 10150, 20150 03120355 ! 316: 10150 IVPASS = IVPASS + 1 03130355 ! 317: WRITE (NUVI, 80002) IVTNUM 03140355 ! 318: GO TO 0151 03150355 ! 319: 20150 IVFAIL = IVFAIL + 1 03160355 ! 320: RVCORR = 0.0 03170355 ! 321: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 03180355 ! 322: 0151 CONTINUE 03190355 ! 323: CT016* TEST 16 THE VALUE 0.5 03200355 ! 324: IVTNUM = 16 03210355 ! 325: RCBVS = FLOAT(1) / FLOAT(2) 03220355 ! 326: RCAVS = ANINT(RCBVS) 03230355 ! 327: IF (RCAVS - 0.99995) 20160, 10160, 40160 03240355 ! 328: 40160 IF (RCAVS - 1.0001) 10160, 10160, 20160 03250355 ! 329: 10160 IVPASS = IVPASS + 1 03260355 ! 330: WRITE (NUVI, 80002) IVTNUM 03270355 ! 331: GO TO 0161 03280355 ! 332: 20160 IVFAIL = IVFAIL + 1 03290355 ! 333: RVCORR = 1.0 03300355 ! 334: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 03310355 ! 335: 0161 CONTINUE 03320355 ! 336: CT017* TEST 17 A VALUE IN (.5,1) 03330355 ! 337: IVTNUM = 17 03340355 ! 338: RCBVS = 0.75 03350355 ! 339: RCAVS = ANINT(RCBVS) 03360355 ! 340: IF (RCAVS - 0.99995) 20170, 10170, 40170 03370355 ! 341: 40170 IF (RCAVS - 1.0001) 10170, 10170, 20170 03380355 ! 342: 10170 IVPASS = IVPASS + 1 03390355 ! 343: WRITE (NUVI, 80002) IVTNUM 03400355 ! 344: GO TO 0171 03410355 ! 345: 20170 IVFAIL = IVFAIL + 1 03420355 ! 346: RVCORR = 1.0 03430355 ! 347: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 03440355 ! 348: 0171 CONTINUE 03450355 ! 349: CT018* TEST 18 AN INTEGRAL VALUE OTHER THAN 0,1 03460355 ! 350: IVTNUM = 18 03470355 ! 351: RCBVS = FLOAT(5) 03480355 ! 352: RCAVS = ANINT(RCBVS) 03490355 ! 353: IF (RCAVS - 4.9997) 20180, 10180, 40180 03500355 ! 354: 40180 IF (RCAVS - 5.0003) 10180, 10180, 20180 03510355 ! 355: 10180 IVPASS = IVPASS + 1 03520355 ! 356: WRITE (NUVI, 80002) IVTNUM 03530355 ! 357: GO TO 0181 03540355 ! 358: 20180 IVFAIL = IVFAIL + 1 03550355 ! 359: RVCORR = 5.0 03560355 ! 360: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 03570355 ! 361: 0181 CONTINUE 03580355 ! 362: CT019* TEST 19 A VALUE IN (X,X+.5) 03590355 ! 363: IVTNUM = 19 03600355 ! 364: RCBVS = 10.46875 03610355 ! 365: RCAVS = ANINT(RCBVS) 03620355 ! 366: IF (RCAVS - 9.9995) 20190, 10190, 40190 03630355 ! 367: 40190 IF (RCAVS - 10.001) 10190, 10190, 20190 03640355 ! 368: 10190 IVPASS = IVPASS + 1 03650355 ! 369: WRITE (NUVI, 80002) IVTNUM 03660355 ! 370: GO TO 0191 03670355 ! 371: 20190 IVFAIL = IVFAIL + 1 03680355 ! 372: RVCORR = 10.0 03690355 ! 373: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 03700355 ! 374: 0191 CONTINUE 03710355 ! 375: CT020* TEST 20 A VALUE WITH FRACTIONAL PART OF 0.5 03720355 ! 376: IVTNUM = 20 03730355 ! 377: RCBVS = FLOAT(16) - FLOAT(1) / FLOAT(2) 03740355 ! 378: RCAVS = ANINT(RCBVS) 03750355 ! 379: IF (RCAVS - 15.999) 20200, 10200, 40200 03760355 ! 380: 40200 IF (RCAVS - 16.001) 10200, 10200, 20200 03770355 ! 381: 10200 IVPASS = IVPASS + 1 03780355 ! 382: WRITE (NUVI, 80002) IVTNUM 03790355 ! 383: GO TO 0201 03800355 ! 384: 20200 IVFAIL = IVFAIL + 1 03810355 ! 385: RVCORR = 16.0 03820355 ! 386: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 03830355 ! 387: 0201 CONTINUE 03840355 ! 388: CT021* TEST 21 A VALUE IN (X+.5,X+1) 03850355 ! 389: IVTNUM = 21 03860355 ! 390: RCBVS = 27.96875 03870355 ! 391: RCAVS = ANINT(RCBVS) 03880355 ! 392: IF (RCAVS - 27.998) 20210, 10210, 40210 03890355 ! 393: 40210 IF (RCAVS - 28.002) 10210, 10210, 20210 03900355 ! 394: 10210 IVPASS = IVPASS + 1 03910355 ! 395: WRITE (NUVI, 80002) IVTNUM 03920355 ! 396: GO TO 0211 03930355 ! 397: 20210 IVFAIL = IVFAIL + 1 03940355 ! 398: RVCORR = 28.0 03950355 ! 399: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 03960355 ! 400: 0211 CONTINUE 03970355 ! 401: CT022* TEST 22 A NEGATIVE VALUE WITH MAGNITUDE IN (0,.5) 03980355 ! 402: IVTNUM = 22 03990355 ! 403: RCBVS = -0.25 04000355 ! 404: RCAVS = ANINT(RCBVS) 04010355 ! 405: IF (RCAVS + 0.00005) 20220, 10220, 40220 04020355 ! 406: 40220 IF (RCAVS - 0.00005) 10220, 10220, 20220 04030355 ! 407: 10220 IVPASS = IVPASS + 1 04040355 ! 408: WRITE (NUVI, 80002) IVTNUM 04050355 ! 409: GO TO 0221 04060355 ! 410: 20220 IVFAIL = IVFAIL + 1 04070355 ! 411: RVCORR = -0.0 04080355 ! 412: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 04090355 ! 413: 0221 CONTINUE 04100355 ! 414: CT023* TEST 23 THE VALUE -0.5 04110355 ! 415: IVTNUM = 23 04120355 ! 416: RCBVS = FLOAT(-1) / FLOAT(2) 04130355 ! 417: RCAVS = ANINT(RCBVS) 04140355 ! 418: IF (RCAVS + 1.0001) 20230, 10230, 40230 04150355 ! 419: 40230 IF (RCAVS + 0.99995) 10230, 10230, 20230 04160355 ! 420: 10230 IVPASS = IVPASS + 1 04170355 ! 421: WRITE (NUVI, 80002) IVTNUM 04180355 ! 422: GO TO 0231 04190355 ! 423: 20230 IVFAIL = IVFAIL + 1 04200355 ! 424: RVCORR = -1.0 04210355 ! 425: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 04220355 ! 426: 0231 CONTINUE 04230355 ! 427: CT024* TEST 24 A NEGATIVE VALUE WITH MAGNITUDE IN (.5,1) 04240355 ! 428: IVTNUM = 24 04250355 ! 429: RCBVS = -0.75 04260355 ! 430: RCAVS = ANINT(RCBVS) 04270355 ! 431: IF (RCAVS + 1.0001) 20240, 10240, 40240 04280355 ! 432: 40240 IF (RCAVS + 0.99995) 10240, 10240, 20240 04290355 ! 433: 10240 IVPASS = IVPASS + 1 04300355 ! 434: WRITE (NUVI, 80002) IVTNUM 04310355 ! 435: GO TO 0241 04320355 ! 436: 20240 IVFAIL = IVFAIL + 1 04330355 ! 437: RVCORR = -1.0 04340355 ! 438: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 04350355 ! 439: 0241 CONTINUE 04360355 ! 440: CT025* TEST 25 A NEGATIVE INTEGRAL VALUE 04370355 ! 441: IVTNUM = 25 04380355 ! 442: RCBVS = FLOAT(-5) 04390355 ! 443: RCAVS = ANINT(RCBVS) 04400355 ! 444: IF (RCAVS + 5.0003) 20250, 10250, 40250 04410355 ! 445: 40250 IF (RCAVS + 4.9997) 10250, 10250, 20250 04420355 ! 446: 10250 IVPASS = IVPASS + 1 04430355 ! 447: WRITE (NUVI, 80002) IVTNUM 04440355 ! 448: GO TO 0251 04450355 ! 449: 20250 IVFAIL = IVFAIL + 1 04460355 ! 450: RVCORR = -5.0 04470355 ! 451: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 04480355 ! 452: 0251 CONTINUE 04490355 ! 453: CT026* TEST 26 A NEGATIVE VALUE WITH MAGNITUDE IN (X,X+.5) 04500355 ! 454: IVTNUM = 26 04510355 ! 455: RCBVS = -10.46875 04520355 ! 456: RCAVS = ANINT(RCBVS) 04530355 ! 457: IF (RCAVS + 10.001) 20260, 10260, 40260 04540355 ! 458: 40260 IF (RCAVS + 9.9995) 10260, 10260, 20260 04550355 ! 459: 10260 IVPASS = IVPASS + 1 04560355 ! 460: WRITE (NUVI, 80002) IVTNUM 04570355 ! 461: GO TO 0261 04580355 ! 462: 20260 IVFAIL = IVFAIL + 1 04590355 ! 463: RVCORR = -10.0 04600355 ! 464: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 04610355 ! 465: 0261 CONTINUE 04620355 ! 466: CT027* TEST 27 A NEGATIVE VALUE WITH FRACTIONAL COMPONENT .5 04630355 ! 467: IVTNUM = 27 04640355 ! 468: RCBVS = FLOAT(-15) - FLOAT(1) / FLOAT(2) 04650355 ! 469: RCAVS = ANINT(RCBVS) 04660355 ! 470: IF (RCAVS + 16.001) 20270, 10270, 40270 04670355 ! 471: 40270 IF (RCAVS + 15.999) 10270, 10270, 20270 04680355 ! 472: 10270 IVPASS = IVPASS + 1 04690355 ! 473: WRITE (NUVI, 80002) IVTNUM 04700355 ! 474: GO TO 0271 04710355 ! 475: 20270 IVFAIL = IVFAIL + 1 04720355 ! 476: RVCORR = -16.0 04730355 ! 477: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 04740355 ! 478: 0271 CONTINUE 04750355 ! 479: CT028* TEST 28 A NEGATIVE VALUE WITH MAGNITUDE IN (X+.5,X+1) 04760355 ! 480: IVTNUM = 28 04770355 ! 481: RCBVS = -27.96875 04780355 ! 482: RCAVS = ANINT(RCBVS) 04790355 ! 483: IF (RCAVS + 28.002) 20280, 10280, 40280 04800355 ! 484: 40280 IF (RCAVS + 27.998) 10280, 10280, 20280 04810355 ! 485: 10280 IVPASS = IVPASS + 1 04820355 ! 486: WRITE (NUVI, 80002) IVTNUM 04830355 ! 487: GO TO 0281 04840355 ! 488: 20280 IVFAIL = IVFAIL + 1 04850355 ! 489: RVCORR = -28.0 04860355 ! 490: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 04870355 ! 491: 0281 CONTINUE 04880355 ! 492: CT029* TEST 29 AN ARITHMETIC EXPRESSION PRESENTED TO ANINT 04890355 ! 493: IVTNUM = 29 04900355 ! 494: RCDVS = 8.00 04910355 ! 495: RCBVS = 7.25 04920355 ! 496: RCAVS = ANINT(RCDVS - RCBVS) 04930355 ! 497: IF (RCAVS - 0.99995) 20290, 10290, 40290 04940355 ! 498: 40290 IF (RCAVS - 1.0001) 10290, 10290, 20290 04950355 ! 499: 10290 IVPASS = IVPASS + 1 04960355 ! 500: WRITE (NUVI, 80002) IVTNUM 04970355 ! 501: GO TO 0291 04980355 ! 502: 20290 IVFAIL = IVFAIL + 1 04990355 ! 503: RVCORR = 1.0 05000355 ! 504: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 05010355 ! 505: 0291 CONTINUE 05020355 ! 506: CT030* TEST 30 AN ARGUMENT OF LOW MAGNITUDE 05030355 ! 507: IVTNUM = 30 05040355 ! 508: RCBVS = -5.9876E-35 05050355 ! 509: RCAVS = ANINT(RCBVS) 05060355 ! 510: IF (RCAVS + 0.00005) 20300, 10300, 40300 05070355 ! 511: 40300 IF (RCAVS - 0.00005) 10300, 10300, 20300 05080355 ! 512: 10300 IVPASS = IVPASS + 1 05090355 ! 513: WRITE (NUVI, 80002) IVTNUM 05100355 ! 514: GO TO 0301 05110355 ! 515: 20300 IVFAIL = IVFAIL + 1 05120355 ! 516: RVCORR = 0.0 05130355 ! 517: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 05140355 ! 518: 0301 CONTINUE 05150355 ! 519: C***** 05160355 ! 520: WRITE(NUVI, 90002) 05170355 ! 521: WRITE(NUVI, 90013) 05180355 ! 522: WRITE(NUVI, 90014) 05190355 ! 523: C***** 05200355 ! 524: C***** TEST OF NINT 05210355 ! 525: C***** 05220355 ! 526: WRITE(NUVI, 15405) 05230355 ! 527: 15405 FORMAT (/ 8X, 12HTEST OF NINT) 05240355 ! 528: C***** 05250355 ! 529: CT031* TEST 31 THE VALUE ZERO 05260355 ! 530: IVTNUM = 31 05270355 ! 531: RCBVS = 0.0 05280355 ! 532: ICAVI = NINT(RCBVS) 05290355 ! 533: IF (ICAVI - 0) 20310, 10310, 20310 05300355 ! 534: 10310 IVPASS = IVPASS + 1 05310355 ! 535: WRITE (NUVI, 80002) IVTNUM 05320355 ! 536: GO TO 0311 05330355 ! 537: 20310 IVFAIL = IVFAIL + 1 05340355 ! 538: IVCORR = 0 05350355 ! 539: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 05360355 ! 540: 0311 CONTINUE 05370355 ! 541: CT032* TEST 32 ZERO PREFIXED WITH A MINUS SIGN 05380355 ! 542: IVTNUM = 32 05390355 ! 543: RCDVS = 0.0 05400355 ! 544: ICAVI = NINT(-RCDVS) 05410355 ! 545: IF (ICAVI - 0) 20320, 10320, 20320 05420355 ! 546: 10320 IVPASS = IVPASS + 1 05430355 ! 547: WRITE (NUVI, 80002) IVTNUM 05440355 ! 548: GO TO 0321 05450355 ! 549: 20320 IVFAIL = IVFAIL + 1 05460355 ! 550: IVCORR = 0 05470355 ! 551: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 05480355 ! 552: 0321 CONTINUE 05490355 ! 553: CT033* TEST 33 A VALUE IN (0,.5) 05500355 ! 554: IVTNUM = 33 05510355 ! 555: RCBVS = 0.25 05520355 ! 556: ICAVI = NINT(RCBVS) 05530355 ! 557: IF (ICAVI - 0) 20330, 10330, 20330 05540355 ! 558: 10330 IVPASS = IVPASS + 1 05550355 ! 559: WRITE (NUVI, 80002) IVTNUM 05560355 ! 560: GO TO 0331 05570355 ! 561: 20330 IVFAIL = IVFAIL + 1 05580355 ! 562: IVCORR = 0 05590355 ! 563: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 05600355 ! 564: 0331 CONTINUE 05610355 ! 565: CT034* TEST 34 THE VALUE 0.5 05620355 ! 566: IVTNUM = 34 05630355 ! 567: RCBVS = FLOAT(1) / FLOAT(2) 05640355 ! 568: ICAVI = NINT(RCBVS) 05650355 ! 569: IF (ICAVI - 1) 20340, 10340, 20340 05660355 ! 570: 10340 IVPASS = IVPASS + 1 05670355 ! 571: WRITE (NUVI, 80002) IVTNUM 05680355 ! 572: GO TO 0341 05690355 ! 573: 20340 IVFAIL = IVFAIL + 1 05700355 ! 574: IVCORR = 1 05710355 ! 575: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 05720355 ! 576: 0341 CONTINUE 05730355 ! 577: CT035* TEST 35 A VALUE IN (.5,1) 05740355 ! 578: IVTNUM = 35 05750355 ! 579: RCBVS = 0.75 05760355 ! 580: ICAVI = NINT(RCBVS) 05770355 ! 581: IF (ICAVI - 1) 20350, 10350, 20350 05780355 ! 582: 10350 IVPASS = IVPASS + 1 05790355 ! 583: WRITE (NUVI, 80002) IVTNUM 05800355 ! 584: GO TO 0351 05810355 ! 585: 20350 IVFAIL = IVFAIL + 1 05820355 ! 586: IVCORR = 1 05830355 ! 587: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 05840355 ! 588: 0351 CONTINUE 05850355 ! 589: CT036* TEST 36 AN INTEGRAL VALUE OTHER THAN 0, 1 05860355 ! 590: IVTNUM = 36 05870355 ! 591: RCBVS = FLOAT(5) 05880355 ! 592: ICAVI = NINT(RCBVS) 05890355 ! 593: IF (ICAVI - 5) 20360, 10360, 20360 05900355 ! 594: 10360 IVPASS = IVPASS + 1 05910355 ! 595: WRITE (NUVI, 80002) IVTNUM 05920355 ! 596: GO TO 0361 05930355 ! 597: 20360 IVFAIL = IVFAIL + 1 05940355 ! 598: IVCORR = 5 05950355 ! 599: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 05960355 ! 600: 0361 CONTINUE 05970355 ! 601: CT037* TEST 37 A VALUE IN (X,X+.5) 05980355 ! 602: IVTNUM = 37 05990355 ! 603: RCBVS = 10.46875 06000355 ! 604: ICAVI = NINT(RCBVS) 06010355 ! 605: IF (ICAVI - 10) 20370, 10370, 20370 06020355 ! 606: 10370 IVPASS = IVPASS + 1 06030355 ! 607: WRITE (NUVI, 80002) IVTNUM 06040355 ! 608: GO TO 0371 06050355 ! 609: 20370 IVFAIL = IVFAIL + 1 06060355 ! 610: IVCORR = 10 06070355 ! 611: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 06080355 ! 612: 0371 CONTINUE 06090355 ! 613: CT038* TEST 38 A VALUE WITH FRACTIONAL PART OF 0.5 06100355 ! 614: IVTNUM = 38 06110355 ! 615: RCBVS = FLOAT(15) + FLOAT(1) / FLOAT(2) 06120355 ! 616: ICAVI = NINT(RCBVS) 06130355 ! 617: IF (ICAVI - 16) 20380, 10380, 20380 06140355 ! 618: 10380 IVPASS = IVPASS + 1 06150355 ! 619: WRITE (NUVI, 80002) IVTNUM 06160355 ! 620: GO TO 0381 06170355 ! 621: 20380 IVFAIL = IVFAIL + 1 06180355 ! 622: IVCORR = 16 06190355 ! 623: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 06200355 ! 624: 0381 CONTINUE 06210355 ! 625: CT039* TEST 39 A VALUE IN (X+.5,X+1) 06220355 ! 626: IVTNUM = 39 06230355 ! 627: RCBVS = 27.96875 06240355 ! 628: ICAVI = NINT(RCBVS) 06250355 ! 629: IF (ICAVI - 28) 20390, 10390, 20390 06260355 ! 630: 10390 IVPASS = IVPASS + 1 06270355 ! 631: WRITE (NUVI, 80002) IVTNUM 06280355 ! 632: GO TO 0391 06290355 ! 633: 20390 IVFAIL = IVFAIL + 1 06300355 ! 634: IVCORR = 28 06310355 ! 635: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 06320355 ! 636: 0391 CONTINUE 06330355 ! 637: CT040* TEST 40 A NEGATIVE VALUE WITH MAGNITUDE IN (0.,5) 06340355 ! 638: IVTNUM = 40 06350355 ! 639: RCBVS = -0.25 06360355 ! 640: ICAVI = NINT(RCBVS) 06370355 ! 641: IF (ICAVI - 0) 20400, 10400, 20400 06380355 ! 642: 10400 IVPASS = IVPASS + 1 06390355 ! 643: WRITE (NUVI, 80002) IVTNUM 06400355 ! 644: GO TO 0401 06410355 ! 645: 20400 IVFAIL = IVFAIL + 1 06420355 ! 646: IVCORR = 0 06430355 ! 647: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 06440355 ! 648: 0401 CONTINUE 06450355 ! 649: CT041* TEST 41 THE VALUE -0.5 06460355 ! 650: IVTNUM = 41 06470355 ! 651: RCBVS = FLOAT(-1) / FLOAT(2) 06480355 ! 652: ICAVI = NINT(RCBVS) 06490355 ! 653: IF (ICAVI + 1) 20410, 10410, 20410 06500355 ! 654: 10410 IVPASS = IVPASS + 1 06510355 ! 655: WRITE (NUVI, 80002) IVTNUM 06520355 ! 656: GO TO 0411 06530355 ! 657: 20410 IVFAIL = IVFAIL + 1 06540355 ! 658: IVCORR = -1 06550355 ! 659: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 06560355 ! 660: 0411 CONTINUE 06570355 ! 661: CT042* TEST 42 A NEGATIVE VALUE WITH MAGNITUDE IN (.5,1) 06580355 ! 662: IVTNUM = 42 06590355 ! 663: RCBVS = -0.75 06600355 ! 664: ICAVI = NINT(RCBVS) 06610355 ! 665: IF (ICAVI + 1) 20420, 10420, 20420 06620355 ! 666: 10420 IVPASS = IVPASS + 1 06630355 ! 667: WRITE (NUVI, 80002) IVTNUM 06640355 ! 668: GO TO 0421 06650355 ! 669: 20420 IVFAIL = IVFAIL + 1 06660355 ! 670: IVCORR = -1 06670355 ! 671: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 06680355 ! 672: 0421 CONTINUE 06690355 ! 673: CT043* TEST 43 A NEGATIVE INTEGRAL VALUE 06700355 ! 674: IVTNUM = 43 06710355 ! 675: RCBVS = FLOAT(-5) 06720355 ! 676: ICAVI = NINT(RCBVS) 06730355 ! 677: IF (ICAVI + 5) 20430, 10430, 20430 06740355 ! 678: 10430 IVPASS = IVPASS + 1 06750355 ! 679: WRITE (NUVI, 80002) IVTNUM 06760355 ! 680: GO TO 0431 06770355 ! 681: 20430 IVFAIL = IVFAIL + 1 06780355 ! 682: IVCORR = -5 06790355 ! 683: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 06800355 ! 684: 0431 CONTINUE 06810355 ! 685: CT044* TEST 44 A NEGATIVE VALUE WITH MAGNITUDE IN (X,X+.5) 06820355 ! 686: IVTNUM = 44 06830355 ! 687: RCBVS = -10.46875 06840355 ! 688: ICAVI = NINT(RCBVS) 06850355 ! 689: IF (ICAVI + 10) 20440, 10440, 20440 06860355 ! 690: 10440 IVPASS = IVPASS + 1 06870355 ! 691: WRITE (NUVI, 80002) IVTNUM 06880355 ! 692: GO TO 0441 06890355 ! 693: 20440 IVFAIL = IVFAIL + 1 06900355 ! 694: IVCORR = -10 06910355 ! 695: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 06920355 ! 696: 0441 CONTINUE 06930355 ! 697: CT045* TEST 45 A NEGATIVE VALUE WITH FRACTIONAL COMPONENT 0.5 S106940355 ! 698: IVTNUM = 45 06950355 ! 699: RCBVS = FLOAT(-15) - FLOAT(1) / FLOAT(2) 06960355 ! 700: ICAVI = NINT(RCBVS) 06970355 ! 701: IF (ICAVI + 16) 20450, 10450, 20450 06980355 ! 702: 10450 IVPASS = IVPASS + 1 06990355 ! 703: WRITE (NUVI, 80002) IVTNUM 07000355 ! 704: GO TO 0451 07010355 ! 705: 20450 IVFAIL = IVFAIL + 1 07020355 ! 706: IVCORR = -16 07030355 ! 707: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 07040355 ! 708: 0451 CONTINUE 07050355 ! 709: CT046* TEST 46 A NEGATIVE VALUE WITH MAGNITUDE IN (X+.5,X+1) S107060355 ! 710: IVTNUM = 46 07070355 ! 711: RCBVS = -27.96875 07080355 ! 712: ICAVI = NINT(RCBVS) 07090355 ! 713: IF (ICAVI + 28) 20460, 10460, 20460 07100355 ! 714: 10460 IVPASS = IVPASS + 1 07110355 ! 715: WRITE (NUVI, 80002) IVTNUM 07120355 ! 716: GO TO 0461 07130355 ! 717: 20460 IVFAIL = IVFAIL + 1 07140355 ! 718: IVCORR = -28 07150355 ! 719: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 07160355 ! 720: 0461 CONTINUE 07170355 ! 721: CT047* TEST 47 AN ARITHMETIC EXPRESSION PRESENTED TO NINT S107180355 ! 722: IVTNUM = 47 07190355 ! 723: RCDVS = 8.00 07200355 ! 724: RCEVS = 7.25 07210355 ! 725: ICAVI = NINT(RCDVS - RCEVS) 07220355 ! 726: IF (ICAVI - 1) 20470, 10470, 20470 07230355 ! 727: 10470 IVPASS = IVPASS + 1 07240355 ! 728: WRITE (NUVI, 80002) IVTNUM 07250355 ! 729: GO TO 0471 07260355 ! 730: 20470 IVFAIL = IVFAIL + 1 07270355 ! 731: IVCORR = 1 07280355 ! 732: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 07290355 ! 733: 0471 CONTINUE 07300355 ! 734: CT048* TEST 48 AN ARGUMENT OF LOW MAGNITUDE 07310355 ! 735: IVTNUM = 48 07320355 ! 736: RCBVS = -5.9876E-33 07330355 ! 737: ICAVI = NINT(RCBVS) 07340355 ! 738: IF (ICAVI - 0) 20480, 10480, 20480 07350355 ! 739: 10480 IVPASS = IVPASS + 1 07360355 ! 740: WRITE (NUVI, 80002) IVTNUM 07370355 ! 741: GO TO 0481 07380355 ! 742: 20480 IVFAIL = IVFAIL + 1 07390355 ! 743: IVCORR = 0 07400355 ! 744: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 07410355 ! 745: 0481 CONTINUE 07420355 ! 746: C***** 07430355 ! 747: CBB** ********************** BBCSUM0 **********************************07440355 ! 748: C**** WRITE OUT TEST SUMMARY 07450355 ! 749: C**** 07460355 ! 750: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 07470355 ! 751: WRITE (I02, 90004) 07480355 ! 752: WRITE (I02, 90014) 07490355 ! 753: WRITE (I02, 90004) 07500355 ! 754: WRITE (I02, 90020) IVPASS 07510355 ! 755: WRITE (I02, 90022) IVFAIL 07520355 ! 756: WRITE (I02, 90024) IVDELE 07530355 ! 757: WRITE (I02, 90026) IVINSP 07540355 ! 758: WRITE (I02, 90028) IVTOTN, IVTOTL 07550355 ! 759: CBE** ********************** BBCSUM0 **********************************07560355 ! 760: CBB** ********************** BBCFOOT0 **********************************07570355 ! 761: C**** WRITE OUT REPORT FOOTINGS 07580355 ! 762: C**** 07590355 ! 763: WRITE (I02,90016) ZPROG, ZPROG 07600355 ! 764: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 07610355 ! 765: WRITE (I02,90019) 07620355 ! 766: CBE** ********************** BBCFOOT0 **********************************07630355 ! 767: CBB** ********************** BBCFMT0A **********************************07640355 ! 768: C**** FORMATS FOR TEST DETAIL LINES 07650355 ! 769: C**** 07660355 ! 770: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 07670355 ! 771: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 07680355 ! 772: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 07690355 ! 773: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 07700355 ! 774: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 07710355 ! 775: 1I6,/,1H ,15X,10HCORRECT= ,I6) 07720355 ! 776: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07730355 ! 777: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 07740355 ! 778: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07750355 ! 779: 1A21,/,1H ,16X,10HCORRECT= ,A21) 07760355 ! 780: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 07770355 ! 781: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 07780355 ! 782: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 07790355 ! 783: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 07800355 ! 784: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 07810355 ! 785: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 07820355 ! 786: 80050 FORMAT (1H ,48X,A31) 07830355 ! 787: CBE** ********************** BBCFMT0A **********************************07840355 ! 788: CBB** ********************** BBCFMT0B **********************************07850355 ! 789: C**** FORMAT STATEMENTS FOR PAGE HEADERS 07860355 ! 790: C**** 07870355 ! 791: 90002 FORMAT (1H1) 07880355 ! 792: 90004 FORMAT (1H ) 07890355 ! 793: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 07900355 ! 794: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 07910355 ! 795: 90008 FORMAT (1H ,21X,A13,A17) 07920355 ! 796: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 07930355 ! 797: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 07940355 ! 798: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 07950355 ! 799: 1 7X,7HREMARKS,24X) 07960355 ! 800: 90014 FORMAT (1H ,46H----------------------------------------------, 07970355 ! 801: 1 33H---------------------------------) 07980355 ! 802: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 07990355 ! 803: C**** 08000355 ! 804: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 08010355 ! 805: C**** 08020355 ! 806: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 08030355 ! 807: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 08040355 ! 808: 1 A13) 08050355 ! 809: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 08060355 ! 810: C**** 08070355 ! 811: C**** FORMAT STATEMENTS FOR RUN SUMMARY 08080355 ! 812: C**** 08090355 ! 813: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 08100355 ! 814: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 08110355 ! 815: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 08120355 ! 816: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 08130355 ! 817: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 08140355 ! 818: CBE** ********************** BBCFMT0B **********************************08150355 ! 819: C***** 08160355 ! 820: C***** END OF TEST SEGMENT 154 08170355 ! 821: STOP 08180355 ! 822: END 08190355 ! 823: 08200355
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.