![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM801.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 FM801.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***********************************************************************00010801 ! 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 00020801 ! 6: C***** FM801 YDINT - (155) 00030801 ! 7: C***** 00040801 ! 8: C***********************************************************************00050801 ! 9: C***** GENERAL PURPOSE ANS REF 00060801 ! 10: C***** TEST INTRINSIC FUNCTIONS DINT, DNINT, IDNINT 15.3 00070801 ! 11: C***** TRUNCATION (SIGN OF A * LARGEST INTEGER LE ABS(A) ) (TABLE 5)00080801 ! 12: C***** 00090801 ! 13: C***** GENERAL COMMENTS 00100801 ! 14: C***** FLOAT FUNCTION ASSUMED WORKING 00110801 ! 15: C***** 00120801 ! 16: CBB** ********************** BBCCOMNT **********************************00130801 ! 17: C**** 00140801 ! 18: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150801 ! 19: C**** VERSION 2.0 00160801 ! 20: C**** 00170801 ! 21: C**** 00180801 ! 22: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190801 ! 23: C**** GENERAL SERVICES ADMINISTRATION 00200801 ! 24: C**** FEDERAL SOFTWARE TESTING CENTER 00210801 ! 25: C**** 5203 LEESBURG PIKE, SUITE 1100 00220801 ! 26: C**** FALLS CHURCH, VA. 22041 00230801 ! 27: C**** 00240801 ! 28: C**** (703) 756-6153 00250801 ! 29: C**** 00260801 ! 30: CBE** ********************** BBCCOMNT **********************************00270801 ! 31: C***** 00280801 ! 32: C***** S P E C I F I C A T I O N S SEGMENT 155 00290801 ! 33: DOUBLE PRECISION DNAVD, DNBVD, DNDVD 00300801 ! 34: C***** 00310801 ! 35: CBB** ********************** BBCINITA **********************************00320801 ! 36: C**** SPECIFICATION STATEMENTS 00330801 ! 37: C**** 00340801 ! 38: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00350801 ! 39: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00360801 ! 40: CBE** ********************** BBCINITA **********************************00370801 ! 41: CBB** ********************** BBCINITB **********************************00380801 ! 42: C**** INITIALIZE SECTION 00390801 ! 43: DATA ZVERS, ZVERSD, ZDATE 00400801 ! 44: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00410801 ! 45: DATA ZCOMPL, ZNAME, ZTAPE 00420801 ! 46: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00430801 ! 47: DATA ZPROJ, ZTAPED, ZPROG 00440801 ! 48: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00450801 ! 49: DATA REMRKS /' '/ 00460801 ! 50: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470801 ! 51: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00480801 ! 52: C**** 00490801 ! 53: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500801 ! 54: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510801 ! 55: CZ03 ZPROG = 'PROGRAM NAME' 00520801 ! 56: ZDATE = '07-Nov-85 ' *RP ! 57: ZCOMPL = 'CCI 5.2 ' *RP ! 58: ZPROJ = 'TC-85- -410' *RP ! 59: ZNAME = ' ' *RP ! 60: ZTAPE = ' ' *RP ! 61: ZTAPED = '850703 ' *RP ! 62: C 00590801 ! 63: IVPASS = 0 00600801 ! 64: IVFAIL = 0 00610801 ! 65: IVDELE = 0 00620801 ! 66: IVINSP = 0 00630801 ! 67: IVTOTL = 0 00640801 ! 68: IVTOTN = 0 00650801 ! 69: ICZERO = 0 00660801 ! 70: C 00670801 ! 71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00680801 ! 72: I01 = 05 00690801 ! 73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00700801 ! 74: I02 = 06 00710801 ! 75: C 00720801 ! 76: I01 = 5 00730801 ! 77: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740801 ! 78: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00750801 ! 79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00760801 ! 80: C 00770801 ! 81: I02 = 6 00780801 ! 82: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00790801 ! 83: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00800801 ! 84: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00810801 ! 85: C 00820801 ! 86: CBE** ********************** BBCINITB **********************************00830801 ! 87: NUVI = I02 00840801 ! 88: IVTOTL = 45 00850801 ! 89: ZPROG = 'FM801' 00860801 ! 90: CBB** ********************** BBCHED0A **********************************00870801 ! 91: C**** 00880801 ! 92: C**** WRITE REPORT TITLE 00890801 ! 93: C**** 00900801 ! 94: WRITE (I02, 90002) 00910801 ! 95: WRITE (I02, 90006) 00920801 ! 96: WRITE (I02, 90007) 00930801 ! 97: WRITE (I02, 90008) ZVERS, ZVERSD 00940801 ! 98: WRITE (I02, 90009) ZPROG, ZPROG 00950801 ! 99: WRITE (I02, 90010) ZDATE, ZCOMPL 00960801 ! 100: CBE** ********************** BBCHED0A **********************************00970801 ! 101: C***** 00980801 ! 102: C***** HEADER FOR SEGMENT 155 00990801 ! 103: WRITE (NUVI,15501) 01000801 ! 104: 15501 FORMAT (1H , // 1X,35HYDINT - (155) INTRINSIC FUNCTIONS--//16X, 01010801 ! 105: 1 38HDINT, DNINT, IDNINT (TYPE CONVERSION) // 01020801 ! 106: 2 17H ANS REF. - 15.3) 01030801 ! 107: CBB** ********************** BBCHED0B **********************************01040801 ! 108: C**** WRITE DETAIL REPORT HEADERS 01050801 ! 109: C**** 01060801 ! 110: WRITE (I02,90004) 01070801 ! 111: WRITE (I02,90004) 01080801 ! 112: WRITE (I02,90013) 01090801 ! 113: WRITE (I02,90014) 01100801 ! 114: WRITE (I02,90015) IVTOTL 01110801 ! 115: CBE** ********************** BBCHED0B **********************************01120801 ! 116: C***** 01130801 ! 117: C***** TEST OF DINT 01140801 ! 118: C***** 01150801 ! 119: WRITE(NUVI, 15502) 01160801 ! 120: 15502 FORMAT(// 8X, 12HTEST OF DINT) 01170801 ! 121: CT001* TEST 1 THE VALUE ZERO 01180801 ! 122: IVTNUM = 1 01190801 ! 123: DNBVD = 0.0D0 01200801 ! 124: DNAVD = DINT(DNBVD) 01210801 ! 125: IF (DNAVD + 5.0D-10) 20010, 10010, 40010 01220801 ! 126: 40010 IF (DNAVD - 5.0D-10) 10010, 10010, 20010 01230801 ! 127: 10010 IVPASS = IVPASS + 1 01240801 ! 128: WRITE (NUVI, 80002) IVTNUM 01250801 ! 129: GO TO 0011 01260801 ! 130: 20010 IVFAIL = IVFAIL + 1 01270801 ! 131: DVCORR = 0.0D0 01280801 ! 132: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 01290801 ! 133: 0011 CONTINUE 01300801 ! 134: CT002* TEST 2 A VALUE IN (0,1) 01310801 ! 135: IVTNUM = 2 01320801 ! 136: DNBVD = 0.375D0 01330801 ! 137: DNAVD = DINT(DNBVD) 01340801 ! 138: IF (DNAVD + 5.0D-10) 20020, 10020, 40020 01350801 ! 139: 40020 IF (DNAVD - 5.0D-10) 10020, 10020, 20020 01360801 ! 140: 10020 IVPASS = IVPASS + 1 01370801 ! 141: WRITE (NUVI, 80002) IVTNUM 01380801 ! 142: GO TO 0021 01390801 ! 143: 20020 IVFAIL = IVFAIL + 1 01400801 ! 144: DVCORR = 0.0D0 01410801 ! 145: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 01420801 ! 146: 0021 CONTINUE 01430801 ! 147: CT003* TEST 3 THE VALUE 1 01440801 ! 148: IVTNUM = 3 01450801 ! 149: DNBVD = FLOAT(1) 01460801 ! 150: DNAVD = DINT(DNBVD) 01470801 ! 151: IF (DNAVD - 0.9999999995D0) 20030, 10030, 40030 01480801 ! 152: 40030 IF (DNAVD - 1.000000001D0) 10030, 10030, 20030 01490801 ! 153: 10030 IVPASS = IVPASS + 1 01500801 ! 154: WRITE (NUVI, 80002) IVTNUM 01510801 ! 155: GO TO 0031 01520801 ! 156: 20030 IVFAIL = IVFAIL + 1 01530801 ! 157: DVCORR = 1.0D0 01540801 ! 158: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 01550801 ! 159: 0031 CONTINUE 01560801 ! 160: CT004* TEST 4 AN INTEGRAL VALUE OTHER THAN 0, 1 01570801 ! 161: IVTNUM = 4 01580801 ! 162: DNBVD = FLOAT(6) 01590801 ! 163: DNAVD = DINT(DNBVD) 01600801 ! 164: IF (DNAVD - 5.999999997D0) 20040, 10040, 40040 01610801 ! 165: 40040 IF (DNAVD - 6.000000003D0) 10040, 10040, 20040 01620801 ! 166: 10040 IVPASS = IVPASS + 1 01630801 ! 167: WRITE (NUVI, 80002) IVTNUM 01640801 ! 168: GO TO 0041 01650801 ! 169: 20040 IVFAIL = IVFAIL + 1 01660801 ! 170: DVCORR = 6.0D0 01670801 ! 171: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 01680801 ! 172: 0041 CONTINUE 01690801 ! 173: CT005* TEST 5 A VALUE IN (X,X+1) 01700801 ! 174: IVTNUM = 5 01710801 ! 175: DNBVD = 0.375D1 01720801 ! 176: DNAVD = DINT(DNBVD) 01730801 ! 177: IF (DNAVD - 2.999999998D0) 20050, 10050, 40050 01740801 ! 178: 40050 IF (DNAVD - 3.000000002D0) 10050, 10050, 20050 01750801 ! 179: 10050 IVPASS = IVPASS + 1 01760801 ! 180: WRITE (NUVI, 80002) IVTNUM 01770801 ! 181: GO TO 0051 01780801 ! 182: 20050 IVFAIL = IVFAIL + 1 01790801 ! 183: DVCORR = 0.3D1 01800801 ! 184: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 01810801 ! 185: 0051 CONTINUE 01820801 ! 186: CT006* TEST 6 A NEGATIVE VALUE WITH MAGNITUDE IN (0,1) 01830801 ! 187: IVTNUM = 6 01840801 ! 188: DNBVD = -0.375D0 01850801 ! 189: DNAVD = DINT(DNBVD) 01860801 ! 190: IF (DNAVD + 5.0D-10) 20060, 10060, 40060 01870801 ! 191: 40060 IF (DNAVD - 5.0D-10) 10060, 10060, 20060 01880801 ! 192: 10060 IVPASS = IVPASS + 1 01890801 ! 193: WRITE (NUVI, 80002) IVTNUM 01900801 ! 194: GO TO 0061 01910801 ! 195: 20060 IVFAIL = IVFAIL + 1 01920801 ! 196: DVCORR = 0.0D0 01930801 ! 197: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 01940801 ! 198: 0061 CONTINUE 01950801 ! 199: CT007* TEST 7 THE VALUE -1 01960801 ! 200: IVTNUM = 7 01970801 ! 201: DNBVD = FLOAT(-1) 01980801 ! 202: DNAVD = DINT(DNBVD) 01990801 ! 203: IF (DNAVD + 1.000000001D0) 20070, 10070, 40070 02000801 ! 204: 40070 IF (DNAVD + 0.9999999995D0) 10070, 10070, 20070 02010801 ! 205: 10070 IVPASS = IVPASS + 1 02020801 ! 206: WRITE (NUVI, 80002) IVTNUM 02030801 ! 207: GO TO 0071 02040801 ! 208: 20070 IVFAIL = IVFAIL + 1 02050801 ! 209: DVCORR = -1.0D0 02060801 ! 210: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 02070801 ! 211: 0071 CONTINUE 02080801 ! 212: CT008* TEST 8 A NEGATIVE INTEGRAL VALUE 02090801 ! 213: IVTNUM = 8 02100801 ! 214: DNBVD = FLOAT(-6) 02110801 ! 215: DNAVD = DINT(DNBVD) 02120801 ! 216: IF (DNAVD + 6.000000003D0) 20080, 10080, 40080 02130801 ! 217: 40080 IF (DNAVD + 5.999999997D0) 10080, 10080, 20080 02140801 ! 218: 10080 IVPASS = IVPASS + 1 02150801 ! 219: WRITE (NUVI, 80002) IVTNUM 02160801 ! 220: GO TO 0081 02170801 ! 221: 20080 IVFAIL = IVFAIL + 1 02180801 ! 222: DVCORR = -6.0D0 02190801 ! 223: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 02200801 ! 224: 0081 CONTINUE 02210801 ! 225: CT009* TEST 9 A NEGATIVE VALUE WITH MAGNITUDE IN (X,X+1) 02220801 ! 226: IVTNUM = 9 02230801 ! 227: DNBVD = -0.375D1 02240801 ! 228: DNAVD = DINT(DNBVD) 02250801 ! 229: IF (DNAVD + 3.000000002D0) 20090, 10090, 40090 02260801 ! 230: 40090 IF (DNAVD + 2.999999998D0) 10090, 10090, 20090 02270801 ! 231: 10090 IVPASS = IVPASS + 1 02280801 ! 232: WRITE (NUVI, 80002) IVTNUM 02290801 ! 233: GO TO 0091 02300801 ! 234: 20090 IVFAIL = IVFAIL + 1 02310801 ! 235: DVCORR = -0.3D1 02320801 ! 236: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 02330801 ! 237: 0091 CONTINUE 02340801 ! 238: CT010* TEST 10 ZERO PREFIXED WITH A MINUS SIGN 02350801 ! 239: IVTNUM = 10 02360801 ! 240: DNBVD = 0.0D0 02370801 ! 241: DNAVD = DINT(-DNBVD) 02380801 ! 242: IF (DNAVD + 5.0D-10) 20100, 10100, 40100 02390801 ! 243: 40100 IF (DNAVD - 5.0D-10) 10100, 10100, 20100 02400801 ! 244: 10100 IVPASS = IVPASS + 1 02410801 ! 245: WRITE (NUVI, 80002) IVTNUM 02420801 ! 246: GO TO 0101 02430801 ! 247: 20100 IVFAIL = IVFAIL + 1 02440801 ! 248: DVCORR = 0.0D0 02450801 ! 249: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 02460801 ! 250: 0101 CONTINUE 02470801 ! 251: CT011* TEST 11 AN ARITHMETIC EXPRESSION PRESENTED TO FUNCTION 02480801 ! 252: IVTNUM = 11 02490801 ! 253: DNBVD = 0.375D1 02500801 ! 254: DNAVD = DINT(DNBVD/0.375D0) 02510801 ! 255: IF (DNAVD - 0.9000000000D1) 20110, 10110, 40110 02520*TI ! 256: 40110 IF (DNAVD - 1.000000001D1) 10110, 10110, 20110 02530801 ! 257: 10110 IVPASS = IVPASS + 1 02540801 ! 258: WRITE (NUVI, 80002) IVTNUM 02550801 ! 259: GO TO 0111 02560801 ! 260: 20110 IVFAIL = IVFAIL + 1 02570801 ! 261: DVCORR = 1.0D1 02580801 ! 262: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 02590801 ! 263: 0111 CONTINUE 02600801 ! 264: C***** 02610801 ! 265: WRITE (NUVI, 90002) 02620801 ! 266: WRITE (NUVI, 90013) 02630801 ! 267: WRITE (NUVI, 90014) 02640801 ! 268: C***** 02650801 ! 269: C***** TEST OF DNINT 02660801 ! 270: C***** 02670801 ! 271: WRITE(NUVI, 15504) 02680801 ! 272: 15504 FORMAT( // 8X, 13HTEST OF DNINT) 02690801 ! 273: CT012* TEST 12 THE VALUE ZERO 02700801 ! 274: IVTNUM = 12 02710801 ! 275: DNBVD = 0.0D0 02720801 ! 276: DNAVD = DNINT(DNBVD) 02730801 ! 277: IF (DNAVD + 5.0D-10) 20120, 10120, 40120 02740801 ! 278: 40120 IF (DNAVD - 5.0D-10) 10120, 10120, 20120 02750801 ! 279: 10120 IVPASS = IVPASS + 1 02760801 ! 280: WRITE (NUVI, 80002) IVTNUM 02770801 ! 281: GO TO 0121 02780801 ! 282: 20120 IVFAIL = IVFAIL + 1 02790801 ! 283: DVCORR = 0.0D0 02800801 ! 284: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 02810801 ! 285: 0121 CONTINUE 02820801 ! 286: CT013* TEST 13 A VALUE IN (0,.5) 02830801 ! 287: IVTNUM = 13 02840801 ! 288: DNBVD = 0.25D0 02850801 ! 289: DNAVD = DNINT(DNBVD) 02860801 ! 290: IF (DNAVD + 5.0D-10) 20130, 10130, 40130 02870801 ! 291: 40130 IF (DNAVD - 5.0D-10) 10130, 10130, 20130 02880801 ! 292: 10130 IVPASS = IVPASS + 1 02890801 ! 293: WRITE (NUVI, 80002) IVTNUM 02900801 ! 294: GO TO 0131 02910801 ! 295: 20130 IVFAIL = IVFAIL + 1 02920801 ! 296: DVCORR = 0.0D0 02930801 ! 297: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 02940801 ! 298: 0131 CONTINUE 02950801 ! 299: CT014* TEST 14 THE VALUE 0.5 02960801 ! 300: IVTNUM = 14 02970801 ! 301: DNBVD = FLOAT(1) / FLOAT(2) 02980801 ! 302: DNAVD = DNINT(DNBVD) 02990801 ! 303: IF (DNAVD - 0.9999999995D0) 20140, 10140, 40140 03000801 ! 304: 40140 IF (DNAVD - 1.000000001D0) 10140, 10140, 20140 03010801 ! 305: 10140 IVPASS = IVPASS + 1 03020801 ! 306: WRITE (NUVI, 80002) IVTNUM 03030801 ! 307: GO TO 0141 03040801 ! 308: 20140 IVFAIL = IVFAIL + 1 03050801 ! 309: DVCORR = 1.0D0 03060801 ! 310: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 03070801 ! 311: 0141 CONTINUE 03080801 ! 312: CT015* TEST 15 A VALUE IN (.5,1) 03090801 ! 313: IVTNUM = 15 03100801 ! 314: DNBVD = 0.75D0 03110801 ! 315: DNAVD = DNINT(DNBVD) 03120801 ! 316: IF (DNAVD - 0.9999999995D0) 20150, 10150, 40150 03130801 ! 317: 40150 IF (DNAVD - 1.000000001D0) 10150, 10150, 20150 03140801 ! 318: 10150 IVPASS = IVPASS + 1 03150801 ! 319: WRITE (NUVI, 80002) IVTNUM 03160801 ! 320: GO TO 0151 03170801 ! 321: 20150 IVFAIL = IVFAIL + 1 03180801 ! 322: DVCORR = 1.0D0 03190801 ! 323: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 03200801 ! 324: 0151 CONTINUE 03210801 ! 325: CT016* TEST 16 AN INTEGRAL VALUE OTHER THAN 0, 1 03220801 ! 326: IVTNUM = 16 03230801 ! 327: DNBVD = FLOAT(5) 03240801 ! 328: DNAVD = DNINT(DNBVD) 03250801 ! 329: IF (DNAVD - 4.999999997D0) 20160, 10160, 40160 03260801 ! 330: 40160 IF (DNAVD - 5.000000003D0) 10160, 10160, 20160 03270801 ! 331: 10160 IVPASS = IVPASS + 1 03280801 ! 332: WRITE (NUVI, 80002) IVTNUM 03290801 ! 333: GO TO 0161 03300801 ! 334: 20160 IVFAIL = IVFAIL + 1 03310801 ! 335: DVCORR = 5.0D0 03320801 ! 336: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 03330801 ! 337: 0161 CONTINUE 03340801 ! 338: CT017* TEST 17 A VALUE IN (X,X+.5) 03350801 ! 339: IVTNUM = 17 03360801 ! 340: DNBVD = 10.46875D0 03370801 ! 341: DNAVD = DNINT(DNBVD) 03380801 ! 342: IF (DNAVD - 9.999999995D0) 20170, 10170, 40170 03390801 ! 343: 40170 IF (DNAVD - 10.00000001D0) 10170, 10170, 20170 03400801 ! 344: 10170 IVPASS = IVPASS + 1 03410801 ! 345: WRITE (NUVI, 80002) IVTNUM 03420801 ! 346: GO TO 0171 03430801 ! 347: 20170 IVFAIL = IVFAIL + 1 03440801 ! 348: DVCORR = 10.0D0 03450801 ! 349: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 03460801 ! 350: 0171 CONTINUE 03470801 ! 351: CT018* TEST 18 A VALUE WITH FRACTIONAL COMPONENT 0.5 03480801 ! 352: IVTNUM = 18 03490801 ! 353: DNBVD = FLOAT(15) + FLOAT(1) / FLOAT(2) 03500801 ! 354: DNAVD = DNINT(DNBVD) 03510801 ! 355: IF (DNAVD - 15.99999999D0) 20180, 10180, 40180 03520801 ! 356: 40180 IF (DNAVD - 16.00000001D0) 10180, 10180, 20180 03530801 ! 357: 10180 IVPASS = IVPASS + 1 03540801 ! 358: WRITE (NUVI, 80002) IVTNUM 03550801 ! 359: GO TO 0181 03560801 ! 360: 20180 IVFAIL = IVFAIL + 1 03570801 ! 361: DVCORR = 16.0D0 03580801 ! 362: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 03590801 ! 363: 0181 CONTINUE 03600801 ! 364: CT019* TEST 19 A VALUE IN (X+.5,X+1) 03610801 ! 365: IVTNUM = 19 03620801 ! 366: DNBVD = 27.96875D0 03630801 ! 367: DNAVD = DNINT(DNBVD) 03640801 ! 368: IF (DNAVD - 27.99999998D0) 20190, 10190, 40190 03650801 ! 369: 40190 IF (DNAVD - 28.00000002D0) 10190, 10190, 20190 03660801 ! 370: 10190 IVPASS = IVPASS + 1 03670801 ! 371: WRITE (NUVI, 80002) IVTNUM 03680801 ! 372: GO TO 0191 03690801 ! 373: 20190 IVFAIL = IVFAIL + 1 03700801 ! 374: DVCORR = 28.0D0 03710801 ! 375: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 03720801 ! 376: 0191 CONTINUE 03730801 ! 377: CT020* TEST 20 A NEGATIVE VALUE WITH MAGNITUDE IN (0,.5) 03740801 ! 378: IVTNUM = 20 03750801 ! 379: DNBVD = -0.25D0 03760801 ! 380: DNAVD = DNINT(DNBVD) 03770801 ! 381: IF (DNAVD + 5.0D-10) 20200, 10200, 40200 03780801 ! 382: 40200 IF (DNAVD - 5.0D-10) 10200, 10200, 20200 03790801 ! 383: 10200 IVPASS = IVPASS + 1 03800801 ! 384: WRITE (NUVI, 80002) IVTNUM 03810801 ! 385: GO TO 0201 03820801 ! 386: 20200 IVFAIL = IVFAIL + 1 03830801 ! 387: DVCORR = 0.0D0 03840801 ! 388: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 03850801 ! 389: 0201 CONTINUE 03860801 ! 390: CT021* TEST 21 THE VALUE -0.5 03870801 ! 391: IVTNUM = 21 03880801 ! 392: DNBVD = -FLOAT(1) / FLOAT(2) 03890801 ! 393: DNAVD = DNINT(DNBVD) 03900801 ! 394: IF (DNAVD + 1.000000001D0) 20210, 10210, 40210 03910801 ! 395: 40210 IF (DNAVD + 0.9999999995D0) 10210, 10210, 20210 03920801 ! 396: 10210 IVPASS = IVPASS + 1 03930801 ! 397: WRITE (NUVI, 80002) IVTNUM 03940801 ! 398: GO TO 0211 03950801 ! 399: 20210 IVFAIL = IVFAIL + 1 03960801 ! 400: DVCORR = -1.0D0 03970801 ! 401: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 03980801 ! 402: 0211 CONTINUE 03990801 ! 403: CT022* TEST 22 A NEGATIVE VALUE WITH MAGNITUDE IN (.5,1) 04000801 ! 404: IVTNUM = 22 04010801 ! 405: DNBVD = -0.75D0 04020801 ! 406: DNAVD = DNINT(DNBVD) 04030801 ! 407: IF (DNAVD + 1.000000001D0) 20220, 10220, 40220 04040801 ! 408: 40220 IF (DNAVD + 0.9999999995D0) 10220, 10220, 20220 04050801 ! 409: 10220 IVPASS = IVPASS + 1 04060801 ! 410: WRITE (NUVI, 80002) IVTNUM 04070801 ! 411: GO TO 0221 04080801 ! 412: 20220 IVFAIL = IVFAIL + 1 04090801 ! 413: DVCORR = -1.0D0 04100801 ! 414: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 04110801 ! 415: 0221 CONTINUE 04120801 ! 416: CT023* TEST 23 A NEGATIVE INTEGRAL VALUE 04130801 ! 417: IVTNUM = 23 04140801 ! 418: DNBVD = -FLOAT(5) 04150801 ! 419: DNAVD = DNINT(DNBVD) 04160801 ! 420: IF (DNAVD + 5.000000003D0) 20230, 10230, 40230 04170801 ! 421: 40230 IF (DNAVD + 4.999999997D0) 10230, 10230, 20230 04180801 ! 422: 10230 IVPASS = IVPASS + 1 04190801 ! 423: WRITE (NUVI, 80002) IVTNUM 04200801 ! 424: GO TO 0231 04210801 ! 425: 20230 IVFAIL = IVFAIL + 1 04220801 ! 426: DVCORR = -5.0D0 04230801 ! 427: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 04240801 ! 428: 0231 CONTINUE 04250801 ! 429: CT024* TEST 24 A NEGATIVE VALUE WITH MAGNITUDE IN (X,X+.5) 04260801 ! 430: IVTNUM = 24 04270801 ! 431: DNBVD = -10.46875D0 04280801 ! 432: DNAVD = DNINT(DNBVD) 04290801 ! 433: IF (DNAVD + 10.00000001D0) 20240, 10240, 40240 04300801 ! 434: 40240 IF (DNAVD + 9.999999995D0) 10240, 10240, 20240 04310801 ! 435: 10240 IVPASS = IVPASS + 1 04320801 ! 436: WRITE (NUVI, 80002) IVTNUM 04330801 ! 437: GO TO 0241 04340801 ! 438: 20240 IVFAIL = IVFAIL + 1 04350801 ! 439: DVCORR = -10.0D0 04360801 ! 440: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 04370801 ! 441: 0241 CONTINUE 04380801 ! 442: CT025* TEST 25 A NEGATIVE VALUE WITH FRACTIONAL COMPONENT 0.5 04390801 ! 443: IVTNUM = 25 04400801 ! 444: DNBVD = FLOAT(-15) - FLOAT(1) / FLOAT(2) 04410801 ! 445: DNAVD = DNINT(DNBVD) 04420801 ! 446: IF (DNAVD + 16.00000001D0) 20250, 10250, 40250 04430801 ! 447: 40250 IF (DNAVD + 15.99999999D0) 10250, 10250, 20250 04440801 ! 448: 10250 IVPASS = IVPASS + 1 04450801 ! 449: WRITE (NUVI, 80002) IVTNUM 04460801 ! 450: GO TO 0251 04470801 ! 451: 20250 IVFAIL = IVFAIL + 1 04480801 ! 452: DVCORR = -16.0D0 04490801 ! 453: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 04500801 ! 454: 0251 CONTINUE 04510801 ! 455: CT026* TEST 26 A NEGATIVE VALUE WITH MAGNITUDE IN (X+.5,X+1) 04520801 ! 456: IVTNUM = 26 04530801 ! 457: DNBVD = -27.96875D0 04540801 ! 458: DNAVD = DNINT(DNBVD) 04550801 ! 459: IF (DNAVD + 28.00000002D0) 20260, 10260, 40260 04560801 ! 460: 40260 IF (DNAVD + 27.99999998D0) 10260, 10260, 20260 04570801 ! 461: 10260 IVPASS = IVPASS + 1 04580801 ! 462: WRITE (NUVI, 80002) IVTNUM 04590801 ! 463: GO TO 0261 04600801 ! 464: 20260 IVFAIL = IVFAIL + 1 04610801 ! 465: DVCORR = -28.0D0 04620801 ! 466: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 04630801 ! 467: 0261 CONTINUE 04640801 ! 468: CT027* TEST 27 ZERO PREFIXED WITH A MINUS SIGN 04650801 ! 469: IVTNUM = 27 04660801 ! 470: DNBVD = 0.0D0 04670801 ! 471: DNAVD = DNINT(-DNBVD) 04680801 ! 472: IF (DNAVD + 5.0D-10) 20270, 10270, 40270 04690801 ! 473: 40270 IF (DNAVD - 5.0D-10) 10270, 10270, 20270 04700801 ! 474: 10270 IVPASS = IVPASS + 1 04710801 ! 475: WRITE (NUVI, 80002) IVTNUM 04720801 ! 476: GO TO 0271 04730801 ! 477: 20270 IVFAIL = IVFAIL + 1 04740801 ! 478: DVCORR = 0.0D0 04750801 ! 479: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 04760801 ! 480: 0271 CONTINUE 04770801 ! 481: CT028* TEST 28 AN ARITHMETIC EXPRESSION PRESENTED TO FUNCTION 04780801 ! 482: IVTNUM = 28 04790801 ! 483: DNBVD = 8.00D0 04800801 ! 484: DNDVD = 7.25D0 04810801 ! 485: DNAVD = DNINT(DNBVD - DNDVD) 04820801 ! 486: IF (DNAVD - 0.9999999995D0) 20280, 10280, 40280 04830801 ! 487: 40280 IF (DNAVD - 1.000000001D0) 10280, 10280, 20280 04840801 ! 488: 10280 IVPASS = IVPASS + 1 04850801 ! 489: WRITE (NUVI, 80002) IVTNUM 04860801 ! 490: GO TO 0281 04870801 ! 491: 20280 IVFAIL = IVFAIL + 1 04880801 ! 492: DVCORR = 1.0D0 04890801 ! 493: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 04900801 ! 494: 0281 CONTINUE 04910801 ! 495: C***** 04920801 ! 496: WRITE (NUVI, 90002) 04930801 ! 497: WRITE (NUVI, 90013) 04940801 ! 498: WRITE (NUVI, 90014) 04950801 ! 499: C***** 04960801 ! 500: C***** TEST OF IDNINT 04970801 ! 501: C***** 04980801 ! 502: C***** 04990801 ! 503: WRITE(NUVI, 15506) 05000801 ! 504: 15506 FORMAT( // 8X, 14HTEST OF IDNINT) 05010801 ! 505: CT029* TEST 29 THE VALUE ZERO 05020801 ! 506: IVTNUM = 29 05030801 ! 507: DNBVD = 0.0D0 05040801 ! 508: INAVI = IDNINT(DNBVD) 05050801 ! 509: IF (INAVI - 0) 20290, 10290, 20290 05060801 ! 510: 10290 IVPASS = IVPASS + 1 05070801 ! 511: WRITE (NUVI, 80002) IVTNUM 05080801 ! 512: GO TO 0291 05090801 ! 513: 20290 IVFAIL = IVFAIL + 1 05100801 ! 514: IVCORR = 0 05110801 ! 515: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 05120801 ! 516: 0291 CONTINUE 05130801 ! 517: CT030* TEST 30 A VALUE IN (0.,5) 05140801 ! 518: IVTNUM = 30 05150801 ! 519: DNBVD = 0.25D0 05160801 ! 520: INAVI = IDNINT(DNBVD) 05170801 ! 521: IF (INAVI - 0) 20300, 10300, 20300 05180801 ! 522: 10300 IVPASS = IVPASS + 1 05190801 ! 523: WRITE (NUVI, 80002) IVTNUM 05200801 ! 524: GO TO 0301 05210801 ! 525: 20300 IVFAIL = IVFAIL + 1 05220801 ! 526: IVCORR = 0 05230801 ! 527: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 05240801 ! 528: 0301 CONTINUE 05250801 ! 529: CT031* TEST 31 THE VALUE 0.5 05260801 ! 530: IVTNUM = 31 05270801 ! 531: DNBVD = FLOAT(1) / FLOAT(2) 05280801 ! 532: INAVI = IDNINT(DNBVD) 05290801 ! 533: IF (INAVI - 1) 20310, 10310, 20310 05300801 ! 534: 10310 IVPASS = IVPASS + 1 05310801 ! 535: WRITE (NUVI, 80002) IVTNUM 05320801 ! 536: GO TO 0311 05330801 ! 537: 20310 IVFAIL = IVFAIL + 1 05340801 ! 538: IVCORR = 1 05350801 ! 539: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 05360801 ! 540: 0311 CONTINUE 05370801 ! 541: CT032* TEST 32 A VALUE IN (.5,1) 05380801 ! 542: IVTNUM = 32 05390801 ! 543: DNBVD = 0.75D0 05400801 ! 544: INAVI = IDNINT(DNBVD) 05410801 ! 545: IF (INAVI - 1) 20320, 10320, 20320 05420801 ! 546: 10320 IVPASS = IVPASS + 1 05430801 ! 547: WRITE (NUVI, 80002) IVTNUM 05440801 ! 548: GO TO 0321 05450801 ! 549: 20320 IVFAIL = IVFAIL + 1 05460801 ! 550: IVCORR = 1 05470801 ! 551: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 05480801 ! 552: 0321 CONTINUE 05490801 ! 553: CT033* TEST 33 AN INTEGRAL VALUE OTHER THAN 0, 1 05500801 ! 554: IVTNUM = 33 05510801 ! 555: DNBVD = FLOAT(5) 05520801 ! 556: INAVI = IDNINT(DNBVD) 05530801 ! 557: IF (INAVI - 5) 20330, 10330, 20330 05540801 ! 558: 10330 IVPASS = IVPASS + 1 05550801 ! 559: WRITE (NUVI, 80002) IVTNUM 05560801 ! 560: GO TO 0331 05570801 ! 561: 20330 IVFAIL = IVFAIL + 1 05580801 ! 562: IVCORR = 5 05590801 ! 563: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 05600801 ! 564: 0331 CONTINUE 05610801 ! 565: CT034* TEST 34 A VALUE IN (X,X+.5) 05620801 ! 566: IVTNUM = 34 05630801 ! 567: DNBVD = 10.46875D0 05640801 ! 568: INAVI = IDNINT(DNBVD) 05650801 ! 569: IF (INAVI - 10) 20340, 10340, 20340 05660801 ! 570: 10340 IVPASS = IVPASS + 1 05670801 ! 571: WRITE (NUVI, 80002) IVTNUM 05680801 ! 572: GO TO 0341 05690801 ! 573: 20340 IVFAIL = IVFAIL + 1 05700801 ! 574: IVCORR = 10 05710801 ! 575: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 05720801 ! 576: 0341 CONTINUE 05730801 ! 577: CT035* TEST 35 A VALUE WITH FRACTIONAL COMPONENT 0.5 05740801 ! 578: IVTNUM = 35 05750801 ! 579: DNBVD = FLOAT(15) + FLOAT(1) / FLOAT(2) 05760801 ! 580: INAVI = IDNINT(DNBVD) 05770801 ! 581: IF (INAVI - 16) 20350, 10350, 20350 05780801 ! 582: 10350 IVPASS = IVPASS + 1 05790801 ! 583: WRITE (NUVI, 80002) IVTNUM 05800801 ! 584: GO TO 0351 05810801 ! 585: 20350 IVFAIL = IVFAIL + 1 05820801 ! 586: IVCORR = 16 05830801 ! 587: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 05840801 ! 588: 0351 CONTINUE 05850801 ! 589: CT036* TEST 36 A VALUE IN (X+.5,X+1) 05860801 ! 590: IVTNUM = 36 05870801 ! 591: DNBVD = 27.96875D0 05880801 ! 592: INAVI = IDNINT(DNBVD) 05890801 ! 593: IF (INAVI - 28) 20360, 10360, 20360 05900801 ! 594: 10360 IVPASS = IVPASS + 1 05910801 ! 595: WRITE (NUVI, 80002) IVTNUM 05920801 ! 596: GO TO 0361 05930801 ! 597: 20360 IVFAIL = IVFAIL + 1 05940801 ! 598: IVCORR = 28 05950801 ! 599: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 05960801 ! 600: 0361 CONTINUE 05970801 ! 601: CT037* TEST 37 A NEGATIVE VALUE WITH MAGNITUDE IN (0,.5) 05980801 ! 602: IVTNUM = 37 05990801 ! 603: DNBVD = -0.25D0 06000801 ! 604: INAVI = IDNINT(DNBVD) 06010801 ! 605: IF (INAVI - 0) 20370, 10370, 20370 06020801 ! 606: 10370 IVPASS = IVPASS + 1 06030801 ! 607: WRITE (NUVI, 80002) IVTNUM 06040801 ! 608: GO TO 0371 06050801 ! 609: 20370 IVFAIL = IVFAIL + 1 06060801 ! 610: IVCORR = 0 06070801 ! 611: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 06080801 ! 612: 0371 CONTINUE 06090801 ! 613: CT038* TEST 38 THE VALUE -0.5 06100801 ! 614: IVTNUM = 38 06110801 ! 615: DNBVD = -FLOAT(1) / FLOAT(2) 06120801 ! 616: INAVI = IDNINT(DNBVD) 06130801 ! 617: IF (INAVI + 1) 20380, 10380, 20380 06140801 ! 618: 10380 IVPASS = IVPASS + 1 06150801 ! 619: WRITE (NUVI, 80002) IVTNUM 06160801 ! 620: GO TO 0381 06170801 ! 621: 20380 IVFAIL = IVFAIL + 1 06180801 ! 622: IVCORR = -1 06190801 ! 623: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 06200801 ! 624: 0381 CONTINUE 06210801 ! 625: CT039* TEST 39 A NEGATIVE VALUE WITH MAGNITUDE IN (.5,1) 06220801 ! 626: IVTNUM = 39 06230801 ! 627: DNBVD = -0.75D0 06240801 ! 628: INAVI = IDNINT(DNBVD) 06250801 ! 629: IF (INAVI + 1) 20390, 10390, 20390 06260801 ! 630: 10390 IVPASS = IVPASS + 1 06270801 ! 631: WRITE (NUVI, 80002) IVTNUM 06280801 ! 632: GO TO 0391 06290801 ! 633: 20390 IVFAIL = IVFAIL + 1 06300801 ! 634: IVCORR = -1 06310801 ! 635: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 06320801 ! 636: 0391 CONTINUE 06330801 ! 637: CT040* TEST 40 A NEGATIVE INTEGRAL VALUE 06340801 ! 638: IVTNUM = 40 06350801 ! 639: DNBVD = -FLOAT(5) 06360801 ! 640: INAVI = IDNINT(DNBVD) 06370801 ! 641: IF (INAVI + 5) 20400, 10400, 20400 06380801 ! 642: 10400 IVPASS = IVPASS + 1 06390801 ! 643: WRITE (NUVI, 80002) IVTNUM 06400801 ! 644: GO TO 0401 06410801 ! 645: 20400 IVFAIL = IVFAIL + 1 06420801 ! 646: IVCORR = -5 06430801 ! 647: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 06440801 ! 648: 0401 CONTINUE 06450801 ! 649: CT041* TEST 41 A NEGATIVE VALUE WITH MAGNITUDE IN (X,X+.5) 06460801 ! 650: IVTNUM = 41 06470801 ! 651: DNBVD = -10.46875D0 06480801 ! 652: INAVI = IDNINT(DNBVD) 06490801 ! 653: IF (INAVI + 10) 20410, 10410, 20410 06500801 ! 654: 10410 IVPASS = IVPASS + 1 06510801 ! 655: WRITE (NUVI, 80002) IVTNUM 06520801 ! 656: GO TO 0411 06530801 ! 657: 20410 IVFAIL = IVFAIL + 1 06540801 ! 658: IVCORR = -10 06550801 ! 659: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 06560801 ! 660: 0411 CONTINUE 06570801 ! 661: CT042* TEST 42 A NEGATIVE VALUE WITH FRACTIONAL COMPONENT 0.5 06580801 ! 662: IVTNUM = 42 06590801 ! 663: DNBVD = FLOAT(-15) - FLOAT(1) /FLOAT(2) 06600801 ! 664: INAVI = IDNINT(DNBVD) 06610801 ! 665: IF (INAVI + 16) 20420, 10420, 20420 06620801 ! 666: 10420 IVPASS = IVPASS + 1 06630801 ! 667: WRITE (NUVI, 80002) IVTNUM 06640801 ! 668: GO TO 0421 06650801 ! 669: 20420 IVFAIL = IVFAIL + 1 06660801 ! 670: IVCORR = -16 06670801 ! 671: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 06680801 ! 672: 0421 CONTINUE 06690801 ! 673: CT043* TEST 43 A NEGATIVE VALUE WITH MAGNITUDE IN (X+.5,X+1) 06700801 ! 674: IVTNUM = 43 06710801 ! 675: DNBVD = -27.96875D0 06720801 ! 676: INAVI = IDNINT(DNBVD) 06730801 ! 677: IF (INAVI + 28) 20430, 10430, 20430 06740801 ! 678: 10430 IVPASS = IVPASS + 1 06750801 ! 679: WRITE (NUVI, 80002) IVTNUM 06760801 ! 680: GO TO 0431 06770801 ! 681: 20430 IVFAIL = IVFAIL + 1 06780801 ! 682: IVCORR = -28 06790801 ! 683: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 06800801 ! 684: 0431 CONTINUE 06810801 ! 685: CT044* TEST 44 ZERO PREFIXED WITH A MINUS SIGN 06820801 ! 686: IVTNUM = 44 06830801 ! 687: DNBVD = 0.0D0 06840801 ! 688: INAVI = IDNINT(-DNBVD) 06850801 ! 689: IF (INAVI - 0) 20440, 10440, 20440 06860801 ! 690: 10440 IVPASS = IVPASS + 1 06870801 ! 691: WRITE (NUVI, 80002) IVTNUM 06880801 ! 692: GO TO 0441 06890801 ! 693: 20440 IVFAIL = IVFAIL + 1 06900801 ! 694: IVCORR = 0 06910801 ! 695: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 06920801 ! 696: 0441 CONTINUE 06930801 ! 697: CT045* TEST 45 AN ARITHMETIC EXPRESSION PRESENTED TO FUNCTION 06940801 ! 698: IVTNUM = 45 06950801 ! 699: DNBVD = 8.00D0 06960801 ! 700: DNDVD = 7.25D0 06970801 ! 701: INAVI = IDNINT(DNBVD - DNDVD) 06980801 ! 702: IF (INAVI - 1) 20450, 10450, 20450 06990801 ! 703: 10450 IVPASS = IVPASS + 1 07000801 ! 704: WRITE (NUVI, 80002) IVTNUM 07010801 ! 705: GO TO 0451 07020801 ! 706: 20450 IVFAIL = IVFAIL + 1 07030801 ! 707: IVCORR = 1 07040801 ! 708: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 07050801 ! 709: 0451 CONTINUE 07060801 ! 710: C***** 07070801 ! 711: CBB** ********************** BBCSUM0 **********************************07080801 ! 712: C**** WRITE OUT TEST SUMMARY 07090801 ! 713: C**** 07100801 ! 714: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 07110801 ! 715: WRITE (I02, 90004) 07120801 ! 716: WRITE (I02, 90014) 07130801 ! 717: WRITE (I02, 90004) 07140801 ! 718: WRITE (I02, 90020) IVPASS 07150801 ! 719: WRITE (I02, 90022) IVFAIL 07160801 ! 720: WRITE (I02, 90024) IVDELE 07170801 ! 721: WRITE (I02, 90026) IVINSP 07180801 ! 722: WRITE (I02, 90028) IVTOTN, IVTOTL 07190801 ! 723: CBE** ********************** BBCSUM0 **********************************07200801 ! 724: CBB** ********************** BBCFOOT0 **********************************07210801 ! 725: C**** WRITE OUT REPORT FOOTINGS 07220801 ! 726: C**** 07230801 ! 727: WRITE (I02,90016) ZPROG, ZPROG 07240801 ! 728: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 07250801 ! 729: WRITE (I02,90019) 07260801 ! 730: CBE** ********************** BBCFOOT0 **********************************07270801 ! 731: CBB** ********************** BBCFMT0A **********************************07280801 ! 732: C**** FORMATS FOR TEST DETAIL LINES 07290801 ! 733: C**** 07300801 ! 734: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 07310801 ! 735: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 07320801 ! 736: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 07330801 ! 737: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 07340801 ! 738: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 07350801 ! 739: 1I6,/,1H ,15X,10HCORRECT= ,I6) 07360801 ! 740: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07370801 ! 741: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 07380801 ! 742: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07390801 ! 743: 1A21,/,1H ,16X,10HCORRECT= ,A21) 07400801 ! 744: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 07410801 ! 745: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 07420801 ! 746: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 07430801 ! 747: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 07440801 ! 748: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 07450801 ! 749: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 07460801 ! 750: 80050 FORMAT (1H ,48X,A31) 07470801 ! 751: CBE** ********************** BBCFMT0A **********************************07480801 ! 752: CBB** ********************** BBCFMAT1 **********************************07490801 ! 753: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 07500801 ! 754: C**** 07510801 ! 755: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07520801 ! 756: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 07530801 ! 757: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 07540801 ! 758: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 07550801 ! 759: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 07560801 ! 760: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 07570801 ! 761: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 07580801 ! 762: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 07590801 ! 763: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07600801 ! 764: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 07610801 ! 765: 21H(,F12.5,2H, ,F12.5,1H)) 07620801 ! 766: CBE** ********************** BBCFMAT1 **********************************07630801 ! 767: CBB** ********************** BBCFMT0B **********************************07640801 ! 768: C**** FORMAT STATEMENTS FOR PAGE HEADERS 07650801 ! 769: C**** 07660801 ! 770: 90002 FORMAT (1H1) 07670801 ! 771: 90004 FORMAT (1H ) 07680801 ! 772: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 07690801 ! 773: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 07700801 ! 774: 90008 FORMAT (1H ,21X,A13,A17) 07710801 ! 775: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 07720801 ! 776: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 07730801 ! 777: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 07740801 ! 778: 1 7X,7HREMARKS,24X) 07750801 ! 779: 90014 FORMAT (1H ,46H----------------------------------------------, 07760801 ! 780: 1 33H---------------------------------) 07770801 ! 781: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 07780801 ! 782: C**** 07790801 ! 783: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 07800801 ! 784: C**** 07810801 ! 785: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 07820801 ! 786: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 07830801 ! 787: 1 A13) 07840801 ! 788: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 07850801 ! 789: C**** 07860801 ! 790: C**** FORMAT STATEMENTS FOR RUN SUMMARY 07870801 ! 791: C**** 07880801 ! 792: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 07890801 ! 793: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 07900801 ! 794: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 07910801 ! 795: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 07920801 ! 796: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 07930801 ! 797: CBE** ********************** BBCFMT0B **********************************07940801 ! 798: C***** 07950801 ! 799: C***** END OF TEST SEGMENT 155 07960801 ! 800: STOP 07970801 ! 801: END 07980801 ! 802: 07990801
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.