![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM403.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 FM403.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***********************************************************************00010403 ! 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 00020403 ! 6: C***** FM403 FMTRW - (020) 00030403 ! 7: C***** 00040403 ! 8: C***********************************************************************00050403 ! 9: C***** GENERAL PURPOSE SUBSET REFS00060403 ! 10: C***** TO TEST SIMPLE FORMAT AND FORMATTED DATA 12.9.5.200070403 ! 11: C***** TRANSFER STATEMENTS IN EXTERNAL SEQUENTIAL I/O SO 13.1.1 00080403 ! 12: C***** THAT THESE FEATURES MAY BE USED IN OTHER TEST 12.8.1 00090403 ! 13: C***** PROGRAM SEGMENTS FOR INTEGER, REAL, AND LOGICAL 00100403 ! 14: C***** DATA TYPES. 00110403 ! 15: C***** RESTRICTIONS OBSERVED 12.8.2 00120403 ! 16: C***** * ALL FORMAT STATEMENTS ARE LABELED 13.1.1 00130403 ! 17: C***** * H DESCRIPTOR ARE NEVER REPEATED 13.2.1 00140403 ! 18: C***** * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND 00150403 ! 19: C***** W IS EQUAL TO OR GREATER THAN D 00160403 ! 20: C***** * FIELD WIDTH IS NEVER ZERO 13.2.1 00170403 ! 21: C***** * IF AN I/O LIST SPECIFIES AT LEAST ONE LIST ITEM 13.3 00180403 ! 22: C***** AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00190403 ! 23: C***** IN THE FORMAT SPECIFICATION 00200403 ! 24: C***** * ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS 13.3 00210403 ! 25: C***** * NEGATIVE OUTPUT VALUES ARE SIGNED 13.5.9 00220403 ! 26: C***** * FIELD WIDTH NEVER EXCEEDED BY OUTPUT 13.5.9 00230403 ! 27: C***** * FOR I EDITING, EXTERNAL INPUT FIELDS ARE 13.5.9.100240403 ! 28: C***** INTEGER CONSTANTS 00250403 ! 29: C***** GENERAL COMMENTS 00260403 ! 30: C***** PLUS SIGNS FOR INPUT FIELDS ARE USUALLY OMITTED 13.5.9 00270403 ! 31: C***** FORMATTED WRITES WITHOUT AN I/O LIST (FORMAT 13.5.2 00280403 ! 32: C***** STATEMENTS TEST H AND X DESCRIPTORS AND SLASH 13.5.3 00290403 ! 33: C***** RECORD DIVIDERS) 13.5.4 00300403 ! 34: C***** 00310403 ! 35: CBB** ********************** BBCCOMNT **********************************00320403 ! 36: C**** 00330403 ! 37: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00340403 ! 38: C**** VERSION 2.0 00350403 ! 39: C**** 00360403 ! 40: C**** 00370403 ! 41: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00380403 ! 42: C**** GENERAL SERVICES ADMINISTRATION 00390403 ! 43: C**** FEDERAL SOFTWARE TESTING CENTER 00400403 ! 44: C**** 5203 LEESBURG PIKE, SUITE 1100 00410403 ! 45: C**** FALLS CHURCH, VA. 22041 00420403 ! 46: C**** 00430403 ! 47: C**** (703) 756-6153 00440403 ! 48: C**** 00450403 ! 49: CBE** ********************** BBCCOMNT **********************************00460403 ! 50: C INPUT DATA TO THIS SEGMENT CONSISTS OF 27 CARD IMAGES IN COL. 1 - 80 00470403 ! 51: COL. 1----------------------------------------------------------61 00480403 ! 52: CARD 1 999 00490403 ! 53: CARD 2 555554444 00500403 ! 54: CARD 3 666 777777 8 00510403 ! 55: CARD 4 333333111112222222255555444444444444 00520403 ! 56: CARD 5 7.7123456.7 00530403 ! 57: CARD 6 8.889.9997.123456 00540403 ! 58: CARD 7 5.44446.5555533.133.133.133.1444.1 00550403 ! 59: CARD 8 5555.15555.1 66666.166666.1 44.22 00560403 ! 60: CARD 9 2.12.12.12.12.1666.3334.3334.3334.333 00570403 ! 61: CARD 10 -0.1E+01+0.22E-01 0.333E+02 0.4444E+03-0.55555E-03+0.666666E+ 00580403 ! 62: COL. 62------------77 00590403 ! 63: CARD 10 00+0.9876543E+12 00600403 ! 64: COL. 1----------------------------------------------------------61 00610403 ! 65: CARD 11 TABC 00620403 ! 66: CARD 12 FDEFFGHIT*+T1F/).TRUE..FALSE. 00630403 ! 67: CARD 13 -9.9-9.9-9.9-9.9 00640403 ! 68: CARD 14 9999999999 00650403 ! 69: CARD 15 .9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9 00660403 ! 70: CARD 16 TFTFTFTFTF 00670403 ! 71: CARD 17 99999999 00680403 ! 72: CARD 18 9999999999999999TFFT9.99.99.99.99.9 00690403 ! 73: CARD 19 T F T F 00700403 ! 74: CARD 20 3334444.555550 00710403 ! 75: CARD 21 9876.5498.7654E2 9876.54 987.654 86.4786E286.4786 00720403 ! 76: CARD 22 9.8765698.7654E2 9876.54 987.654 86.4786E286.4786 00730403 ! 77: CARD 23 122333544888611222 00740403 ! 78: CARD 24 455666233444966111 00750403 ! 79: CARD 25 788999377555899777 00760403 ! 80: CARD 26 11112 334 559 880 11 00770403 ! 81: CARD 27 6 778 995 441 222 00 00780403 ! 82: C***** 00790403 ! 83: C***** S P E C I F I C A T I O N S SEGMENT 020 00800403 ! 84: C***** 00810403 ! 85: DIMENSION EP1S(33),CMA1S(5),IAC1I(5),IAC2I(2,7),MCA1I(5) 00820403 ! 86: REAL A1S(5),A2S(2,2),A3S(3,3,3),AC1S(25),AC2S(5,6) 00830403 ! 87: INTEGER I2I(2,2),I3I(2,2,2),MCA3I(2,3,3) 00840403 ! 88: LOGICAL MCA1B(7),A1B(2),A2B(2,2),A3B(2,2,2),AVB,CVB,DVB ,MCBVB 00850403 ! 89: C***** 00860403 ! 90: CBB** ********************** BBCINITA **********************************00870403 ! 91: C**** SPECIFICATION STATEMENTS 00880403 ! 92: C**** 00890403 ! 93: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00900403 ! 94: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00910403 ! 95: CBE** ********************** BBCINITA **********************************00920403 ! 96: CBB** ********************** BBCINITB **********************************00930403 ! 97: C**** INITIALIZE SECTION 00940403 ! 98: DATA ZVERS, ZVERSD, ZDATE 00950403 ! 99: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00960403 ! 100: DATA ZCOMPL, ZNAME, ZTAPE 00970403 ! 101: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00980403 ! 102: DATA ZPROJ, ZTAPED, ZPROG 00990403 ! 103: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 01000403 ! 104: DATA REMRKS /' '/ 01010403 ! 105: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 01020403 ! 106: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 01030403 ! 107: C**** 01040403 ! 108: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 01050403 ! 109: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 01060403 ! 110: CZ03 ZPROG = 'PROGRAM NAME' 01070403 ! 111: ZDATE = '07-Nov-85 ' *RP ! 112: ZCOMPL = 'CCI 5.2 ' *RP ! 113: ZPROJ = 'TC-85- -410' *RP ! 114: ZNAME = ' ' *RP ! 115: ZTAPE = ' ' *RP ! 116: ZTAPED = '850703 ' *RP ! 117: C 01140403 ! 118: IVPASS = 0 01150403 ! 119: IVFAIL = 0 01160403 ! 120: IVDELE = 0 01170403 ! 121: IVINSP = 0 01180403 ! 122: IVTOTL = 0 01190403 ! 123: IVTOTN = 0 01200403 ! 124: ICZERO = 0 01210403 ! 125: C 01220403 ! 126: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 01230403 ! 127: I01 = 05 01240403 ! 128: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 01250403 ! 129: I02 = 06 01260403 ! 130: C 01270403 ! 131: I01 = 5 01280403 ! 132: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 01290403 ! 133: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 01300403 ! 134: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 01310403 ! 135: C 01320403 ! 136: I02 = 6 01330403 ! 137: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 01340403 ! 138: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 01350403 ! 139: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 01360403 ! 140: C 01370403 ! 141: CBE** ********************** BBCINITB **********************************01380403 ! 142: C***** I N P U T - O U T P U T ASSIGNMENT STATEMENTS 01390403 ! 143: IRVI = I01 01400403 ! 144: NUVI = I02 01410403 ! 145: IVTOTL = 59 01420403 ! 146: ZPROG = 'FM403' 01430403 ! 147: CBB** ********************** BBCHED0A **********************************01440403 ! 148: C**** 01450403 ! 149: C**** WRITE REPORT TITLE 01460403 ! 150: C**** 01470403 ! 151: WRITE (I02, 90002) 01480403 ! 152: WRITE (I02, 90006) 01490403 ! 153: WRITE (I02, 90007) 01500403 ! 154: WRITE (I02, 90008) ZVERS, ZVERSD 01510403 ! 155: WRITE (I02, 90009) ZPROG, ZPROG 01520403 ! 156: WRITE (I02, 90010) ZDATE, ZCOMPL 01530403 ! 157: CBE** ********************** BBCHED0A **********************************01540403 ! 158: C***** HEADER FORMAT STATEMENT 01550403 ! 159: 2000 FORMAT ( // 2X,37HFMTRW - (020) FORMATTED DATA TRANSFER//2X, 01560403 ! 160: 141HSUBSET REFS - 12.9.5.2 13.3 13.5.9 ) 01570403 ! 161: WRITE (NUVI,2000) 01580403 ! 162: CBB** ********************** BBCHED0B **********************************01590403 ! 163: C**** WRITE DETAIL REPORT HEADERS 01600403 ! 164: C**** 01610403 ! 165: WRITE (I02,90004) 01620403 ! 166: WRITE (I02,90004) 01630403 ! 167: WRITE (I02,90013) 01640403 ! 168: WRITE (I02,90014) 01650403 ! 169: WRITE (I02,90015) IVTOTL 01660403 ! 170: CBE** ********************** BBCHED0B **********************************01670403 ! 171: CT001* TEST 1 - FORMAT WITH DIGITS 0-9 IN H FIELDS 01680403 ! 172: IVTNUM = 1 01690403 ! 173: REMRKS = '2 COMPUTED LINES EXPECTED' 01700403 ! 174: WRITE (I02,80004) IVTNUM, REMRKS 01710403 ! 175: WRITE (I02,80020) 01720403 ! 176: WRITE (I02,70010) 01730403 ! 177: 70010 FORMAT (25X,22H 10101010101010101010,9H999999999,8H88888888/27X, 01740403 ! 178: 17H7777777,6H666666,5H55555,4H4444,3H333,2H22,1H1) 01750403 ! 179: IVINSP = IVINSP + 1 01760403 ! 180: WRITE (I02,70011) 01770403 ! 181: 70011 FORMAT(1H ,16X,10HCORRECT: ,22X,29HCORRESPONDING LINE MUST MATCH)01780403 ! 182: WRITE (I02,70012) 01790403 ! 183: 70012 FORMAT (25X,' 1010101010101010101099999999988888888', 01800403 ! 184: 1 /25X,' 7777777666666555554444333221 ') 01810403 ! 185: CT002* TEST 2 - FORMAT CONTAINING ALL LETTERS (A-Z) IN H FIELDS AND 01820403 ! 186: C***** A VARIABLE NUMBER OF BLANKS IN H AND X FIELDS 01830403 ! 187: IVTNUM = 2 01840403 ! 188: REMRKS = '9 COMPUTED LINES EXPECTED' 01850403 ! 189: WRITE (I02,80004) IVTNUM, REMRKS 01860403 ! 190: WRITE (I02,80020) 01870403 ! 191: WRITE (I02,70020) 01880403 ! 192: 70020 FORMAT(27X,3HAAA,5X,5H ,3HBBB,10X,3HCCC/28X,3HDDD,9X,3HEEE 01890403 ! 193: 1,9H ,3HFFF/29X,3HGGG,8X,3HHHH,8H ,3HIII/27X,3H 01900403 ! 194: 2,3HJJJ,7H ,3HKKK,7X,3HLLL/31X,3HMMM,6X,3HNNN,6H ,3HOOO/01910403 ! 195: 3 32X,3HPPP,5H ,3HQQQ,5X,3HRRR/33X,3HSSS,4X,3HTTT,4H ,3HUUU/01920403 ! 196: 4 27X,101930403 ! 197: 53H VVV ,3HWWW,3X,3HXXX/37X,3HYYY,3X,3HZZZ) 01940403 ! 198: IVINSP = IVINSP + 1 01950403 ! 199: WRITE (I02,70011) 01960403 ! 200: WRITE (I02,70021) 01970403 ! 201: 70021 FORMAT (27X,'AAA BBB CCC', 01980403 ! 202: 1 /27X,' DDD EEE FFF ', 01990403 ! 203: 2 /27X,' GGG HHH III ', 02000403 ! 204: 3 /27X,' JJJ KKK LLL ', 02010403 ! 205: 4 /27X,' MMM NNN OOO ', 02020403 ! 206: 5 /27X,' PPP QQQ RRR ', 02030403 ! 207: 6 /27X,' SSS TTT UUU ', 02040403 ! 208: 7 /27X,' VVV WWW XXX ', 02050403 ! 209: 8 /27X,' YYY ZZZ ') 02060403 ! 210: CT003* TEST 3 - FORMAT CONTAINING H FIELD WITH ALL POSSIBLE 02070403 ! 211: C***** SPECIAL CHARACTERS 02080403 ! 212: IVTNUM = 3 02090403 ! 213: WRITE (I02,80004) IVTNUM 02100403 ! 214: WRITE (I02,80020) 02110403 ! 215: WRITE (I02,70030) 02120403 ! 216: 70030 FORMAT (25X,21H = + - * / ( ) , . ') 02130403 ! 217: IVINSP = IVINSP + 1 02140403 ! 218: WRITE (I02,80022) 02150403 ! 219: WRITE (I02,70031) 02160403 ! 220: 70031 FORMAT (25X, ' = + - * / ( ) , . ''') 02170403 ! 221: C***** FORMAT TO TEST VERTICAL SPACING 02180403 ! 222: C***** 12.9.5.2.3 02190403 ! 223: CT004* TEST 4 - FORMAT STATEMENT ENDING WITH ONE SLASH DESCRIPTOR 02200403 ! 224: IVTNUM = 4 02210403 ! 225: REMRKS = 'SLASH DESCRIPTOR' 02220403 ! 226: WRITE (I02,80004) IVTNUM, REMRKS 02230403 ! 227: WRITE (I02,70040) 02240403 ! 228: 70040 FORMAT(15X, 30H FORMAT(14H SKIP 1 LINE02250403 ! 229: 1 /) /) 02260403 ! 230: IVINSP = IVINSP + 1 02270403 ! 231: WRITE (I02,70041) 02280403 ! 232: 70041 FORMAT(17X,34HONE BLANK LINE SHOULD APPEAR ABOVE) 02290403 ! 233: C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 02300403 ! 234: WRITE (I02,90002) 02310403 ! 235: WRITE (I02,90013) 02320403 ! 236: WRITE (I02,90014) 02330403 ! 237: CT005* TEST 5 - FORMAT STATEMENT ENDING WITH TWO SLASH DESCRIPTORS 02340403 ! 238: IVTNUM = 5 02350403 ! 239: WRITE (I02,80004) IVTNUM 02360403 ! 240: WRITE (I02,70050) 02370403 ! 241: 70050 FORMAT(15X,32H FORMAT(15H SKIP 2 LINES //) //) 02380403 ! 242: IVINSP = IVINSP + 1 02390403 ! 243: WRITE (I02,70051) 02400403 ! 244: 70051 FORMAT(17X,35HTWO BLANK LINES SHOULD APPEAR ABOVE) 02410403 ! 245: CT006* TEST 6 - FORMAT STATEMENT ENDING WITH THREE SLASH DESCRIPTORS 02420403 ! 246: IVTNUM = 6 02430403 ! 247: WRITE (I02,80004) IVTNUM 02440403 ! 248: WRITE (I02,70060) 02450403 ! 249: 70060 FORMAT(15X,33H FORMAT(16H SKIP 3 LINES ///) ///) 02460403 ! 250: IVINSP = IVINSP + 1 02470403 ! 251: WRITE (I02,70061) 02480403 ! 252: 70061 FORMAT(17X,37HTHREE BLANK LINES SHOULD APPEAR ABOVE) 02490403 ! 253: CT007* TEST 7 - FORMAT STATEMENT CONTAINING IMBEDDED SLASH DESCRIPTORS 02500403 ! 254: IVTNUM = 7 02510403 ! 255: REMRKS = 'IMBEDDED SLASHES' 02520403 ! 256: WRITE (I02,80004) IVTNUM, REMRKS 02530403 ! 257: WRITE (I02,70070) 02540403 ! 258: 70070 FORMAT( 17X,32H1 BLANK LINE SHOULD APPEAR BELOW // 02550403 ! 259: 1 17X,33H2 BLANK LINES SHOULD APPEAR BELOW/// 02560403 ! 260: 2 17X,33H3 BLANK LINES SHOULD APPEAR BELOW/ 3(/), 02570403 ! 261: 3 17X,33H0 BLANK LINES SHOULD APPEAR BELOW/ 02580403 ! 262: 4 17X,33HEND IMBEDDED SLASHES TEST ) 02590403 ! 263: IVINSP = IVINSP + 1 02600403 ! 264: CT008* TEST 8 - FORMS CONTROL USING '0' FOR DOUBLE SPACING 02610403 ! 265: IVTNUM = 8 02620403 ! 266: REMRKS = 'DOUBLE SPACE' 02630403 ! 267: WRITE (I02,80004) IVTNUM, REMRKS 02640403 ! 268: WRITE (I02,70080) 02650403 ! 269: 70080 FORMAT( 17X,33H1 BLANK LINE SHOULD APPEAR BELOW / 1H0, 02660403 ! 270: 1 17X,33HEND DOUBLE SPACE TEST ) 02670403 ! 271: IVINSP = IVINSP + 1 02680403 ! 272: CT009* TEST 9 - FORMS CONTROL USING '+' FOR OVERPRINTING 02690403 ! 273: IVTNUM = 9 02700403 ! 274: REMRKS = 'OVERPRINT' 02710403 ! 275: WRITE (I02,80004) IVTNUM, REMRKS 02720403 ! 276: WRITE (I02,70090) 02730403 ! 277: 70090 FORMAT(/17X,27H!FIRST PRINT LINE! OVER,/1H+, 02740403 ! 278: 1 17X,50H P R I N T !SECOND PRINT LINE!)02750403 ! 279: IVINSP = IVINSP + 1 02760403 ! 280: CT010* TEST 10 - FORMS CONTROL USING '1' FOR PAGE EJECTION 02770403 ! 281: IVTNUM = 10 02780403 ! 282: REMRKS = 'PAGE ADVANCE' 02790403 ! 283: WRITE (I02,80004) IVTNUM, REMRKS 02800403 ! 284: WRITE (I02,70100) 02810403 ! 285: 70100 FORMAT(/17X,41HTHIS SHOULD BE THE LAST LINE ON THIS PAGE/, 02820403 ! 286: 157H1 NEW PAGE: END OF VERTICAL SPACING TESTS) 02830403 ! 287: IVINSP = IVINSP + 1 02840403 ! 288: C WRITE PAGE HEADERS 02850403 ! 289: WRITE (I02,90004) 02860403 ! 290: WRITE (I02,90013) 02870403 ! 291: WRITE (I02,90014) 02880403 ! 292: C***** FORMATTED DATA TRANSFER I/O STATEMENTS WITH INTEGER 12.8.1 02890403 ! 293: C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. (THE 12.8.2 02900403 ! 294: C***** NUMBER OF ITEMS IN THE LIST IS VARIABLE.) SOME 13.2.1 02910403 ! 295: C***** FORMAT STATEMENTS CONTAIN REPEATED FIELDS. 02920403 ! 296: C***** FORMATS CONTAIN I EDIT DESCRIPTORS. 13.5.9.1 02930403 ! 297: C***** FIELD WIDTHS ARE FROM 1 TO 5 DIGITS. 13.3 02940403 ! 298: C***** INPUT CARD 1 02950403 ! 299: 2009 FORMAT (2X,I3) 02960403 ! 300: READ (IRVI,2009) JACVI 02970403 ! 301: C***** INPUT CARD 2 02980403 ! 302: 2010 FORMAT (1X,I5,1X,I4) 02990403 ! 303: READ (IRVI,2010) KBCVI, IAC1I(1) 03000403 ! 304: C***** INPUT CARD 3 03010403 ! 305: 2011 FORMAT (2X,I3,2X,3I2,2X,I1) 03020403 ! 306: READ (IRVI,2011) IAC2I(1,2), LCCVI, IAC1I(5), IHDVI, MCA3I(1,2,3) 03030403 ! 307: C***** INPUT CARD 4 03040403 ! 308: 2012 FORMAT (2X,2(I3),1(I5), 4I2 ,5I1,3 I4 ) 03050403 ! 309: READ (IRVI,2012) MDCVI, IAC2I(2,2), IAC1I(4), NECVI, IAC1I(3), 03060403 ! 310: 1 IAC2I(2,3), IAC2I(2,1), MRRVI, IGDVI, KGVI, IEDVI, IAC2I(1,1)03070403 ! 311: 2 ,IAC1I(2), IAC2I(2,7), MCA3I(2,1,3) 03080403 ! 312: CT011* TEST 11 - I CONVERSION 03090403 ! 313: IVTNUM = 11 03100403 ! 314: WRITE (I02,80004) IVTNUM 03110403 ! 315: WRITE (I02,80020) 03120403 ! 316: WRITE (I02,70110) JACVI 03130403 ! 317: 70110 FORMAT (25X,I5) 03140403 ! 318: IVINSP = IVINSP + 1 03150403 ! 319: WRITE (I02,80022) 03160403 ! 320: WRITE (I02,70111) 03170403 ! 321: 70111 FORMAT (25X,5H 999) 03180403 ! 322: CT012* TEST 12 - I CONVERSION 03190403 ! 323: IVTNUM = 12 03200403 ! 324: WRITE (I02,80004) IVTNUM 03210403 ! 325: WRITE (I02,80020) 03220403 ! 326: WRITE (I02,70120) KBCVI, IAC1I(1) 03230403 ! 327: 70120 FORMAT (26X,I5,1X,I4) 03240403 ! 328: IVINSP = IVINSP + 1 03250403 ! 329: WRITE (I02,80022) 03260403 ! 330: WRITE (I02,70121) 03270403 ! 331: 70121 FORMAT (26X,10H 5555 4444) 03280403 ! 332: CT013* TEST 13 - I CONVERSION 03290403 ! 333: IVTNUM = 13 03300403 ! 334: WRITE (I02,80004) IVTNUM 03310403 ! 335: WRITE (I02,80020) 03320403 ! 336: WRITE (I02,70130) IAC2I(1,2),LCCVI, IAC1I(5), IHDVI, MCA3I(1,2,3) 03330403 ! 337: 70130 FORMAT (27X,I3,2X,3I2,2X,I1) 03340403 ! 338: IVINSP = IVINSP + 1 03350403 ! 339: WRITE (I02,80022) 03360403 ! 340: WRITE (I02,70131) 03370403 ! 341: 70131 FORMAT (27X,14H666 777777 8) 03380403 ! 342: CT014* TEST 14 - I CONVERSION 03390403 ! 343: IVTNUM = 14 03400403 ! 344: WRITE (I02,80004) IVTNUM 03410403 ! 345: WRITE (I02,80020) 03420403 ! 346: WRITE (I02,70140) 03430403 ! 347: WRITE (I02,70140) MDCVI, IAC2I(2,2), IAC1I(4), NECVI, IAC1I(3), 03440403 ! 348: 1 IAC2I(2,3), IAC2I(2,1), MRRVI, IGDVI, KGVI, IEDVI, IAC2I(1,1)03450403 ! 349: 2 ,IAC1I(2), IAC2I(2,7), MCA3I(2,1,3) 03460403 ! 350: 70140 FORMAT (27X,2(I3),1(I5), 4I2 ,5I1,3 I4 ) 03470403 ! 351: IVINSP = IVINSP + 1 03480403 ! 352: WRITE (I02,80022) 03490403 ! 353: WRITE (I02,70141) 03500403 ! 354: 70141 FORMAT (27X,36H333333111112222222255555444444444444) 03510403 ! 355: C***** FORMATTED DATA TRANSFER I/O STATEMENTS WITH REAL 12.8.1 03520403 ! 356: C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST.(THE 12.8.2 03530403 ! 357: C***** NUMBER OF ITEMS IN THE LIST IS VARIABLE.) ONLY F 13.5.9.2 03540403 ! 358: C***** EDIT DESCRIPTORS ARE USED IN THE FORMAT 13.5.9.2.1 03550403 ! 359: C***** STATEMENTS. SOME F EDIT DESCRIPTORS ARE REPEATED. 13.3 03560403 ! 360: C***** FIELD WIDTH ALWAYS CONTAINS 1 POSITION FOR DECIMAL PT. 03570403 ! 361: C***** FIELD WIDTH IS FROM 1 TO 7 DIGITS. PLACEMENT OF 03580403 ! 362: C***** DECIMAL POINT IS VARIABLE. SOME F FIELDS ARE 03590403 ! 363: C***** REPEATED 03600403 ! 364: C***** INPUT CARD 5 03610403 ! 365: 2018 FORMAT (2X,F3.1,F8.1) 03620403 ! 366: READ (IRVI,2018) ACVS, CMAVS 03630403 ! 367: C***** INPUT CARD 6 03640403 ! 368: 2019 FORMAT(2X,F4.2,F5.3,F8.6) 03650403 ! 369: READ (IRVI,2019) A1S(2), BCVS, CMBVS 03660403 ! 370: C***** INPUT CARD 7 03670403 ! 371: 2020 FORMAT (2X,F6.4,F7.5,4F4.1,F5.1) 03680403 ! 372: READ (IRVI,2020) HHCVS, CMCVS, GGCVS, FFCVS, A1S(1), AC1S(25), 03690403 ! 373: 1 AC2S(4,1) 03700403 ! 374: C***** INPUT CARD 8 03710403 ! 375: 2021 FORMAT (2X,2(F6.1),2X,2F7.1 ,2X,F5.2) 03720403 ! 376: READ (IRVI,2021) AC1S(18), AC1S(7), AC2S(4,4) , AC1S(8), AC1S(10) 03730403 ! 377: C***** INPUT CARD 9 03740403 ! 378: 2022 FORMAT (2X,5(F3.1),F7.3,3F5.3 ) 03750403 ! 379: READ (IRVI,2022) AC2S(3,3) , AC2S(5,1), CCVS, AC1S(12), DCVS, 03760403 ! 380: 1 AC1S(13), AC1S(5), A3S(1,1,2), AC2S(3,5) 03770403 ! 381: CT015* TEST 15 - F CONVERSION 03780403 ! 382: IVTNUM = 15 03790403 ! 383: WRITE (I02,80004) IVTNUM 03800403 ! 384: WRITE (I02,80020) 03810403 ! 385: WRITE (I02,70150) ACVS, CMAVS 03820403 ! 386: 70150 FORMAT (27X,F3.1,F8.1) 03830403 ! 387: IVINSP = IVINSP + 1 03840403 ! 388: WRITE (I02,80022) 03850403 ! 389: WRITE (I02,70151) 03860403 ! 390: 70151 FORMAT (27X,11H7.7123456.7) 03870403 ! 391: CT016* TEST 16 - F CONVERSION 03880403 ! 392: IVTNUM = 16 03890403 ! 393: WRITE (I02,80004) IVTNUM 03900403 ! 394: WRITE (I02,80020) 03910403 ! 395: WRITE (I02,70160) A1S(2), BCVS, CMBVS 03920403 ! 396: 70160 FORMAT(27X,F4.2,F5.3,F8.6) 03930403 ! 397: IVINSP = IVINSP + 1 03940403 ! 398: WRITE (I02,80022) 03950403 ! 399: WRITE (I02,70161) 03960403 ! 400: 70161 FORMAT (27X,17H8.889.9997.123456) 03970403 ! 401: CT017* TEST 17 - F CONVERSION 03980403 ! 402: IVTNUM = 17 03990403 ! 403: WRITE (I02,80004) IVTNUM 04000403 ! 404: WRITE (I02,80020) 04010403 ! 405: WRITE (I02,70170) HHCVS,CMCVS, GGCVS, FFCVS, A1S(1), AC1S(25) 04020403 ! 406: 1 ,AC2S(4,1) 04030403 ! 407: 70170 FORMAT (27X,F6.4,F7.5,4F4.1,F5.1) 04040403 ! 408: IVINSP = IVINSP + 1 04050403 ! 409: WRITE (I02,80022) 04060403 ! 410: WRITE (I02,70171) 04070403 ! 411: 70171 FORMAT (27X,34H5.44446.5555533.133.133.133.1444.1) 04080403 ! 412: CT018* TEST 18 - F CONVERSION 04090403 ! 413: IVTNUM = 18 04100403 ! 414: WRITE (I02,80004) IVTNUM 04110403 ! 415: WRITE (I02,80020) 04120403 ! 416: WRITE (I02,70180) AC1S(18),AC1S(7), AC2S(4,4) , AC1S(8), AC1S(10) 04130403 ! 417: 70180 FORMAT (27X,2(F6.1),2X,2F7.1 ,2X,F5.2) 04140403 ! 418: IVINSP = IVINSP + 1 04150403 ! 419: WRITE (I02,80022) 04160403 ! 420: WRITE (I02,70181) 04170403 ! 421: 70181 FORMAT (27X,35H5555.15555.1 66666.166666.1 44.22 ) 04180403 ! 422: CT019* TEST 19 - F CONVERSION 04190403 ! 423: IVTNUM = 19 04200403 ! 424: WRITE (I02,80004) IVTNUM 04210403 ! 425: WRITE (I02,80020) 04220403 ! 426: WRITE (I02,70190) AC2S(3,3) , AC2S(5,1), CCVS, AC1S(12), DCVS, 04230403 ! 427: 1 AC1S(13), AC1S(5), A3S(1,1,2), AC2S(3,5) 04240403 ! 428: 70190 FORMAT (27X,5(F3.1),F7.3,3F5.3 ) 04250403 ! 429: IVINSP = IVINSP + 1 04260403 ! 430: WRITE (I02,80022) 04270403 ! 431: WRITE (I02,70191) 04280403 ! 432: 70191 FORMAT (27X,37H2.12.12.12.12.1666.3334.3334.3334.333) 04290403 ! 433: C***** FORMATTED DATA TRANSFER I/O STATEMENTS WITH REAL 12.8.1 04300403 ! 434: C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. 12.8.2 04310403 ! 435: C***** E EDIT DESCRIPTORS ARE USED IN THE FORMAT 13.5.9.2 04320403 ! 436: C***** STATEMENTS. SOME E EDIT DESCRIPTORS ARE REPEATED 13.5.9.2.2 04330403 ! 437: C***** (FIELD WIDTH ALWAYS INCLUDES 6 EXTRA POSITIONS 04340403 ! 438: C***** TO PROVIDE FOR SIGN, DECIMAL POINT AND EXPONENT. 13.5.9 04350403 ! 439: C***** PROVISION IS ALWAYS MADE FOR THE DIGIT ZERO 13.5.9.2.1 04360403 ! 440: C***** BEFORE THE DECIMAL POINT) 04370403 ! 441: C***** THE NUMBER OF DECIMAL PLACES VARIES FROM 1 04380403 ! 442: C***** TO 7 DIGITS. 04390403 ! 443: C***** INPUT CARD 10 04400403 ! 444: 2029 FORMAT (E8.1,E9.2,E10.3,E11.4,E12.5,E13.6,E14.7) 04410403 ! 445: READ (IRVI,2029) AVS, BVS, EP1S(5), AC2S(1,5), CVS, AC2S(5,4), 04420403 ! 446: 1 A3S(2,1,2) 04430403 ! 447: CT020* TEST 20 - E CONVERSION 04440403 ! 448: IVTNUM = 20 04450403 ! 449: REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 04460403 ! 450: WRITE (I02,80004) IVTNUM, REMRKS 04470403 ! 451: WRITE (I02,80020) 04480403 ! 452: WRITE (I02,70200) AVS, BVS 04490403 ! 453: 70200 FORMAT (27X,E8.1,2X,E9.2) 04500403 ! 454: IVINSP = IVINSP + 1 04510403 ! 455: WRITE (I02,70201) 04520403 ! 456: 70201 FORMAT (1H ,16X,10HCORRECT: ,22X,26H2 CORRECT ANSWERS POSSIBLE) 04530403 ! 457: WRITE (I02,70202) 04540403 ! 458: 70202 FORMAT (27X,19H-0.1E+01 +0.22E-01/ 04550403 ! 459: 1 27X,19H-0.1+001 +0.22-001) 04560403 ! 460: C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 04570403 ! 461: WRITE (I02,90002) 04580403 ! 462: WRITE (I02,90013) 04590403 ! 463: WRITE (I02,90014) 04600403 ! 464: CT021* TEST 21 - E CONVERSION 04610403 ! 465: IVTNUM = 21 04620403 ! 466: WRITE (I02,80004) IVTNUM, REMRKS 04630403 ! 467: WRITE (I02,80020) 04640403 ! 468: WRITE (I02,70210) EP1S(5), AC2S(1,5) 04650403 ! 469: 70210 FORMAT (27X,E10.3,2X,E11.4) 04660403 ! 470: IVINSP = IVINSP + 1 04670403 ! 471: WRITE (I02,70201) 04680403 ! 472: WRITE (I02,70211) 04690403 ! 473: 70211 FORMAT (27X,23H+0.333E+02 +0.4444E+03/ 04700403 ! 474: 1 27X,23H+0.333+002 +0.4444+003) 04710403 ! 475: CT022* TEST 22 - E CONVERSION 04720403 ! 476: IVTNUM = 22 04730403 ! 477: WRITE (I02,80004) IVTNUM, REMRKS 04740403 ! 478: WRITE (I02,80020) 04750403 ! 479: WRITE (I02,70220) CVS, AC2S(5,4) 04760403 ! 480: 70220 FORMAT (27X,E12.5,2X,E13.6) 04770403 ! 481: IVINSP = IVINSP + 1 04780403 ! 482: WRITE (I02,70201) 04790403 ! 483: WRITE (I02,70221) 04800403 ! 484: 70221 FORMAT (27X,27H-0.55555E-03 +0.666666E+00/ 04810403 ! 485: 1 27X,27H-0.55555-003 +0.666666+000) 04820403 ! 486: CT023* TEST 23 - E CONVERSION 04830403 ! 487: IVTNUM = 23 04840403 ! 488: WRITE (I02,80004) IVTNUM, REMRKS 04850403 ! 489: WRITE (I02,80020) 04860403 ! 490: WRITE (I02,70230) A3S(2,1,2) 04870403 ! 491: 70230 FORMAT (27X,E14.7) 04880403 ! 492: IVINSP = IVINSP + 1 04890403 ! 493: WRITE (I02,70201) 04900403 ! 494: WRITE (I02,70231) 04910403 ! 495: 70231 FORMAT (27X,14H+0.9876543E+12/ 04920403 ! 496: 1 27X,14H+0.9876543+012) 04930403 ! 497: C***** FORMATTED DATA TRANSFER I/O STATEMENTS WITH LOGICAL 12.8.2 04940403 ! 498: C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST 13.5.10 04950403 ! 499: C***** SOME L EDIT DESCRIPTORS ARE REPEATED. 04960403 ! 500: C***** L EDIT DESCRIPTORS ARE USED IN THE FORMAT STATEMENTS 13.2.1 04970403 ! 501: C***** INPUT CARD 11 04980403 ! 502: 2033 FORMAT (L4) 04990403 ! 503: READ (IRVI,2033) A2B(2,1) 05000403 ! 504: C***** INPUT CARD 12 05010403 ! 505: 2034 FORMAT ( 2L4, L3, L2, L3, L6, L7) 05020403 ! 506: READ (IRVI,2034) MCA1B(1), MCBVB, A2B(1,1), A3B(1,1,1), CVB, 05030403 ! 507: 1 DVB, A3B(1,2,1) 05040403 ! 508: CT024* TEST 24 - L CONVERSION 05050403 ! 509: IVTNUM = 24 05060403 ! 510: WRITE (I02,80004) IVTNUM 05070403 ! 511: WRITE (I02,80020) 05080403 ! 512: WRITE (I02,70240) A2B(2,1), MCA1B(1), MCBVB, A2B(1,1), A3B(1,1,1),05090403 ! 513: 1 CVB, DVB, A3B(1,2,1) 05100403 ! 514: 70240 FORMAT (24X, 3(L4), L3, L2, L3, 05110403 ! 515: 1 2(L1)) 05120403 ! 516: IVINSP = IVINSP + 1 05130403 ! 517: WRITE (I02,80022) 05140403 ! 518: WRITE (I02,70241) 05150403 ! 519: 70241 FORMAT (27X,19HT F F T T FTF) 05160403 ! 520: C***** FORMATTED DATA TRANSFER STATEMENTS WITH ARRAY 12.8.2 05170403 ! 521: C***** NAMES OF SEVERAL TYPES IN AN I/O LIST. THE 12.9.5.2 05180403 ! 522: C***** NUMBER OF ITEMS IN THE LIST IS VARIABLE. SOME 13.2.1 05190403 ! 523: C***** EDIT DESCRIPTORS ARE REPEATED. 05200403 ! 524: C***** OPTIONAL COMMA BEFORE AND AFTER A SLASH 05210403 ! 525: C***** INPUT CARDS 13, 14 05220403 ! 526: 2037 FORMAT(2X,4(F4.1)/5(I2)) 05230403 ! 527: READ (IRVI,2037) A2S, MCA1I 05240403 ! 528: C***** INPUT CARDS 15, 16 05250403 ! 529: 2038 FORMAT(27(F2.1)/5(L1),5L1) 05260403 ! 530: READ (IRVI,2038) A3S, A1B, A3B 05270403 ! 531: C***** INPUT CARDS 17, 18 05280403 ! 532: 2039 FORMAT (2X,2(I2,I2),/,2(2(I2,I2)),2(L1,L1),2(F3.1,F3.1),F3.1) 05290403 ! 533: READ (IRVI,2039) I2I, I3I, A2B, CMA1S 05300403 ! 534: CT025* TEST 25 THRU 28 - UNSUBSCRIPTED ARRAY NAME IN I/O LISTS 05310403 ! 535: WRITE (I02,70250) A2S, MCA1I, A3S, A1B 05320403 ! 536: 70250 FORMAT (17H 25 INSPECT/1H ,16X,10HCOMPUTED: /27X,4(F4.1)/ 05330403 ! 537: 11H ,16X,10HCORRECT: /27X,16H-9.9-9.9-9.9-9.9/17H 26 INSPECT05340403 ! 538: 2/1H ,16X,10HCOMPUTED: /27X,5(I2)/1H ,16X,10HCORRECT: /27X, 05350403 ! 539: 310H9999999999/17H 27 INSPECT,32X,23HLEADING PLUS SIGN/ZERO ,05360403 ! 540: 48HOPTIONAL/1H ,16X,10HCOMPUTED: ,22X,25H3 COMPUTED LINES EXPECTED 05370403 ! 541: 5/27X,3(3(F4.1))/27X,2(2(F4.1,F4.1)),F4.1/27X,9F4.1/1H ,16X, 05380403 ! 542: 610HCORRECT: ,22X,29HEACH RESULT LINE SHOULD EQUAL/ 05390403 ! 543: 7 27X,36H 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9/ 05400403 ! 544: 8 17H 28 INSPECT/1H ,16X,10HCOMPUTED: /27X,2L1/ 05410403 ! 545: 9 1H ,16X,10HCORRECT: /27X,2HTF) 05420403 ! 546: IVINSP = IVINSP + 4 05430403 ! 547: C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 05440403 ! 548: WRITE (I02,90002) 05450403 ! 549: WRITE (I02,90013) 05460403 ! 550: WRITE (I02,90014) 05470403 ! 551: CT029* TEST 29 THRU 33 - UNSUBSCRIPTED ARRAY NAMES IN I/O LISTS 05480403 ! 552: WRITE (I02,70290) A3B, I2I, I3I, A2B, CMA1S 05490403 ! 553: 70290 FORMAT (17H 29 INSPECT/1H ,16X,10HCOMPUTED: /27X,8(L1)/1H , 05500403 ! 554: 116X,10HCORRECT: /27X,8HTFTFTFTF/17H 30 INSPECT/1H ,16X, 05510403 ! 555: 210HCOMPUTED: /27X,4(I2)/1H ,16X,10HCORRECT: /27X,8H99999999/ 05520403 ! 556: 317H 31 INSPECT/1H ,16X,10HCOMPUTED: /27X,8(I2)/1H ,16X, 05530403 ! 557: 410HCORRECT: /27X,16H9999999999999999/17H 32 INSPECT/1H , 05540403 ! 558: 516X,10HCOMPUTED: /27X,4(L1)/1H ,16X,10HCORRECT: /27X,4HTFFT/ 05550403 ! 559: 617H 33 INSPECT/1H ,16X,10HCOMPUTED: /27X,5(F3.1)/ 05560403 ! 560: 7 1H ,16X,10HCORRECT: ,/, 05570403 ! 561: 8 27X,15H9.99.99.99.99.9) 05580403 ! 562: IVINSP = IVINSP + 5 05590403 ! 563: CT034* TEST 34 - FORMATTED DATA TRANSFER STATEMENT TO TEST 13.5.10 05600403 ! 564: C***** THAT OPTIONAL BLANKS MAY PRECEDE A LOGICAL INPUT FIELD05610403 ! 565: C***** INPUT CARD 19 05620403 ! 566: 70340 FORMAT ( L6, L4, L10, L5) 05630403 ! 567: READ (IRVI,70340) AVB, MCA1B(2), A2B(1,2), A3B(2,1,2) 05640403 ! 568: IVTNUM = 34 05650403 ! 569: REMRKS = 'LEADING BLANKS ARE REQUIRED' 05660403 ! 570: WRITE (I02,80004) IVTNUM, REMRKS 05670403 ! 571: WRITE (I02,80020) 05680403 ! 572: WRITE (I02,70341) AVB, MCA1B(2), A2B(1,2), A3B(2,1,2) 05690403 ! 573: 70341 FORMAT (27X,L6, L4, L10, L5) 05700403 ! 574: IVINSP = IVINSP + 1 05710403 ! 575: WRITE (I02,80022) 05720403 ! 576: WRITE (I02,70342) 05730403 ! 577: 70342 FORMAT (27X,25H T F T F) 05740403 ! 578: CT035* TEST 35 05750403 ! 579: C***** FORMATTED DATA TRANSFER TO TEST F EDIT DESCRIPTORS 13.5.9.2.1 05760403 ! 580: C***** WHERE D IS EQUAL TO ZERO 05770403 ! 581: C***** INPUT CARD 20 05780403 ! 582: 70350 FORMAT (2X, F3.0, F5.0, F5.5, F1.0) 05790403 ! 583: READ (IRVI,70350) AVS, BVS, CVS, DVS 05800403 ! 584: IVTNUM = 35 05810403 ! 585: WRITE (I02,80004) IVTNUM 05820403 ! 586: WRITE (I02,80020) 05830403 ! 587: WRITE (I02,70351) AVS, BVS 05840403 ! 588: 70351 FORMAT (27X,F4.0,4X,F5.0) 05850403 ! 589: IVINSP = IVINSP + 1 05860403 ! 590: WRITE (I02,80022) 05870403 ! 591: WRITE (I02,70352) 05880403 ! 592: 70352 FORMAT (27X,4H333.,4X,5H4444.) 05890403 ! 593: CT036* TEST 36 05900403 ! 594: C***** FORMATTED DATA TRANSFER TO TEST F EDIT DESCRIPTORS 13.5.9.2.1 05910403 ! 595: C***** WHERE W EQUALS D+1 AND WHERE D IS EQUAL TO ZERO 13.2.1 05920403 ! 596: IVTNUM = 36 05930403 ! 597: WRITE (I02,80004) IVTNUM 05940403 ! 598: WRITE (I02,80020) 05950403 ! 599: WRITE (I02,70360) CVS, DVS 05960403 ! 600: 70360 FORMAT (27X,F6.5,2X,F2.0) 05970403 ! 601: IVINSP = IVINSP + 1 05980403 ! 602: WRITE (I02,80022) 05990403 ! 603: WRITE (I02,70361) 06000403 ! 604: 70361 FORMAT (27X,10H.55555 0.) 06010403 ! 605: CT037* TEST 37 06020403 ! 606: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06030403 ! 607: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06040403 ! 608: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06050403 ! 609: C***** I EDIT DESCRIPTORS 06060403 ! 610: IVTNUM = 37 06070403 ! 611: WRITE (I02,80004) IVTNUM, REMRKS 06080403 ! 612: WRITE (I02,80020) 06090403 ! 613: WRITE (I02,70370) MCA3I(1,2,3) 06100403 ! 614: 70370 FORMAT (27X,I3) 06110403 ! 615: IVINSP = IVINSP + 1 06120403 ! 616: WRITE (I02,80022) 06130403 ! 617: WRITE (I02,70371) 06140403 ! 618: 70371 FORMAT (27X,3H 8) 06150403 ! 619: CT038* TEST 38 06160403 ! 620: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06170403 ! 621: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06180403 ! 622: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06190403 ! 623: C***** I EDIT DESCRIPTORS 06200403 ! 624: IVTNUM = 38 06210403 ! 625: WRITE (I02,80004) IVTNUM, REMRKS 06220403 ! 626: WRITE (I02,80020) 06230403 ! 627: WRITE (I02,70380) IAC1I(3) 06240403 ! 628: 70380 FORMAT (27X,I4) 06250403 ! 629: IVINSP = IVINSP + 1 06260403 ! 630: WRITE (I02,80022) 06270403 ! 631: WRITE (I02,70381) 06280403 ! 632: 70381 FORMAT (27X,4H 22) 06290403 ! 633: CT039* TEST 39 06300403 ! 634: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06310403 ! 635: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06320403 ! 636: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06330403 ! 637: C***** I EDIT DESCRIPTORS 06340403 ! 638: IVTNUM = 39 06350403 ! 639: WRITE (I02,80004) IVTNUM, REMRKS 06360403 ! 640: WRITE (I02,80020) 06370403 ! 641: WRITE (I02,70390) NECVI 06380403 ! 642: 70390 FORMAT (27X,I5) 06390403 ! 643: IVINSP = IVINSP + 1 06400403 ! 644: WRITE (I02,80022) 06410403 ! 645: WRITE (I02,70391) 06420403 ! 646: 70391 FORMAT (27X,5H 22) 06430403 ! 647: C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 06440403 ! 648: WRITE (I02,90002) 06450403 ! 649: WRITE (I02,90013) 06460403 ! 650: WRITE (I02,90014) 06470403 ! 651: CT040* TEST 40 06480403 ! 652: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06490403 ! 653: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06500403 ! 654: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06510403 ! 655: C***** I EDIT DESCRIPTORS 06520403 ! 656: IVTNUM = 40 06530403 ! 657: WRITE (I02,80004) IVTNUM, REMRKS 06540403 ! 658: WRITE (I02,80020) 06550403 ! 659: WRITE (I02,70400) IAC1I(3) 06560403 ! 660: 70400 FORMAT (27X,I6) 06570403 ! 661: IVINSP = IVINSP + 1 06580403 ! 662: WRITE (I02,80022) 06590403 ! 663: WRITE (I02,70401) 06600403 ! 664: 70401 FORMAT (27X,6H 22) 06610403 ! 665: CT041* TEST 41 06620403 ! 666: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06630403 ! 667: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06640403 ! 668: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06650403 ! 669: C***** I EDIT DESCRIPTORS 06660403 ! 670: IVTNUM = 41 06670403 ! 671: WRITE (I02,80004) IVTNUM, REMRKS 06680403 ! 672: WRITE (I02,80020) 06690403 ! 673: WRITE (I02,70410) IAC2I(2,3) 06700403 ! 674: 70410 FORMAT (27X,I7) 06710403 ! 675: IVINSP = IVINSP + 1 06720403 ! 676: WRITE (I02,80022) 06730403 ! 677: WRITE (I02,70411) 06740403 ! 678: 70411 FORMAT (27X,7H 22) 06750403 ! 679: CT042* TEST 42 06760403 ! 680: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06770403 ! 681: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06780403 ! 682: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06790403 ! 683: C***** F EDIT DESCRIPTORS 06800403 ! 684: IVTNUM = 42 06810403 ! 685: WRITE (I02,80004) IVTNUM, REMRKS 06820403 ! 686: WRITE (I02,80020) 06830403 ! 687: WRITE (I02,70420) ACVS 06840403 ! 688: 70420 FORMAT (27X,F5.1) 06850403 ! 689: IVINSP = IVINSP + 1 06860403 ! 690: WRITE (I02,80022) 06870403 ! 691: WRITE (I02,70421) 06880403 ! 692: 70421 FORMAT (27X,5H 7.7) 06890403 ! 693: CT043* TEST 43 06900403 ! 694: CT043* TEST 43 - FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06910403 ! 695: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06920403 ! 696: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06930403 ! 697: C***** F EDIT DESCRIPTORS 06940403 ! 698: IVTNUM = 43 06950403 ! 699: WRITE (I02,80004) IVTNUM, REMRKS 06960403 ! 700: WRITE (I02,80020) 06970403 ! 701: WRITE (I02,70430) A1S(2) 06980403 ! 702: 70430 FORMAT (27X,F7.2) 06990403 ! 703: IVINSP = IVINSP + 1 07000403 ! 704: WRITE (I02,80022) 07010403 ! 705: WRITE (I02,70431) 07020403 ! 706: 70431 FORMAT (27X,7H 8.88) 07030403 ! 707: CT044* TEST 44 - FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07040403 ! 708: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07050403 ! 709: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07060403 ! 710: C***** F EDIT DESCRIPTORS 07070403 ! 711: IVTNUM = 44 07080403 ! 712: WRITE (I02,80004) IVTNUM, REMRKS 07090403 ! 713: WRITE (I02,80020) 07100403 ! 714: WRITE (I02,70440) BCVS 07110403 ! 715: 70440 FORMAT (27X,F9.3) 07120403 ! 716: IVINSP = IVINSP + 1 07130403 ! 717: WRITE (I02,80022) 07140403 ! 718: WRITE (I02,70441) 07150403 ! 719: 70441 FORMAT (27X,9H 9.999) 07160403 ! 720: CT045* TEST 45 07170403 ! 721: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07180403 ! 722: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07190403 ! 723: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07200403 ! 724: C***** F EDIT DESCRIPTORS 07210403 ! 725: IVTNUM = 45 07220403 ! 726: WRITE (I02,80004) IVTNUM, REMRKS 07230403 ! 727: WRITE (I02,80020) 07240403 ! 728: WRITE (I02,70450) HHCVS 07250403 ! 729: 70450 FORMAT (27X,F11.4) 07260403 ! 730: IVINSP = IVINSP + 1 07270403 ! 731: WRITE (I02,80022) 07280403 ! 732: WRITE (I02,70451) 07290403 ! 733: 70451 FORMAT (27X,11H 5.4444) 07300403 ! 734: CT046* TEST 46 07310403 ! 735: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07320403 ! 736: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07330403 ! 737: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07340403 ! 738: C***** F EDIT DESCRIPTORS 07350403 ! 739: IVTNUM = 46 07360403 ! 740: WRITE (I02,80004) IVTNUM, REMRKS 07370403 ! 741: WRITE (I02,80020) 07380403 ! 742: WRITE (I02,70460) CMCVS 07390403 ! 743: 70460 FORMAT (27X,F13.5) 07400403 ! 744: IVINSP = IVINSP + 1 07410403 ! 745: WRITE (I02,80022) 07420403 ! 746: WRITE (I02,70461) 07430403 ! 747: 70461 FORMAT (27X,13H 6.55555) 07440403 ! 748: CT047* TEST 47 07450403 ! 749: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07460403 ! 750: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07470403 ! 751: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07480403 ! 752: C***** F EDIT DESCRIPTORS 07490403 ! 753: IVTNUM = 47 07500403 ! 754: WRITE (I02,80004) IVTNUM, REMRKS 07510403 ! 755: WRITE (I02,80020) 07520403 ! 756: WRITE (I02,70470) CMBVS 07530403 ! 757: 70470 FORMAT (27X,F15.6) 07540403 ! 758: IVINSP = IVINSP + 1 07550403 ! 759: WRITE (I02,80022) 07560403 ! 760: WRITE (I02,70471) 07570403 ! 761: 70471 FORMAT (27X,15H 7.123456) 07580403 ! 762: CT048* TEST 48 07590403 ! 763: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07600403 ! 764: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07610403 ! 765: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07620403 ! 766: C***** E EDIT DESCRIPTORS 07630403 ! 767: IVTNUM = 48 07640403 ! 768: WRITE (I02,80004) IVTNUM, REMRKS 07650403 ! 769: WRITE (I02,80020) 07660403 ! 770: WRITE (I02,70480) DCVS 07670403 ! 771: 70480 FORMAT (27X,E10.2) 07680403 ! 772: IVINSP = IVINSP + 1 07690403 ! 773: WRITE (I02,70201) 07700403 ! 774: WRITE (I02,70481) 07710403 ! 775: 70481 FORMAT (27X,10H 0.21E+01/ 07720403 ! 776: 1 27X,10H 0.21+001) 07730403 ! 777: CT049* TEST 49 07740403 ! 778: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07750403 ! 779: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07760403 ! 780: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07770403 ! 781: C***** E EDIT DESCRIPTORS 07780403 ! 782: IVTNUM = 49 07790403 ! 783: WRITE (I02,80004) IVTNUM, REMRKS 07800403 ! 784: WRITE (I02,80020) 07810403 ! 785: WRITE (I02,70490) AC1S(25) 07820403 ! 786: 70490 FORMAT (27X,E12.3) 07830403 ! 787: IVINSP = IVINSP + 1 07840403 ! 788: WRITE (I02,70201) 07850403 ! 789: WRITE (I02,70491) 07860403 ! 790: 70491 FORMAT (27X,12H 0.331E+02/ 07870403 ! 791: 1 27X,12H 0.331+002) 07880403 ! 792: C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 07890403 ! 793: WRITE (I02,90002) 07900403 ! 794: WRITE (I02,90013) 07910403 ! 795: WRITE (I02,90014) 07920403 ! 796: CT050* TEST 50 07930403 ! 797: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07940403 ! 798: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07950403 ! 799: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07960403 ! 800: C***** E EDIT DESCRIPTORS 07970403 ! 801: IVTNUM = 50 07980403 ! 802: WRITE (I02,80004) IVTNUM, REMRKS 07990403 ! 803: WRITE (I02,80020) 08000403 ! 804: WRITE (I02,70500) AC2S(4,1) 08010403 ! 805: 70500 FORMAT (27X,E14.4) 08020403 ! 806: IVINSP = IVINSP + 1 08030403 ! 807: WRITE (I02,70201) 08040403 ! 808: WRITE (I02,70501) 08050403 ! 809: 70501 FORMAT (27X,14H 0.4441E+03/ 08060403 ! 810: 1 27X,14H 0.4441+003) 08070403 ! 811: CT051* TEST 51 08080403 ! 812: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 08090403 ! 813: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 08100403 ! 814: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 08110403 ! 815: C***** E EDIT DESCRIPTORS 08120403 ! 816: IVTNUM = 51 08130403 ! 817: WRITE (I02,80004) IVTNUM, REMRKS 08140403 ! 818: WRITE (I02,80020) 08150403 ! 819: WRITE (I02,70510) AC1S(7) 08160403 ! 820: 70510 FORMAT (27X,E16.5) 08170403 ! 821: IVINSP = IVINSP + 1 08180403 ! 822: WRITE (I02,70201) 08190403 ! 823: WRITE (I02,70511) 08200403 ! 824: 70511 FORMAT (27X,16H 0.55551E+04/ 08210403 ! 825: 1 27X,16H 0.55551+004) 08220403 ! 826: CT052* TEST 52 08230403 ! 827: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 08240403 ! 828: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 08250403 ! 829: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 08260403 ! 830: C***** E EDIT DESCRIPTORS 08270403 ! 831: IVTNUM = 52 08280403 ! 832: WRITE (I02,80004) IVTNUM, REMRKS 08290403 ! 833: WRITE (I02,80020) 08300403 ! 834: WRITE (I02,70520) AC1S(8) 08310403 ! 835: 70520 FORMAT (27X,E18.6) 08320403 ! 836: IVINSP = IVINSP + 1 08330403 ! 837: WRITE (I02,70201) 08340403 ! 838: WRITE (I02,70521) 08350403 ! 839: 70521 FORMAT (27X,18H 0.666661E+05/ 08360403 ! 840: 1 27X,18H 0.666661+005) 08370403 ! 841: CT053* TEST 53 08380403 ! 842: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 08390403 ! 843: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 08400403 ! 844: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 08410403 ! 845: C***** E EDIT DESCRIPTORS 08420403 ! 846: IVTNUM = 53 08430403 ! 847: WRITE (I02,80004) IVTNUM, REMRKS 08440403 ! 848: WRITE (I02,80020) 08450403 ! 849: WRITE (I02,70530) CMAVS 08460403 ! 850: 70530 FORMAT (27X,E20.7) 08470403 ! 851: IVINSP = IVINSP + 1 08480403 ! 852: WRITE (I02,70201) 08490403 ! 853: WRITE (I02,70531) 08500403 ! 854: 70531 FORMAT (27X,20H 0.1234567E+06/ 08510403 ! 855: 1 27X,20H 0.1234567+006) 08520403 ! 856: CT054* TEST 54 08530403 ! 857: C***** SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 08540403 ! 858: C***** ON READ, BUT NOT ON WRITE 08550403 ! 859: C***** INPUT CARD 21 08560403 ! 860: 2050 FORMAT(2PF8.3,-2PE9.4,F9.4,0PF9.4,9X,-2PE9.4,F9.4) 08570403 ! 861: READ(IRVI,2050)EP1S(16),EP1S(17),EP1S(18), EP1S(19), 08580403 ! 862: 1 EP1S(20),EP1S(22) 08590403 ! 863: IVTNUM = 54 08600403 ! 864: WRITE (I02,80004) IVTNUM, REMRKS 08610403 ! 865: WRITE (I02,80020) 08620403 ! 866: WRITE (I02,70540) EP1S(16),EP1S(17),EP1S(18) 08630403 ! 867: 70540 FORMAT (27X,F12.4, E12.4, F12.2) 08640403 ! 868: IVINSP = IVINSP + 1 08650403 ! 869: WRITE (I02,70201) 08660403 ! 870: WRITE (I02,70541) 08670403 ! 871: 70541 FORMAT (27X,36H 98.7654 0.9877E+04 987654.00/ 08680403 ! 872: 1 27X,36H 0.9877+004 ) 08690403 ! 873: CT055* TEST 55 08700403 ! 874: C***** SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 08710403 ! 875: C***** ON READ, BUT NOT ON WRITE 08720403 ! 876: IVTNUM = 55 08730403 ! 877: WRITE (I02,80004) IVTNUM, REMRKS 08740403 ! 878: WRITE (I02,80020) 08750403 ! 879: WRITE (I02,70550) EP1S(19),EP1S(20),EP1S(22) 08760403 ! 880: 70550 FORMAT( 27X,F12.3, E12.4,F12.3 ) 08770403 ! 881: IVINSP = IVINSP + 1 08780403 ! 882: WRITE (I02,70201) 08790403 ! 883: WRITE (I02,70551) 08800403 ! 884: 70552 FORMAT (1H ,48X,5H OR) 08800*TI ! 885: WRITE (I02,70552) 08800*TI ! 886: 70553 FORMAT (27X,36H 987.654 0.8648E+04 8647.859/ 08800*TI ! 887: 1 27X,36H 0.8648+004 ) 08800*TI ! 888: WRITE (I02,70553) 08800*TI ! 889: WRITE (I02,90004) 08800*TI ! 890: 70551 FORMAT (27X,36H 987.654 0.8648E+04 8647.860/ 08810403 ! 891: 1 27X,36H 0.8648+004 ) 08820403 ! 892: CT056* TEST 56 08830403 ! 893: C***** SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 08840403 ! 894: C***** ON WRITE, BUT, NOT ON READ 08850403 ! 895: C***** INPUT CARD 22 08860403 ! 896: 2053 FORMAT(F8.2,E9.4,F9.2,F9.3,9X,E9.4,F9.4) 08870403 ! 897: READ(IRVI,2053) AC1S(1),AC1S(2),AC1S(3),AC1S(4), 08880403 ! 898: 1 AC1S(20),AC1S(23) 08890403 ! 899: IVTNUM = 56 08900403 ! 900: WRITE (I02,80004) IVTNUM, REMRKS 08910403 ! 901: WRITE (I02,80020) 08920403 ! 902: WRITE (I02,70560) AC1S(1),AC1S(2),AC1S(3) 08930403 ! 903: 70560 FORMAT (27X,2PF12.2, -2PE12.4,F12.4) 08940403 ! 904: IVINSP = IVINSP + 1 08950403 ! 905: WRITE (I02,70201) 08960403 ! 906: WRITE (I02,70561) 08970403 ! 907: 70561 FORMAT (27X,36H 987.66 0.0099E+06 98.7654/ 08980403 ! 908: 1 27X,36H 0.0099+006 ) 08990403 ! 909: CT057* TEST 57 - SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 09000403 ! 910: C***** ON WRITE, BUT, NOT ON READ 09010403 ! 911: IVTNUM = 57 09020403 ! 912: WRITE (I02,80004) IVTNUM, REMRKS 09030403 ! 913: WRITE (I02,80020) 09040403 ! 914: WRITE (I02,70570) AC1S(4), AC1S(20),AC1S(23) 09050403 ! 915: 70570 FORMAT (27X,1PE12.2, -2PE12.4, 2PF12.2 ) 09060403 ! 916: IVINSP = IVINSP + 1 09070403 ! 917: WRITE (I02,70201) 09080403 ! 918: WRITE (I02,70571) 09090403 ! 919: 70571 FORMAT (27X,36H 9.88E+02 0.0086E+06 8647.86/ 09100403 ! 920: 1 27X,36H 9.88+002 0.0086+006 ) 09110403 ! 921: CT058* TEST 58 - I/O FORMAT RESCAN 09120403 ! 922: C***** INPUT CARDS 23, 24, 25 09130403 ! 923: 2055 FORMAT( I1,I2,I3) 09140403 ! 924: READ(IRVI,2055) I2I,IAC1I 09150403 ! 925: IVTNUM = 58 09160403 ! 926: REMRKS = '3 COMPUTED LINES EXPECTED' 09170403 ! 927: WRITE (I02,80004) IVTNUM, REMRKS 09180403 ! 928: WRITE (I02,80020) 09190403 ! 929: WRITE(I02,70580) I2I(1,1),I2I(2,1),I2I(1,2),I2I(2,2),IAC1I 09200403 ! 930: 70580 FORMAT (27X,I4,I5,I6) 09210403 ! 931: IVINSP = IVINSP + 1 09220403 ! 932: WRITE (I02,70011) 09230403 ! 933: WRITE (I02,70581) 09240403 ! 934: 70581 FORMAT (27X,15H 1 22 333/ 09250403 ! 935: 1 27X,15H 4 55 666/ 09260403 ! 936: 2 27X,15H 7 88 999) 09270403 ! 937: C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 09280403 ! 938: WRITE (I02,90002) 09290403 ! 939: WRITE (I02,90013) 09300403 ! 940: WRITE (I02,90014) 09310403 ! 941: C***** INPUT CARDS 26, 27 09320403 ! 942: 2058 FORMAT(I4, 2(I1,1X,I2)) 09330403 ! 943: READ( IRVI,2058) I2I, IAC1I 09340403 ! 944: CT059* TEST 59 - I/O FORMAT RESCAN 09350403 ! 945: IVTNUM = 59 09360403 ! 946: REMRKS = '2 COMPUTED LINES EXPECTED' 09370403 ! 947: WRITE (I02,80004) IVTNUM, REMRKS 09380403 ! 948: WRITE (I02,80020) 09390403 ! 949: WRITE( I02,70590) I2I(2,1),I2I(2,2),IAC1I(2),IAC1I(4) 09400403 ! 950: 70590 FORMAT (27X,I4,3H **,1(27X,I4,3H '',(I4,3H (())) 09410403 ! 951: IVINSP = IVINSP + 1 09420403 ! 952: WRITE (I02,70011) 09430403 ! 953: WRITE (I02,70591) 09440403 ! 954: 70591 FORMAT(27X,7H 2 **,30X,11H4 '' 6 ((,/ 09450403 ! 955: 1 27X,7H 8 '') 09460403 ! 956: CBB** ********************** BBCSUM0 **********************************09470403 ! 957: C**** WRITE OUT TEST SUMMARY 09480403 ! 958: C**** 09490403 ! 959: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 09500403 ! 960: WRITE (I02, 90004) 09510403 ! 961: WRITE (I02, 90014) 09520403 ! 962: WRITE (I02, 90004) 09530403 ! 963: WRITE (I02, 90020) IVPASS 09540403 ! 964: WRITE (I02, 90022) IVFAIL 09550403 ! 965: WRITE (I02, 90024) IVDELE 09560403 ! 966: WRITE (I02, 90026) IVINSP 09570403 ! 967: WRITE (I02, 90028) IVTOTN, IVTOTL 09580403 ! 968: CBE** ********************** BBCSUM0 **********************************09590403 ! 969: CBB** ********************** BBCFOOT0 **********************************09600403 ! 970: C**** WRITE OUT REPORT FOOTINGS 09610403 ! 971: C**** 09620403 ! 972: WRITE (I02,90016) ZPROG, ZPROG 09630403 ! 973: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 09640403 ! 974: WRITE (I02,90019) 09650403 ! 975: CBE** ********************** BBCFOOT0 **********************************09660403 ! 976: CBB** ********************** BBCFMT0A **********************************09670403 ! 977: C**** FORMATS FOR TEST DETAIL LINES 09680403 ! 978: C**** 09690403 ! 979: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 09700403 ! 980: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 09710403 ! 981: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 09720403 ! 982: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 09730403 ! 983: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 09740403 ! 984: 1I6,/,1H ,15X,10HCORRECT= ,I6) 09750403 ! 985: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 09760403 ! 986: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 09770403 ! 987: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 09780403 ! 988: 1A21,/,1H ,16X,10HCORRECT= ,A21) 09790403 ! 989: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 09800403 ! 990: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 09810403 ! 991: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 09820403 ! 992: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 09830403 ! 993: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 09840403 ! 994: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 09850403 ! 995: 80050 FORMAT (1H ,48X,A31) 09860403 ! 996: CBE** ********************** BBCFMT0A **********************************09870403 ! 997: CBB** ********************** BBCFMT0B **********************************09880403 ! 998: C**** FORMAT STATEMENTS FOR PAGE HEADERS 09890403 ! 999: C**** 09900403 ! 1000: 90002 FORMAT (1H1) 09910403 ! 1001: 90004 FORMAT (1H ) 09920403 ! 1002: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 09930403 ! 1003: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 09940403 ! 1004: 90008 FORMAT (1H ,21X,A13,A17) 09950403 ! 1005: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 09960403 ! 1006: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 09970403 ! 1007: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 09980403 ! 1008: 1 7X,7HREMARKS,24X) 09990403 ! 1009: 90014 FORMAT (1H ,46H----------------------------------------------, 10000403 ! 1010: 1 33H---------------------------------) 10010403 ! 1011: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 10020403 ! 1012: C**** 10030403 ! 1013: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 10040403 ! 1014: C**** 10050403 ! 1015: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 10060403 ! 1016: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 10070403 ! 1017: 1 A13) 10080403 ! 1018: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 10090403 ! 1019: C**** 10100403 ! 1020: C**** FORMAT STATEMENTS FOR RUN SUMMARY 10110403 ! 1021: C**** 10120403 ! 1022: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 10130403 ! 1023: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 10140403 ! 1024: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 10150403 ! 1025: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 10160403 ! 1026: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 10170403 ! 1027: CBE** ********************** BBCFMT0B **********************************10180403 ! 1028: C***** 10190403 ! 1029: C***** END OF TEST SEGMENT 020 10200403 ! 1030: STOP 10210403 ! 1031: END 10220403 ! 1032: 10230403 ! 1033: 10240403
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.