![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM900.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 FM900.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***********************************************************************00010900 ! 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 00020900 ! 6: C***** FM900 FMTRWF - (021) 00030900 ! 7: C***** 00040900 ! 8: C***********************************************************************00050900 ! 9: C***** GENERAL PURPOSE ANS REFS00060900 ! 10: C***** TO TEST SIMPLE FORMAT AND FORMATTED DATA 12.9.5.200070900 ! 11: C***** TRANSFER STATEMENTS IN EXTERNAL SEQUENTIAL I/O SO 13.1.1 00080900 ! 12: C***** THAT THESE FEATURES MAY BE USED IN OTHER TEST 12.8.1 00090900 ! 13: C***** PROGRAM SEGMENTS FOR DOUBLE PRECISION AND COMPLEX 00100900 ! 14: C***** DATA TYPES. 00110900 ! 15: C***** RESTRICTIONS OBSERVED 12.8.2 00120900 ! 16: C***** * ALL FORMAT STATEMENTS ARE LABELED 13.1.1 00130900 ! 17: C***** * H AND X DESCRIPTORS ARE NEVER REPEATED 13.2.1 00140900 ! 18: C***** * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND 00150900 ! 19: C***** W IS EQUAL TO OR GREATER THAN D 00160900 ! 20: C***** * FIELD WIDTH IS NEVER ZERO 13.2.1 00170900 ! 21: C***** * IF AN I/O LIST SPECIFIES AT LEAST ONE LIST ITEM 13.3 00180900 ! 22: C***** AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00190900 ! 23: C***** IN THE FORMAT SPECIFICATION 00200900 ! 24: C***** * ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS 13.3 00210900 ! 25: C***** * NEGATIVE OUTPUT VALUES ARE SIGNED 13.5.9 00220900 ! 26: C***** * FIELD WIDTH NEVER EXCEEDED BY OUTPUT 13.5.9 00230900 ! 27: C***** GENERAL COMMENTS 00240900 ! 28: C***** PLUS SIGNS FOR INPUT FIELDS ARE USUALLY OMITTED 13.5.9 00250900 ! 29: C***** FORMATTED WRITES WITHOUT AN I/O LIST (FORMAT 13.5.2 00260900 ! 30: C***** STATEMENTS TEST H AND X DESCRIPTORS AND SLASH 13.5.3 00270900 ! 31: C***** RECORD DIVIDERS) 13.5.4 00280900 ! 32: C***** 00290900 ! 33: CBB** ********************** BBCCOMNT **********************************00300900 ! 34: C**** 00310900 ! 35: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00320900 ! 36: C**** VERSION 2.0 00330900 ! 37: C**** 00340900 ! 38: C**** 00350900 ! 39: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00360900 ! 40: C**** GENERAL SERVICES ADMINISTRATION 00370900 ! 41: C**** FEDERAL SOFTWARE TESTING CENTER 00380900 ! 42: C**** 5203 LEESBURG PIKE, SUITE 1100 00390900 ! 43: C**** FALLS CHURCH, VA. 22041 00400900 ! 44: C**** 00410900 ! 45: C**** (703) 756-6153 00420900 ! 46: C**** 00430900 ! 47: CBE** ********************** BBCCOMNT **********************************00440900 ! 48: C***** 00450900 ! 49: C INPUT DATA TO THIS SEGMENT CONSISTS OF 17 CARD IMAGES IN COL. 1 - 80 00460900 ! 50: COL. 1----------------------------------------------------------61 00470900 ! 51: CARD 1 1.05.522.066.633.123455.0789 00480900 ! 52: CARD 2 123.00456.88 0.123E+01 +0.987+1 -0.2345+02 -0.6879E+2+0.7E+0 00490900 ! 53: COL 62-----70 00500900 ! 54: CARD 2 3 0.4E+03 00510900 ! 55: COL. 1----------------------------------------------------------61 00520900 ! 56: CARD 3 0.9876543E-04+0.1357913E-04 00530900 ! 57: CARD 4 19.34+0.2468E+02 +.765+287.643.96 0.5407E+0243.96+0.5407E+0 00540900 ! 58: COL. 62-------------78 00550900 ! 59: CARD 4 243.96 0.5407+2 00560900 ! 60: COL. 1----------------------------- ----------------------------61 00570900 ! 61: CARD 5 +0.1D+06 00580900 ! 62: CARD 6 -0.334D-04 -.334-4 +0.7657654D00 0.12345678901D+10 00590900 ! 63: CARD 7 +0.98765432109876D-1+0.98765432109876D-01 .98765432109876 00600900 ! 64: COL. 62-66 00610900 ! 65: CARD 7 -1 00620900 ! 66: COL. 1----------------------------------------------------------61 00630900 ! 67: CARD 8 -.555555542D+03 -0.555555542+3 00640900 ! 68: CARD 9 9.91.19.92.29.93.39.94.49.91.19.92.29.93.39.94.4 00650900 ! 69: CARD 10 9.95.59.96.69.97.79.98.89.95.59.96.69.97.79.98.8 00660900 ! 70: CARD 11 -0.99D+01-0.98D+01-0.97D+01-0.96D+01-0.99D+01 -.98D+01 -.97+ 00670900 ! 71: COL. 62-------72 00680900 ! 72: CARD 11 01 -.96+1 00690900 ! 73: CARD 12 +0.99D+01 0.98D+01 +.97D01 +.96D1 00700900 ! 74: CARD 13 +0.99D+01 0.99D+01 0.99D+01+0.99D+01 .99D1 00710900 ! 75: CARD 14 9.95.59.96.69.97.79.98.8 00720900 ! 76: CARD 15 123.45678E2 1234.5678 123.45678 12.345678 1.2345678 .123 00730900 ! 77: COL. 62-66 00740900 ! 78: CARD 15 45678 00750900 ! 79: COL. 1----------------------------------------------------------61 00760900 ! 80: CARD 16 9876.5498.7654E2 9876.54 987.654864786D-486.4786E286.4786 00770900 ! 81: COL. 62---------------80 00780900 ! 82: CARD 16 8657.86D0 9876.54 00790900 ! 83: COL. 1----------------------------------------------------------61 00800900 ! 84: CARD 17 9.8765698.7654E2 9876.54 987.654864786D-386.4786E286.4786 00810900 ! 85: COL. 62---------------80 00820900 ! 86: CARD 17 8657.86D0 9876.54 00830900 ! 87: C***** 00840900 ! 88: C***** S P E C I F I C A T I O N S SEGMENT 021 00850900 ! 89: C***** 00860900 ! 90: DOUBLE PRECISION DPA1D(5),MCA3D(1,4,2),ZZDVD ,A2D(2,2),A3D(2,2,2) 00870900 ! 91: 1,AC1D(10),BC2D(7,4),DPAVD,DPBVD 00880900 ! 92: COMPLEX BVC,QAVC,CHAVC,CHBVC,CHCVC,CHDVC 00890900 ! 93: 1,LL1C(32),LM2C(8,4),A1C(12),A2C(2,2),B3C(2,2,2),B1C(8) 00900900 ! 94: C***** 00910900 ! 95: CBB** ********************** BBCINITA **********************************00920900 ! 96: C**** SPECIFICATION STATEMENTS 00930900 ! 97: C**** 00940900 ! 98: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00950900 ! 99: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00960900 ! 100: CBE** ********************** BBCINITA **********************************00970900 ! 101: CBB** ********************** BBCINITB **********************************00980900 ! 102: C**** INITIALIZE SECTION 00990900 ! 103: DATA ZVERS, ZVERSD, ZDATE 01000900 ! 104: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 01010900 ! 105: DATA ZCOMPL, ZNAME, ZTAPE 01020900 ! 106: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 01030900 ! 107: DATA ZPROJ, ZTAPED, ZPROG 01040900 ! 108: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 01050900 ! 109: DATA REMRKS /' '/ 01060900 ! 110: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 01070900 ! 111: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 01080900 ! 112: C**** 01090900 ! 113: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 01100900 ! 114: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 01110900 ! 115: CZ03 ZPROG = 'PROGRAM NAME' 01120900 ! 116: ZDATE = '07-Nov-85 ' *RP ! 117: ZCOMPL = 'CCI 5.2 ' *RP ! 118: ZPROJ = 'TC-85- -410' *RP ! 119: ZNAME = ' ' *RP ! 120: ZTAPE = ' ' *RP ! 121: ZTAPED = '850703 ' *RP ! 122: C 01190900 ! 123: IVPASS = 0 01200900 ! 124: IVFAIL = 0 01210900 ! 125: IVDELE = 0 01220900 ! 126: IVINSP = 0 01230900 ! 127: IVTOTL = 0 01240900 ! 128: IVTOTN = 0 01250900 ! 129: ICZERO = 0 01260900 ! 130: C 01270900 ! 131: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 01280900 ! 132: I01 = 05 01290900 ! 133: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 01300900 ! 134: I02 = 06 01310900 ! 135: C 01320900 ! 136: I01 = 5 01330900 ! 137: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 01340900 ! 138: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 01350900 ! 139: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 01360900 ! 140: C 01370900 ! 141: I02 = 6 01380900 ! 142: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 01390900 ! 143: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 01400900 ! 144: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 01410900 ! 145: C 01420900 ! 146: CBE** ********************** BBCINITB **********************************01430900 ! 147: IRVI = I01 01440900 ! 148: NUVI = I02 01450900 ! 149: IVTOTL = 36 01460900 ! 150: ZPROG = 'FM900' 01470900 ! 151: CBB** ********************** BBCHED0A **********************************01480900 ! 152: C**** 01490900 ! 153: C**** WRITE REPORT TITLE 01500900 ! 154: C**** 01510900 ! 155: WRITE (I02, 90002) 01520900 ! 156: WRITE (I02, 90006) 01530900 ! 157: WRITE (I02, 90007) 01540900 ! 158: WRITE (I02, 90008) ZVERS, ZVERSD 01550900 ! 159: WRITE (I02, 90009) ZPROG, ZPROG 01560900 ! 160: WRITE (I02, 90010) ZDATE, ZCOMPL 01570900 ! 161: CBE** ********************** BBCHED0A **********************************01580900 ! 162: C***** HEADER FORMAT STATEMENT 01590900 ! 163: WRITE (NUVI,02100) 01600900 ! 164: 02100 FORMAT (1H ,/1X,28HFMTRWF - (021) FORMATTED I/O//2X, 01610900 ! 165: 1 25HREFS - 12.9.5 13.3 13.5) 01620900 ! 166: CBB** ********************** BBCHED0B **********************************01630900 ! 167: C**** WRITE DETAIL REPORT HEADERS 01640900 ! 168: C**** 01650900 ! 169: WRITE (I02,90004) 01660900 ! 170: WRITE (I02,90004) 01670900 ! 171: WRITE (I02,90013) 01680900 ! 172: WRITE (I02,90014) 01690900 ! 173: WRITE (I02,90015) IVTOTL 01700900 ! 174: CBE** ********************** BBCHED0B **********************************01710900 ! 175: C***** TESTS 1 THRU 11: 01720900 ! 176: C***** FORMATTED READ AND WRITE STATEMENTS WITH COMPLEX 12.8.1 01730900 ! 177: C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. 12.8.2 01740900 ! 178: C***** E AND F CONVERSION ARE USED IN THE FORMAT 13.5.9.2.1-201750900 ! 179: C***** STATEMENTS. SOME FORMAT DESCRIPTORS ARE REPEATED 13.5.9.2.1 01760900 ! 180: C***** 01770900 ! 181: 02101 FORMAT (/8X,23HCOMPLEX CONVERSION TEST/) 01780900 ! 182: WRITE (NUVI,02101) 01790900 ! 183: C***** INPUT CARD 1 01800900 ! 184: 02102 FORMAT ( 2(F3.1) , 2(F4.1), 2(F7.4)) 01810900 ! 185: READ (IRVI,02102) CHAVC, CHBVC, A1C(2) 01820900 ! 186: C***** INPUT CARDS 2, 3 01830900 ! 187: 02103 FORMAT ( 2F6.2, 2E10.3, 2E11.4, 2E8.1/ 2E14.7) 01840900 ! 188: READ (IRVI,02103) A2C(1,2), B3C(2,2,1), CHCVC, A1C(1), CHDVC 01850900 ! 189: C***** INPUT CARD 4 01860900 ! 190: 02104 FORMAT (F5.2, E11.4, E10.3, F4.1, 3(F5.2,E11.4)) 01870900 ! 191: READ (IRVI,02104) A2C(2,1), BVC, QAVC, LM2C(1,2), LL1C(2) 01880900 ! 192: CT001* TEST 1 01890900 ! 193: IVTNUM = 1 01900900 ! 194: WRITE (NUVI, 80004) IVTNUM 01910900 ! 195: WRITE (NUVI, 80020) 01920900 ! 196: WRITE (NUVI, 70010) CHAVC 01930900 ! 197: 70010 FORMAT (26X,F3.1,2X,F3.1) 01940900 ! 198: IVINSP = IVINSP + 1 01950900 ! 199: WRITE (NUVI, 80022) 01960900 ! 200: WRITE (NUVI, 70011) 01970900 ! 201: 70011 FORMAT (26X, 8H1.0 5.5) 01980900 ! 202: CT002* TEST 2 01990900 ! 203: IVTNUM = 2 02000900 ! 204: WRITE (NUVI, 80004) IVTNUM 02010900 ! 205: WRITE (NUVI, 80020) 02020900 ! 206: WRITE (NUVI, 70020) CHBVC 02030900 ! 207: 70020 FORMAT (26X,F4.1,2X,F4.1) 02040900 ! 208: IVINSP = IVINSP + 1 02050900 ! 209: WRITE (NUVI, 80022) 02060900 ! 210: WRITE (NUVI, 70021) 02070900 ! 211: 70021 FORMAT (26X,10H22.0 66.6) 02080900 ! 212: CT003* TEST 3 02090900 ! 213: IVTNUM = 3 02100900 ! 214: WRITE (NUVI, 80004) IVTNUM 02110900 ! 215: WRITE (NUVI, 80020) 02120900 ! 216: WRITE (NUVI, 70030) A1C(2) 02130900 ! 217: 70030 FORMAT (26X,F7.4,2X,F7.4) 02140900 ! 218: IVINSP = IVINSP + 1 02150900 ! 219: WRITE (NUVI, 80022) 02160900 ! 220: WRITE (NUVI, 70031) 02170900 ! 221: 70031 FORMAT (26X,16H33.1234 55.0789) 02180900 ! 222: CT004* TEST 4 02190900 ! 223: IVTNUM = 4 02200900 ! 224: WRITE (NUVI, 80004) IVTNUM 02210900 ! 225: WRITE (NUVI, 80020) 02220900 ! 226: WRITE (NUVI, 70040) A2C(1,2) 02230900 ! 227: 70040 FORMAT (26X,F6.2,2X,F6.2) 02240900 ! 228: IVINSP = IVINSP + 1 02250900 ! 229: WRITE (NUVI, 80022) 02260900 ! 230: WRITE (NUVI, 70041) 02270900 ! 231: 70041 FORMAT (26X,14H123.00 456.88) 02280900 ! 232: CT005* TEST 5 02290900 ! 233: IVTNUM = 5 02300900 ! 234: REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 02310900 ! 235: WRITE (NUVI, 80004) IVTNUM,REMRKS 02320900 ! 236: WRITE (NUVI, 80020) 02330900 ! 237: WRITE (NUVI, 70050) B3C(2,2,1) 02340900 ! 238: 70050 FORMAT (26X,E10.3,2X,E10.3) 02350900 ! 239: IVINSP = IVINSP + 1 02360900 ! 240: WRITE (NUVI, 70051) 02370900 ! 241: 70051 FORMAT (1H ,16X,10HCORRECT: ,22X,26H2 CORRECT ANSWERS POSSIB02380900 ! 242: 1LE) 02390900 ! 243: WRITE (NUVI, 70052) 02400900 ! 244: 70052 FORMAT (26X,22H+0.123E+01 +0.987E+01/ 02410900 ! 245: 1 26X,22H+0.123+001 +0.987+001) 02420900 ! 246: CT006* TEST 6 02430900 ! 247: IVTNUM = 6 02440900 ! 248: REMRKS = 'LEADING ZERO OPTIONAL' 02450900 ! 249: WRITE (NUVI, 80004) IVTNUM, REMRKS 02460900 ! 250: WRITE (NUVI, 80020) 02470900 ! 251: WRITE (NUVI, 70060) CHCVC 02480900 ! 252: 70060 FORMAT (26X,E11.4,2X,E11.4) 02490900 ! 253: IVINSP = IVINSP + 1 02500900 ! 254: WRITE (NUVI, 70051) 02510900 ! 255: WRITE (NUVI, 70061) 02520900 ! 256: 70061 FORMAT (26X,24H-0.2345E+02 -0.6879E+02/ 02530900 ! 257: 1 26X,24H-0.2345+002 -0.6879+002) 02540900 ! 258: C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 02550900 ! 259: WRITE (NUVI, 90002) 02560900 ! 260: WRITE (NUVI, 90013) 02570900 ! 261: WRITE (NUVI, 90014) 02580900 ! 262: C***** 02590900 ! 263: CT007* TEST 7 02600900 ! 264: IVTNUM = 7 02610900 ! 265: REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 02620900 ! 266: WRITE (NUVI, 80004) IVTNUM, REMRKS 02630900 ! 267: WRITE (NUVI, 80020) 02640900 ! 268: WRITE (NUVI, 70070) A1C(1) 02650900 ! 269: 70070 FORMAT (26X,E8.1,2X,E8.1) 02660900 ! 270: IVINSP = IVINSP + 1 02670900 ! 271: WRITE (NUVI, 70051) 02680900 ! 272: WRITE (NUVI, 70071) 02690900 ! 273: 70071 FORMAT (26X,18H+0.7E+03 +0.4E+03/ 02700900 ! 274: 1 26X,18H+0.7+003 +0.4+003) 02710900 ! 275: CT008* TEST 8 02720900 ! 276: IVTNUM = 8 02730900 ! 277: WRITE (NUVI, 80004) IVTNUM, REMRKS 02740900 ! 278: WRITE (NUVI, 80020) 02750900 ! 279: WRITE (NUVI, 70080) CHDVC 02760900 ! 280: 70080 FORMAT (26X,E14.7,2X,E14.7) 02770900 ! 281: IVINSP = IVINSP + 1 02780900 ! 282: WRITE (NUVI, 70051) 02790900 ! 283: WRITE (NUVI, 70081) 02800900 ! 284: 70081 FORMAT (26X,30H+0.9876543E-04 +0.1357913E-04/ 02810900 ! 285: 1 26X,30H+0.9876543-004 +0.1357913-004) 02820900 ! 286: CT009* TEST 9 02830900 ! 287: IVTNUM = 9 02840900 ! 288: WRITE (NUVI, 70090) IVTNUM 02850900 ! 289: 70090 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,31HLEADING PLUS SIGN/ZERO 02860900 ! 290: 1OPTIONAL/1H ,48X,21HFOR THE SECOND NUMBER) 02870900 ! 291: WRITE (NUVI, 80020) 02880900 ! 292: WRITE (NUVI, 70091) A2C(2,1) 02890900 ! 293: 70091 FORMAT (26X,F5.2,2X,E11.4) 02900900 ! 294: IVINSP = IVINSP + 1 02910900 ! 295: WRITE (NUVI, 70051) 02920900 ! 296: WRITE (NUVI, 70092) 02930900 ! 297: 70092 FORMAT (26X,18H19.34 +0.2468E+02/ 02940900 ! 298: 1 26X,18H19.34 +0.2468+002) 02950900 ! 299: CT010* TEST 10 02960900 ! 300: IVTNUM = 10 02970900 ! 301: WRITE (NUVI, 70100) IVTNUM 02980900 ! 302: 70100 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,31HLEADING PLUS SIGN/ZERO 02990900 ! 303: 1OPTIONAL/1H ,48X,20HFOR THE FIRST NUMBER) 03000900 ! 304: WRITE (NUVI, 80020) 03010900 ! 305: WRITE (NUVI, 70101) BVC 03020900 ! 306: 70101 FORMAT (26X,E10.3,2X,F4.1) 03030900 ! 307: IVINSP = IVINSP + 1 03040900 ! 308: WRITE (NUVI, 70051) 03050900 ! 309: WRITE (NUVI, 70102) 03060900 ! 310: 70102 FORMAT (26X,16H+0.765E+02 87.6/ 03070900 ! 311: 1 26X,16H+0.765+002 87.6) 03080900 ! 312: CT011* TEST 11 03090900 ! 313: IVTNUM = 11 03100900 ! 314: WRITE (NUVI, 80004) IVTNUM, REMRKS 03110900 ! 315: WRITE (NUVI, 70110) 03120900 ! 316: 70110 FORMAT (1H ,16X,9HCOMPUTED:,23X,25H3 COMPUTED LINES EXPECTED)03130900 ! 317: WRITE (NUVI,70111) QAVC, LM2C(1,2), LL1C(2) 03140900 ! 318: 70111 FORMAT (3(26X,F7.2,E11.4/)) 03150900 ! 319: IVINSP = IVINSP + 1 03160900 ! 320: WRITE (NUVI, 70112) 03170900 ! 321: 70112 FORMAT (1H ,16X,10HCORRECT: ,22X,30HEACH RESULT LINE SHOULD 03180900 ! 322: 1MATCH /1H ,48X,30HEITHER ONE OF THE 2 POSSIBLE / 03190900 ! 323: 2 1H ,48X,13HANSWERS BELOW) 03200900 ! 324: WRITE (NUVI, 70113) 03210900 ! 325: 70113 FORMAT (26X,18H +43.96+0.5407E+02/ 03220900 ! 326: 1 26X,18H +43.96+0.5407+002) 03230900 ! 327: C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 03240900 ! 328: WRITE (NUVI, 90002) 03250900 ! 329: WRITE (NUVI, 90013) 03260900 ! 330: WRITE (NUVI, 90014) 03270900 ! 331: C***** 03280900 ! 332: C***** TESTS 12 THRU 17: 03290900 ! 333: C***** FORMATTED READ AND WRITE STATEMENTS WITH 12.8.1 03300900 ! 334: C***** DOUBLE PRECISION VARIABLES IN AN I/O LIST. 12.8.2 03310900 ! 335: C***** D CONVERSION IS USED IN THE FORMAT STATEMENTS. 13.5.9.2.203320900 ! 336: C***** SOME D FORMAT DESCRIPTORS ARE REPEATED. (FIELD 13.3 03330900 ! 337: C***** WIDTH ALWAYS INCLUDES 6 EXTRA POSITIONS TO 13.5.9 03340900 ! 338: C***** PROVIDE FOR SIGN, DECIMAL POINT AND EXPONENT 13.5.9.2 03350900 ! 339: C***** AND 1 POSITION FOR OPTIONAL DIGIT ZERO BEFORE 03360900 ! 340: C***** THE DECIMAL POINT) 03370900 ! 341: C***** 03380900 ! 342: 02109 FORMAT (/8X, 17HD CONVERSION TEST/) 03390900 ! 343: WRITE (NUVI,02109) 03400900 ! 344: C***** INPUT CARD 5 03410900 ! 345: 02110 FORMAT ( 2X, D8.1) 03420900 ! 346: READ (IRVI,02110) DPAVD 03430900 ! 347: C***** INPUT CARDS 6, 7, 8 03440900 ! 348: 02111 FORMAT ( 2D10.3, D14.7, D18.11/ 3D21.14/ 2D16.9) 03450900 ! 349: READ (IRVI,02111) MCA3D(1,2,2), AC1D(2), BC2D(3,1), AC1D(1), 03460900 ! 350: 1 ZZDVD, AC1D(3), DPBVD, MCA3D(1,2,1), BC2D(1,2) 03470900 ! 351: CT012* TEST 12 03480900 ! 352: IVTNUM = 12 03490900 ! 353: WRITE (NUVI, 80004) IVTNUM, REMRKS 03500900 ! 354: WRITE (NUVI, 80020) 03510900 ! 355: WRITE (NUVI,70120) DPAVD 03520900 ! 356: 70120 FORMAT (26X,D8.1) 03530900 ! 357: IVINSP = IVINSP + 1 03540900 ! 358: WRITE (NUVI, 70121) 03550900 ! 359: 70121 FORMAT (1H ,16X,10HCORRECT: ,22X,26H3 CORRECT ANSWERS POSSIB03560900 ! 360: 1LE) 03570900 ! 361: WRITE (NUVI, 70122) 03580900 ! 362: 70122 FORMAT (26X,8H+0.1D+06/26X,8H+0.1E+06/26X,8H+0.1+006) 03590900 ! 363: CT013* TEST 13 03600900 ! 364: IVTNUM = 13 03610900 ! 365: REMRKS = 'LEADING ZERO OPTIONAL' 03620900 ! 366: WRITE (NUVI, 80004) IVTNUM, REMRKS 03630900 ! 367: WRITE (NUVI, 70130) 03640900 ! 368: 70130 FORMAT (1H ,16X,9HCOMPUTED:,23X,25H2 COMPUTED LINES EXPECTED)03650900 ! 369: WRITE (NUVI, 70131) MCA3D(1,2,2), AC1D(2) 03660900 ! 370: 70131 FORMAT (26X,D10.3 / 26X,D10.3) 03670900 ! 371: IVINSP = IVINSP + 1 03680900 ! 372: WRITE (NUVI, 70132) 03690900 ! 373: 70132 FORMAT (1H ,16X,10HCORRECT: ,22X,30HEACH RESULT LINE SHOULD 03700900 ! 374: 1MATCH /1H ,48X,30HONE OF THE 3 POSSIBLE ANSWERS / 03710900 ! 375: 2 1H ,48X,5HBELOW) 03720900 ! 376: WRITE (NUVI, 70133) 03730900 ! 377: 70133 FORMAT(26X,10H-0.334D-04/26X,10H-0.334E-04/26X,10H-0.334-004)03740900 ! 378: CT014* TEST 14 03750900 ! 379: IVTNUM = 14 03760900 ! 380: REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 03770900 ! 381: WRITE (NUVI, 80004) IVTNUM, REMRKS 03780900 ! 382: WRITE (NUVI, 80020) 03790900 ! 383: WRITE (NUVI, 70140) BC2D(3,1) 03800900 ! 384: 70140 FORMAT (26X,D14.7) 03810900 ! 385: IVINSP = IVINSP + 1 03820900 ! 386: WRITE (NUVI, 70121) 03830900 ! 387: WRITE (NUVI, 70141) 03840900 ! 388: 70141 FORMAT (26X,14H+0.7657654D+00/ 03850900 ! 389: 1 26X,14H+0.7657654E+00/ 03860900 ! 390: 2 26X,14H+0.7657654+000) 03870900 ! 391: CT015* TEST 15 03880900 ! 392: IVTNUM = 15 03890900 ! 393: WRITE (NUVI, 80004) IVTNUM, REMRKS 03900900 ! 394: WRITE (NUVI, 80020) 03910900 ! 395: WRITE (NUVI, 70150) AC1D(1) 03920900 ! 396: 70150 FORMAT (26X,D18.11) 03930900 ! 397: IVINSP = IVINSP + 1 03940900 ! 398: WRITE (NUVI, 70121) 03950900 ! 399: WRITE (NUVI, 70151) 03960900 ! 400: 70151 FORMAT (26X,18H+0.12345678901D+10/ 03970900 ! 401: 1 26X,18H+0.12345678901E+10/ 03980900 ! 402: 2 26X,18H+0.12345678901+010) 03990900 ! 403: CT016* TEST 16 04000900 ! 404: IVTNUM = 16 04010900 ! 405: WRITE (NUVI, 80004) IVTNUM, REMRKS 04020900 ! 406: WRITE (NUVI, 70110) 04030900 ! 407: WRITE (NUVI, 70160) ZZDVD,AC1D(3),DPBVD 04040900 ! 408: 70160 FORMAT (26X,D21.14 / 26X,D21.14 / 26X,D21.14) 04050900 ! 409: IVINSP = IVINSP + 1 04060900 ! 410: WRITE (NUVI, 70132) 04070900 ! 411: WRITE (NUVI, 70161) 04080900 ! 412: 70161 FORMAT (26X,21H+0.98765432109876D-01/ 04090900 ! 413: 1 26X,21H+0.98765432109876E-01/ 04100900 ! 414: 2 26X,21H+0.98765432109876-001) 04110900 ! 415: CT017* TEST 17 04120900 ! 416: IVTNUM = 17 04130900 ! 417: REMRKS = 'LEADING ZERO OPTIONAL' 04140900 ! 418: WRITE (NUVI, 80004) IVTNUM, REMRKS 04150900 ! 419: WRITE (NUVI, 70130) 04160900 ! 420: WRITE (NUVI, 70170) MCA3D(1,2,1), BC2D(1,2) 04170900 ! 421: 70170 FORMAT (26X,D16.9 /26X,D16.9) 04180900 ! 422: IVINSP = IVINSP + 1 04190900 ! 423: WRITE (NUVI, 70132) 04200900 ! 424: WRITE (NUVI, 70171) 04210900 ! 425: 70171 FORMAT (26X,16H-0.555555542D+03/ 04220900 ! 426: 1 26X,16H-0.555555542E+03/ 04230900 ! 427: 2 26X,16H-0.555555542+003) 04240900 ! 428: C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 04250900 ! 429: WRITE (NUVI, 90002) 04260900 ! 430: WRITE (NUVI, 90013) 04270900 ! 431: WRITE (NUVI, 90014) 04280900 ! 432: C***** 04290900 ! 433: C***** TESTS 18 THRU 22: 04300900 ! 434: C***** FORMATTED READ AND WRITE STATEMENTS WITH ARRAY 12.8.104310900 ! 435: C***** NAMES OF ALL TYPES IN AN I/O LIST. THE NUMBER OF 12.8.204320900 ! 436: C***** ITEMS IN THE LIST IS VARIABLE. SOME FIELD 13.3 04330900 ! 437: C***** DESCRIPTORS ARE REPEATED. 04340900 ! 438: C***** 04350900 ! 439: 02114 FORMAT (/8X, 44HTEST UNSUBSCRIPTED ARRAY NAMES IN I/O LISTS /) 04360900 ! 440: WRITE (NUVI,02114) 04370900 ! 441: C***** INPUT CARDS 9, 10 04380900 ! 442: 02115 FORMAT(2X,8(F3.1),8F3.1/8(2(F3.1))) 04390900 ! 443: READ (IRVI,02115) B1C,B3C 04400900 ! 444: C***** INPUT CARDS 11, 12 04410900 ! 445: 02116 FORMAT(4(D9.2),4D9.2/2X,4(D9.2)) 04420900 ! 446: READ (IRVI,02116) A3D, A2D 04430900 ! 447: C***** INPUT CARDS 13, 14 04440900 ! 448: 02117 FORMAT (2X,4(2X),5(D9.2)/4(2(F3.1))) 04450900 ! 449: READ (IRVI,02117) DPA1D, A2C 04460900 ! 450: CT018* TEST 18 04470900 ! 451: IVTNUM = 18 04480900 ! 452: WRITE (NUVI, 80004) IVTNUM 04490900 ! 453: WRITE (NUVI, 70130) 04500900 ! 454: WRITE (NUVI,70180) B1C 04510900 ! 455: 70180 FORMAT (26X,8(F3.1) / 26X,8(F3.1)) 04520900 ! 456: IVINSP = IVINSP + 1 04530900 ! 457: WRITE (NUVI, 70181) 04540900 ! 458: 70181 FORMAT (1H ,16X,10HCORRECT: ,22X,29HEACH RESULT LINE SHOULD 04550900 ! 459: 1EQUAL) 04560900 ! 460: WRITE (NUVI, 70182) 04570900 ! 461: 70182 FORMAT (26X, 24H9.91.19.92.29.93.39.94.4) 04580900 ! 462: CT019* TEST 19 04590900 ! 463: IVTNUM = 19 04600900 ! 464: WRITE (NUVI, 80004) IVTNUM, REMRKS 04610900 ! 465: WRITE (NUVI, 70130) 04620900 ! 466: WRITE (NUVI, 70190) A3D 04630900 ! 467: 70190 FORMAT (26X,4(D9.2) / 26X,4(D9.2)) 04640900 ! 468: IVINSP = IVINSP + 1 04650900 ! 469: WRITE (NUVI, 70132) 04660900 ! 470: WRITE (NUVI, 70191) 04670900 ! 471: 70191 FORMAT (26X,36H-0.99D+01-0.98D+01-0.97D+01-0.96D+01/ 04680900 ! 472: 1 26X,36H-0.99E+01-0.98E+01-0.97E+01-0.96E+01/ 04690900 ! 473: 2 26X,36H-0.99+001-0.98+001-0.97+001-0.96+001) 04700900 ! 474: CT020* TEST 20 04710900 ! 475: IVTNUM = 20 04720900 ! 476: REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 04730900 ! 477: WRITE (NUVI, 80004) IVTNUM, REMRKS 04740900 ! 478: WRITE (NUVI, 80020) 04750900 ! 479: WRITE (NUVI,70200) A2D 04760900 ! 480: 70200 FORMAT (26X,4(D9.2)) 04770900 ! 481: IVINSP = IVINSP + 1 04780900 ! 482: WRITE (NUVI, 70121) 04790900 ! 483: WRITE (NUVI, 70201) 04800900 ! 484: 70201 FORMAT (26X,36H+0.99D+01+0.98D+01+0.97D+01+0.96D+01/ 04810900 ! 485: 1 26X,36H+0.99E+01+0.98E+01+0.97E+01+0.96E+01/ 04820900 ! 486: 2 26X,36H+0.99+001+0.98+001+0.97+001+0.96+001) 04830900 ! 487: CT021* TEST 21 04840900 ! 488: IVTNUM = 21 04850900 ! 489: WRITE (NUVI, 80004) IVTNUM, REMRKS 04860900 ! 490: WRITE (NUVI, 70210) 04870900 ! 491: 70210 FORMAT (1H ,16X,9HCOMPUTED:,23X,25H5 COMPUTED LINES EXPECTED)04880900 ! 492: WRITE (NUVI,70211) DPA1D 04890900 ! 493: 70211 FORMAT (5(26X,D11.2/)) 04900900 ! 494: IVINSP = IVINSP + 1 04910900 ! 495: WRITE (NUVI, 70132) 04920900 ! 496: WRITE (NUVI, 70212) 04930900 ! 497: 70212 FORMAT (26X,11H +0.99D+01/ 04940900 ! 498: 1 26X,11H +0.99E+01/ 04950900 ! 499: 2 26X,11H +0.99+001) 04960900 ! 500: CT022* TEST 22 04970900 ! 501: IVTNUM = 22 04980900 ! 502: WRITE (NUVI, 80004) IVTNUM 04990900 ! 503: WRITE (NUVI, 70110) 05000900 ! 504: WRITE (NUVI,70220) A2C, B3C 05010900 ! 505: 70220 FORMAT (26X,8(F3.1) / 26X,8(F3.1) / 26X,8(F3.1)) 05020900 ! 506: IVINSP = IVINSP + 1 05030900 ! 507: WRITE (NUVI, 70181) 05040900 ! 508: WRITE (NUVI, 70221) 05050900 ! 509: 70221 FORMAT (26X,24H9.95.59.96.69.97.79.98.8) 05060900 ! 510: C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 05070900 ! 511: WRITE (NUVI, 90002) 05080900 ! 512: WRITE (NUVI, 90013) 05090900 ! 513: WRITE (NUVI, 90014) 05100900 ! 514: C***** 05110900 ! 515: C***** TESTS 23 THRU 30: 05120900 ! 516: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.905130900 ! 517: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 05140900 ! 518: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH. (D AND 05150900 ! 519: C***** F DESCRIPTORS ARE TESTED.) 05160900 ! 520: C***** 05170900 ! 521: 02121 FORMAT (/8X, 28HLEADING BLANK INSERTION TEST/) 05180900 ! 522: WRITE (NUVI,02121) 05190900 ! 523: CT023* TEST 23 05200900 ! 524: IVTNUM = 23 05210900 ! 525: WRITE (NUVI, 80004) IVTNUM, REMRKS 05220900 ! 526: WRITE (NUVI, 70230) 05230900 ! 527: 70230 FORMAT (1H ,48X,27HLEADING BLANKS ARE REQUIRED) 05240900 ! 528: WRITE (NUVI, 80020) 05250900 ! 529: WRITE (NUVI, 70231) AC1D(3) 05260900 ! 530: 70231 FORMAT (26X,D9.1) 05270900 ! 531: IVINSP = IVINSP + 1 05280900 ! 532: WRITE (NUVI, 70121) 05290900 ! 533: WRITE (NUVI, 70232) 05300900 ! 534: 70232 FORMAT (26X,9H +0.1D+00/26X,9H +0.1E+00/26X,9H +0.1+000) 05310900 ! 535: CT024* TEST 24 05320900 ! 536: IVTNUM = 24 05330900 ! 537: WRITE (NUVI, 80004) IVTNUM, REMRKS 05340900 ! 538: WRITE (NUVI, 70230) 05350900 ! 539: WRITE (NUVI, 80020) 05360900 ! 540: WRITE (NUVI, 70240) ZZDVD 05370900 ! 541: 70240 FORMAT (26X,D10.1) 05380900 ! 542: IVINSP = IVINSP + 1 05390900 ! 543: WRITE (NUVI, 70121) 05400900 ! 544: WRITE (NUVI, 70241) 05410900 ! 545: 70241 FORMAT(26X,10H +0.1D+00/26X,10H +0.1E+00/26X,10H +0.1+000)05420900 ! 546: CT025* TEST 25 05430900 ! 547: IVTNUM = 25 05440900 ! 548: WRITE (NUVI, 80004) IVTNUM, REMRKS 05450900 ! 549: WRITE (NUVI, 70230) 05460900 ! 550: WRITE (NUVI, 80020) 05470900 ! 551: WRITE (NUVI, 70250) ZZDVD 05480900 ! 552: 70250 FORMAT (26X,D11.1) 05490900 ! 553: IVINSP = IVINSP + 1 05500900 ! 554: WRITE (NUVI, 70121) 05510900 ! 555: WRITE (NUVI, 70251) 05520900 ! 556: 70251 FORMAT (26X,11H +0.1D+00/ 05530900 ! 557: 1 26X,11H +0.1E+00/ 05540900 ! 558: 2 26X,11H +0.1+000) 05550900 ! 559: CT026* TEST 26 05560900 ! 560: IVTNUM = 26 05570900 ! 561: WRITE (NUVI, 80004) IVTNUM, REMRKS 05580900 ! 562: WRITE (NUVI, 70230) 05590900 ! 563: WRITE (NUVI, 80020) 05600900 ! 564: WRITE (NUVI, 70260) ZZDVD 05610900 ! 565: 70260 FORMAT (26X,D12.1) 05620900 ! 566: IVINSP = IVINSP + 1 05630900 ! 567: WRITE (NUVI, 70121) 05640900 ! 568: WRITE (NUVI, 70261) 05650900 ! 569: 70261 FORMAT (26X,12H +0.1D+00/ 05660900 ! 570: 1 26X,12H +0.1E+00/ 05670900 ! 571: 2 26X,12H +0.1+000) 05680900 ! 572: CT027* TEST 27 05690900 ! 573: IVTNUM = 27 05700900 ! 574: REMRKS = 'LEADING PLUS OPTIONAL' 05710900 ! 575: WRITE (NUVI, 80004) IVTNUM, REMRKS 05720900 ! 576: WRITE (NUVI, 70230) 05730900 ! 577: WRITE (NUVI, 80020) 05740900 ! 578: WRITE (NUVI, 70270) CHAVC 05750900 ! 579: 70270 FORMAT (26X,2(F5.1)) 05760900 ! 580: IVINSP = IVINSP + 1 05770900 ! 581: WRITE (NUVI, 80022) 05780900 ! 582: WRITE (NUVI, 70271) 05790900 ! 583: 70271 FORMAT (26X,10H +1.0 +5.5) 05800900 ! 584: CT028* TEST 28 05810900 ! 585: IVTNUM = 28 05820900 ! 586: WRITE (NUVI, 80004) IVTNUM, REMRKS 05830900 ! 587: WRITE (NUVI, 70230) 05840900 ! 588: WRITE (NUVI, 80020) 05850900 ! 589: WRITE (NUVI, 70280) B3C(1,1,1) 05860900 ! 590: 70280 FORMAT (26X,2(F6.1)) 05870900 ! 591: IVINSP = IVINSP + 1 05880900 ! 592: WRITE (NUVI, 80022) 05890900 ! 593: WRITE (NUVI, 70281) 05900900 ! 594: 70281 FORMAT (26X,12H +9.9 +5.5) 05910900 ! 595: C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 05920900 ! 596: WRITE (NUVI, 90002) 05930900 ! 597: WRITE (NUVI, 90013) 05940900 ! 598: WRITE (NUVI, 90014) 05950900 ! 599: C***** 05960900 ! 600: CT029* TEST 29 05970900 ! 601: IVTNUM = 29 05980900 ! 602: WRITE (NUVI, 80004) IVTNUM, REMRKS 05990900 ! 603: WRITE (NUVI, 70230) 06000900 ! 604: WRITE (NUVI, 80020) 06010900 ! 605: WRITE (NUVI, 70290) B3C(1,1,1) 06020900 ! 606: 70290 FORMAT (26X,2(F7.1)) 06030900 ! 607: IVINSP = IVINSP + 1 06040900 ! 608: WRITE (NUVI, 80022) 06050900 ! 609: WRITE (NUVI, 70291) 06060900 ! 610: 70291 FORMAT (26X,14H +9.9 +5.5) 06070900 ! 611: CT030* TEST 30 06080900 ! 612: IVTNUM = 30 06090900 ! 613: WRITE (NUVI, 80004) IVTNUM, REMRKS 06100900 ! 614: WRITE (NUVI, 70230) 06110900 ! 615: WRITE (NUVI, 80020) 06120900 ! 616: WRITE (NUVI, 70300) CHAVC 06130900 ! 617: 70300 FORMAT (26X,2(F8.1)) 06140900 ! 618: IVINSP = IVINSP + 1 06150900 ! 619: WRITE (NUVI, 80022) 06160900 ! 620: WRITE (NUVI, 70301) 06170900 ! 621: 70301 FORMAT (26X,16H +1.0 +5.5) 06180900 ! 622: C***** TESTS 31 THRU 32: 06190900 ! 623: C***** FORMATS WITH G CONVERSIONS USING COMPLEX DATA 13.5.9.2.306200900 ! 624: C***** 06210900 ! 625: C***** INPUT CARD 15 06220900 ! 626: 02123 FORMAT( 3(G11.4), 3G11.4) 06230900 ! 627: READ (IRVI,02123) LL1C(1), LL1C(2), LL1C(3) 06240900 ! 628: 02124 FORMAT (/8X,17HG CONVERSION TEST/) 06250900 ! 629: WRITE (NUVI, 02124) 06260900 ! 630: CT031* TEST 31 06270900 ! 631: IVTNUM = 31 06280900 ! 632: REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 06290900 ! 633: WRITE (NUVI, 80004) IVTNUM, REMRKS 06300900 ! 634: WRITE (NUVI, 70130) 06310900 ! 635: WRITE (NUVI, 70310) LL1C(1), LL1C(2), LL1C(3) 06320900 ! 636: 70310 FORMAT (26X,G14.4,4X,2G11.4 / 26X,G14.4,4X,2G11.4) 06330900 ! 637: IVINSP = IVINSP + 1 06340900 ! 638: WRITE (NUVI, 70311) 06350900 ! 639: 70311 FORMAT(/1H ,16X,10HCORRECT: ,22X,31HCORRESPONDING LINES MUST06360900 ! 640: 1 MATCH ,/1H ,48X,31HEITHER OF THE FOLLOWING TWO , 06370900 ! 641: 2 /1H ,48X,31HCORRECT ANSWERS /) 06380900 ! 642: WRITE (NUVI, 70312) 06390900 ! 643: 70312 FORMAT (26X,36H +0.1235E+05 +1235. +123.5/ 06400900 ! 644: 1 26X,36H +12.35 +1.235 +0.1235// 06410900 ! 645: 2 26X,36H +0.1235+005 +1235. +123.5/ 06420900 ! 646: 3 26X,36H +12.35 +1.235 +0.1235) 06430900 ! 647: C***** TESTS 32 THRU 34: 06440900 ! 648: C***** ON READ, BUT NOT ON WRITE 06450900 ! 649: C***** SCALE FACTOR APPLIED TO F,E,D,G DESCRIPTORS 13.7.5.106460900 ! 650: C***** 06470900 ! 651: C***** INPUT CARD 16 06480900 ! 652: 02126 FORMAT(2PF8.3,-2PE9.4,F9.4,0PG9.4,D9.4,-2PE9.4,F9.4,D9.4,2PG9.4) 06490900 ! 653: READ(IRVI,02126)BVC, CHAVC, BC2D(1,4), A1C(1), BC2D(2,1), DPAVD 06500900 ! 654: 02127 FORMAT(/8X, 20HSCALE FACTOR ON READ/) 06510900 ! 655: WRITE (NUVI, 02127) 06520900 ! 656: CT032* TEST 32 06530900 ! 657: IVTNUM = 32 06540900 ! 658: WRITE (NUVI, 80004) IVTNUM, REMRKS 06550900 ! 659: WRITE (NUVI, 80020) 06560900 ! 660: WRITE (NUVI, 70320) BVC,CHAVC 06570900 ! 661: 70320 FORMAT (26X,F12.4,E12.4,F12.2,F12.3) 06580900 ! 662: IVINSP = IVINSP + 1 06590900 ! 663: WRITE (NUVI, 70051) 06600900 ! 664: WRITE (NUVI, 70321) 06610900 ! 665: 70321 FORMAT (30X,44H+98.7654 +0.9877E+04 +987654.00 +987.654/ 06620900 ! 666: 1 30X,44H+98.7654 +0.9877+004 +987654.00 +987.654) 06630900 ! 667: CT033* TEST 33 06640900 ! 668: IVTNUM = 33 06650900 ! 669: WRITE (NUVI, 80004) IVTNUM, REMRKS 06660900 ! 670: WRITE (NUVI, 80020) 06670900 ! 671: WRITE (NUVI, 70330) BC2D(1,4), A1C(1) 06680900 ! 672: 70330 FORMAT (26X,D12.4,E12.4,F12.3) 06690900 ! 673: IVINSP = IVINSP + 1 06700900 ! 674: WRITE (NUVI, 70121) 06710900 ! 675: WRITE (NUVI, 70331) 06720900 ! 676: 70331 FORMAT (26X,36H +0.8648D-02 +0.8648E+04 +8647.860/ 06730900 ! 677: 1 26X,36H +0.8648E-02 +0.8648E+04 +8647.860/ 06740900 ! 678: 2 26X,36H +0.8648-002 +0.8648+004 +8647.860) 06750900 ! 679: 70332 FORMAT (1H ,48X,5H OR) 06750*TI ! 680: WRITE (NUVI,70332) 06750*TI ! 681: 70333 FORMAT (26X,36H +0.8648D-02 +0.8648E+04 +8647.859/ 06750*TI ! 682: 1 26X,36H +0.8648E-02 +0.8648E+04 +8647.859/ 06750*TI ! 683: 2 26X,36H +0.8648-002 +0.8648+004 +8647.859) 06750*TI ! 684: WRITE (NUVI,70333) 06750*TI ! 685: CT034* TEST 34 06760900 ! 686: IVTNUM = 34 06770900 ! 687: WRITE (NUVI, 80004) IVTNUM, REMRKS 06780900 ! 688: WRITE (NUVI, 80020) 06790900 ! 689: WRITE (NUVI, 70340) BC2D(2,1), DPAVD 06800900 ! 690: 70340 FORMAT (26X,D12.4,G16.4) 06810900 ! 691: IVINSP = IVINSP + 1 06820900 ! 692: WRITE (NUVI, 70121) 06830900 ! 693: WRITE (NUVI, 70341) 06840900 ! 694: 70341 FORMAT (26X,24H +0.8658D+04 +98.77/ 06850900 ! 695: 1 26X,24H +0.8658E+04 +98.77/ 06860900 ! 696: 2 26X,24H +0.8658+004 +98.77) 06870900 ! 697: C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 06880900 ! 698: WRITE (NUVI, 90002) 06890900 ! 699: WRITE (NUVI, 90013) 06900900 ! 700: WRITE (NUVI, 90014) 06910900 ! 701: C***** 06920900 ! 702: C***** TESTS 35 AND 36: 06930900 ! 703: C***** SCALE FACTOR APPLIED TO F, E, D, G DESCRIPTORS 06940900 ! 704: C***** ON WRITE, BUT, NOT ON READ 06950900 ! 705: C***** 06960900 ! 706: C***** INPUT CARD 17 06970900 ! 707: 02128 FORMAT(F8.2,E9.4,F9.2,G9.3,D9.0,E9.4,F9.4,D9.2,G9.4) 06980900 ! 708: READ(IRVI,02128) CHBVC, A2C(2,1), AC1D(4), CHCVC, AC1D(5), DPBVD 06990900 ! 709: 02129 FORMAT(/8X, 21HSCALE FACTOR ON WRITE/) 07000900 ! 710: WRITE (NUVI, 02129) 07010900 ! 711: CT035* TEST 35 07020900 ! 712: IVTNUM = 35 07030900 ! 713: WRITE (NUVI, 80004) IVTNUM, REMRKS 07040900 ! 714: WRITE (NUVI, 80020) 07050900 ! 715: WRITE (NUVI, 70350) CHBVC, A2C(2,1), AC1D(4) 07060900 ! 716: 70350 FORMAT (26X,2PF12.2,-2PE12.4,F12.4,1PG12.2,D12.4) 07070900 ! 717: IVINSP = IVINSP + 1 07080900 ! 718: WRITE (NUVI, 70121) 07090900 ! 719: WRITE (NUVI, 70351) 07100900 ! 720: 70351 FORMAT (28X,58H +987.66 +0.0099E+06 +98.7654 +9.88E+0207110900 ! 721: 1 +8.6479D+02/28X,58H +987.66 +0.0099E+06 +98.7654 +9.88E+0207120900 ! 722: 2 +8.6479E+02/28X,58H +987.66 +0.0099+006 +98.7654 +9.88+00207130900 ! 723: 3 +8.6479+002) 07140900 ! 724: 70352 FORMAT (1H ,48X,5H OR) 07140*TI ! 725: WRITE (NUVI,70352) 07140*TI ! 726: 70353 FORMAT (28X,58H +987.66 +0.0099E+06 +98.76539 +9.88E+0207140*TI ! 727: 1 +8.6479D+02/28X,58H +987.66 +0.0099E+06 +98.76539 +9.88E+0207140*TI ! 728: 2 +8.6479E+02/28X,58H +987.66 +0.0099+006 +98.76539 +9.88+00207140*TI ! 729: 3 +8.6479+002) 07140*TI ! 730: WRITE (NUVI,70353) 07140*TI ! 731: CT036* TEST 36 07150900 ! 732: IVTNUM = 36 07160900 ! 733: WRITE (NUVI, 80004) IVTNUM, REMRKS 07170900 ! 734: WRITE (NUVI, 80020) 07180900 ! 735: WRITE(NUVI,70360) CHCVC, AC1D(5), DPBVD 07190900 ! 736: 70360 FORMAT (26X,-2PE12.4,2PF12.2,1PD12.4,2PG16.4) 07200900 ! 737: IVINSP = IVINSP + 1 07210900 ! 738: WRITE (NUVI, 70121) 07220900 ! 739: WRITE (NUVI, 70361) 07230900 ! 740: 70361 FORMAT(27X,47H+0.0086E+06 +8647.86 +8.6579D+03 +9877.07240900 ! 741: 1 /27X,47H+0.0086E+06 +8647.86 +8.6579E+03 +9877.07250900 ! 742: 2 /27X,47H+0.0086+006 +8647.86 +8.6579+003 +9877.)07260900 ! 743: CBB** ********************** BBCSUM0 **********************************07270900 ! 744: C**** WRITE OUT TEST SUMMARY 07280900 ! 745: C**** 07290900 ! 746: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 07300900 ! 747: WRITE (I02, 90004) 07310900 ! 748: WRITE (I02, 90014) 07320900 ! 749: WRITE (I02, 90004) 07330900 ! 750: WRITE (I02, 90020) IVPASS 07340900 ! 751: WRITE (I02, 90022) IVFAIL 07350900 ! 752: WRITE (I02, 90024) IVDELE 07360900 ! 753: WRITE (I02, 90026) IVINSP 07370900 ! 754: WRITE (I02, 90028) IVTOTN, IVTOTL 07380900 ! 755: CBE** ********************** BBCSUM0 **********************************07390900 ! 756: CBB** ********************** BBCFOOT0 **********************************07400900 ! 757: C**** WRITE OUT REPORT FOOTINGS 07410900 ! 758: C**** 07420900 ! 759: WRITE (I02,90016) ZPROG, ZPROG 07430900 ! 760: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 07440900 ! 761: WRITE (I02,90019) 07450900 ! 762: CBE** ********************** BBCFOOT0 **********************************07460900 ! 763: CBB** ********************** BBCFMT0A **********************************07470900 ! 764: C**** FORMATS FOR TEST DETAIL LINES 07480900 ! 765: C**** 07490900 ! 766: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 07500900 ! 767: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 07510900 ! 768: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 07520900 ! 769: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 07530900 ! 770: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 07540900 ! 771: 1I6,/,1H ,15X,10HCORRECT= ,I6) 07550900 ! 772: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07560900 ! 773: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 07570900 ! 774: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07580900 ! 775: 1A21,/,1H ,16X,10HCORRECT= ,A21) 07590900 ! 776: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 07600900 ! 777: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 07610900 ! 778: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 07620900 ! 779: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 07630900 ! 780: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 07640900 ! 781: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 07650900 ! 782: 80050 FORMAT (1H ,48X,A31) 07660900 ! 783: CBE** ********************** BBCFMT0A **********************************07670900 ! 784: CBB** ********************** BBCFMAT1 **********************************07680900 ! 785: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 07690900 ! 786: C**** 07700900 ! 787: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07710900 ! 788: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 07720900 ! 789: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 07730900 ! 790: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 07740900 ! 791: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 07750900 ! 792: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 07760900 ! 793: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 07770900 ! 794: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 07780900 ! 795: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07790900 ! 796: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 07800900 ! 797: 21H(,F12.5,2H, ,F12.5,1H)) 07810900 ! 798: CBE** ********************** BBCFMAT1 **********************************07820900 ! 799: CBB** ********************** BBCFMT0B **********************************07830900 ! 800: C**** FORMAT STATEMENTS FOR PAGE HEADERS 07840900 ! 801: C**** 07850900 ! 802: 90002 FORMAT (1H1) 07860900 ! 803: 90004 FORMAT (1H ) 07870900 ! 804: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 07880900 ! 805: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 07890900 ! 806: 90008 FORMAT (1H ,21X,A13,A17) 07900900 ! 807: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 07910900 ! 808: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 07920900 ! 809: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 07930900 ! 810: 1 7X,7HREMARKS,24X) 07940900 ! 811: 90014 FORMAT (1H ,46H----------------------------------------------, 07950900 ! 812: 1 33H---------------------------------) 07960900 ! 813: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 07970900 ! 814: C**** 07980900 ! 815: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 07990900 ! 816: C**** 08000900 ! 817: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 08010900 ! 818: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 08020900 ! 819: 1 A13) 08030900 ! 820: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 08040900 ! 821: C**** 08050900 ! 822: C**** FORMAT STATEMENTS FOR RUN SUMMARY 08060900 ! 823: C**** 08070900 ! 824: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 08080900 ! 825: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 08090900 ! 826: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 08100900 ! 827: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 08110900 ! 828: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 08120900 ! 829: CBE** ********************** BBCFMT0B **********************************08130900 ! 830: C***** 08140900 ! 831: C***** END OF TEST SEGMENT 21 08150900 ! 832: STOP 08160900 ! 833: END 08170900
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.