PROGRAM FM900 C***********************************************************************00010900 C***** FORTRAN 77 00020900 C***** FM900 FMTRWF - (021) 00030900 C***** 00040900 C***********************************************************************00050900 C***** GENERAL PURPOSE ANS REFS00060900 C***** TO TEST SIMPLE FORMAT AND FORMATTED DATA 12.9.5.200070900 C***** TRANSFER STATEMENTS IN EXTERNAL SEQUENTIAL I/O SO 13.1.1 00080900 C***** THAT THESE FEATURES MAY BE USED IN OTHER TEST 12.8.1 00090900 C***** PROGRAM SEGMENTS FOR DOUBLE PRECISION AND COMPLEX 00100900 C***** DATA TYPES. 00110900 C***** RESTRICTIONS OBSERVED 12.8.2 00120900 C***** * ALL FORMAT STATEMENTS ARE LABELED 13.1.1 00130900 C***** * H AND X DESCRIPTORS ARE NEVER REPEATED 13.2.1 00140900 C***** * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND 00150900 C***** W IS EQUAL TO OR GREATER THAN D 00160900 C***** * FIELD WIDTH IS NEVER ZERO 13.2.1 00170900 C***** * IF AN I/O LIST SPECIFIES AT LEAST ONE LIST ITEM 13.3 00180900 C***** AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00190900 C***** IN THE FORMAT SPECIFICATION 00200900 C***** * ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS 13.3 00210900 C***** * NEGATIVE OUTPUT VALUES ARE SIGNED 13.5.9 00220900 C***** * FIELD WIDTH NEVER EXCEEDED BY OUTPUT 13.5.9 00230900 C***** GENERAL COMMENTS 00240900 C***** PLUS SIGNS FOR INPUT FIELDS ARE USUALLY OMITTED 13.5.9 00250900 C***** FORMATTED WRITES WITHOUT AN I/O LIST (FORMAT 13.5.2 00260900 C***** STATEMENTS TEST H AND X DESCRIPTORS AND SLASH 13.5.3 00270900 C***** RECORD DIVIDERS) 13.5.4 00280900 C***** 00290900 CBB** ********************** BBCCOMNT **********************************00300900 C**** 00310900 C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00320900 C**** VERSION 2.1 00330900 C**** 00340900 C**** 00350900 C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00360900 C**** NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00370900 C**** SOFTWARE STANDARDS VALIDATION GROUP 00380900 C**** BUILDING 225 RM A266 00390900 C**** GAITHERSBURG, MD 20899 00400900 C**** 00410900 C**** 00420900 C**** 00430900 CBE** ********************** BBCCOMNT **********************************00440900 C***** 00450900 C INPUT DATA TO THIS SEGMENT CONSISTS OF 17 CARD IMAGES IN COL. 1 - 80 00460900 COL. 1----------------------------------------------------------61 00470900 CARD 1 1.05.522.066.633.123455.0789 00480900 CARD 2 123.00456.88 0.123E+01 +0.987+1 -0.2345+02 -0.6879E+2+0.7E+0 00490900 COL 62-----70 00500900 CARD 2 3 0.4E+03 00510900 COL. 1----------------------------------------------------------61 00520900 CARD 3 0.9876543E-04+0.1357913E-04 00530900 CARD 4 19.34+0.2468E+02 +.765+287.643.96 0.5407E+0243.96+0.5407E+0 00540900 COL. 62-------------78 00550900 CARD 4 243.96 0.5407+2 00560900 COL. 1----------------------------- ----------------------------61 00570900 CARD 5 +0.1D+06 00580900 CARD 6 -0.334D-04 -.334-4 +0.7657654D00 0.12345678901D+10 00590900 CARD 7 +0.98765432109876D-1+0.98765432109876D-01 .98765432109876 00600900 COL. 62-66 00610900 CARD 7 -1 00620900 COL. 1----------------------------------------------------------61 00630900 CARD 8 -.555555542D+03 -0.555555542+3 00640900 CARD 9 9.91.19.92.29.93.39.94.49.91.19.92.29.93.39.94.4 00650900 CARD 10 9.95.59.96.69.97.79.98.89.95.59.96.69.97.79.98.8 00660900 CARD 11 -0.99D+01-0.98D+01-0.97D+01-0.96D+01-0.99D+01 -.98D+01 -.97+ 00670900 COL. 62-------72 00680900 CARD 11 01 -.96+1 00690900 CARD 12 +0.99D+01 0.98D+01 +.97D01 +.96D1 00700900 CARD 13 +0.99D+01 0.99D+01 0.99D+01+0.99D+01 .99D1 00710900 CARD 14 9.95.59.96.69.97.79.98.8 00720900 CARD 15 123.45678E2 1234.5678 123.45678 12.345678 1.2345678 .123 00730900 COL. 62-66 00740900 CARD 15 45678 00750900 COL. 1----------------------------------------------------------61 00760900 CARD 16 9876.5498.7654E2 9876.54 987.654864786D-486.4786E286.4786 00770900 COL. 62---------------80 00780900 CARD 16 8657.86D0 9876.54 00790900 COL. 1----------------------------------------------------------61 00800900 CARD 17 9.8765698.7654E2 9876.54 987.654864786D-386.4786E286.4786 00810900 COL. 62---------------80 00820900 CARD 17 8657.86D0 9876.54 00830900 C***** 00840900 C***** S P E C I F I C A T I O N S SEGMENT 021 00850900 C***** 00860900 DOUBLE PRECISION DPA1D(5),MCA3D(1,4,2),ZZDVD ,A2D(2,2),A3D(2,2,2) 00870900 1,AC1D(10),BC2D(7,4),DPAVD,DPBVD 00880900 COMPLEX BVC,QAVC,CHAVC,CHBVC,CHCVC,CHDVC 00890900 1,LL1C(32),LM2C(8,4),A1C(12),A2C(2,2),B3C(2,2,2),B1C(8) 00900900 C***** 00910900 CBB** ********************** BBCINITA **********************************00920900 C**** SPECIFICATION STATEMENTS 00930900 C**** 00940900 CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00950900 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00960900 CBE** ********************** BBCINITA **********************************00970900 CBB** ********************** BBCINITB **********************************00980900 C**** INITIALIZE SECTION 00990900 DATA ZVERS, ZVERSD, ZDATE 01000900 1 /'VERSION 2.1 ', '93/10/21*21.02.00', '*NO DATE*TIME'/ 01010900 DATA ZCOMPL, ZNAME, ZTAPE 01020900 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 01030900 DATA ZPROJ, ZTAPED, ZPROG 01040900 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 01050900 DATA REMRKS /' '/ 01060900 C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 01070900 C**** FOR IDENTIFYING THE TEST ENVIRONMENT 01080900 C**** 01090900 CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 01100900 CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 01110900 CZ03 ZPROG = 'PROGRAM NAME' 01120900 CZ04 ZDATE = 'DATE OF TEST' 01130900 CZ05 ZCOMPL = 'COMPILER IDENTIFICATION' 01140900 CZ06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 01150900 CZ07 ZNAME = 'NAME OF USER' 01160900 CZ08 ZTAPE = 'TAPE OWNER/ID' 01170900 CZ09 ZTAPED = 'DATE TAPE COPIED' 01180900 C 01190900 IVPASS = 0 01200900 IVFAIL = 0 01210900 IVDELE = 0 01220900 IVINSP = 0 01230900 IVTOTL = 0 01240900 IVTOTN = 0 01250900 ICZERO = 0 01260900 C 01270900 C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 01280900 I01 = 05 01290900 C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 01300900 I02 = 06 01310900 C 01320900 CX010 REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 01330900 C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 01340900 CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 01350900 C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 01360900 C 01370900 CX020 REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER). 01380900 C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 01390900 CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 01400900 C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 01410900 C 01420900 CBE** ********************** BBCINITB **********************************01430900 IRVI = I01 01440900 NUVI = I02 01450900 IVTOTL = 36 01460900 ZPROG = 'FM900' 01470900 CBB** ********************** BBCHED0A **********************************01480900 C**** 01490900 C**** WRITE REPORT TITLE 01500900 C**** 01510900 WRITE (I02, 90002) 01520900 WRITE (I02, 90006) 01530900 WRITE (I02, 90007) 01540900 WRITE (I02, 90008) ZVERS, ZVERSD 01550900 WRITE (I02, 90009) ZPROG, ZPROG 01560900 WRITE (I02, 90010) ZDATE, ZCOMPL 01570900 CBE** ********************** BBCHED0A **********************************01580900 C***** HEADER FORMAT STATEMENT 01590900 WRITE (NUVI,02100) 01600900 02100 FORMAT (" ",/1X,"FMTRWF - (021) FORMATTED I/O" //2X, 01610900 1 "REFS - 12.9.5 13.3 13.5" ) 01620900 CBB** ********************** BBCHED0B **********************************01630900 C**** WRITE DETAIL REPORT HEADERS 01640900 C**** 01650900 WRITE (I02,90004) 01660900 WRITE (I02,90004) 01670900 WRITE (I02,90013) 01680900 WRITE (I02,90014) 01690900 WRITE (I02,90015) IVTOTL 01700900 CBE** ********************** BBCHED0B **********************************01710900 C***** TESTS 1 THRU 11: 01720900 C***** FORMATTED READ AND WRITE STATEMENTS WITH COMPLEX 12.8.1 01730900 C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. 12.8.2 01740900 C***** E AND F CONVERSION ARE USED IN THE FORMAT 13.5.9.2.1-201750900 C***** STATEMENTS. SOME FORMAT DESCRIPTORS ARE REPEATED 13.5.9.2.1 01760900 C***** 01770900 02101 FORMAT (/8X,"COMPLEX CONVERSION TEST" /) 01780900 WRITE (NUVI,02101) 01790900 C***** INPUT CARD 1 01800900 02102 FORMAT ( 2(F3.1) , 2(F4.1), 2(F7.4)) 01810900 READ (IRVI,02102) CHAVC, CHBVC, A1C(2) 01820900 C***** INPUT CARDS 2, 3 01830900 02103 FORMAT ( 2F6.2, 2E10.3, 2E11.4, 2E8.1/ 2E14.7) 01840900 READ (IRVI,02103) A2C(1,2), B3C(2,2,1), CHCVC, A1C(1), CHDVC 01850900 C***** INPUT CARD 4 01860900 02104 FORMAT (F5.2, E11.4, E10.3, F4.1, 3(F5.2,E11.4)) 01870900 READ (IRVI,02104) A2C(2,1), BVC, QAVC, LM2C(1,2), LL1C(2) 01880900 CT001* TEST 1 01890900 IVTNUM = 1 01900900 WRITE (NUVI, 80004) IVTNUM 01910900 WRITE (NUVI, 80020) 01920900 WRITE (NUVI, 70010) CHAVC 01930900 70010 FORMAT (26X,F3.1,2X,F3.1) 01940900 IVINSP = IVINSP + 1 01950900 WRITE (NUVI, 80022) 01960900 WRITE (NUVI, 70011) 01970900 70011 FORMAT (26X, "1.0 5.5") 01980900 CT002* TEST 2 01990900 IVTNUM = 2 02000900 WRITE (NUVI, 80004) IVTNUM 02010900 WRITE (NUVI, 80020) 02020900 WRITE (NUVI, 70020) CHBVC 02030900 70020 FORMAT (26X,F4.1,2X,F4.1) 02040900 IVINSP = IVINSP + 1 02050900 WRITE (NUVI, 80022) 02060900 WRITE (NUVI, 70021) 02070900 70021 FORMAT (26X,"22.0 66.6" ) 02080900 CT003* TEST 3 02090900 IVTNUM = 3 02100900 WRITE (NUVI, 80004) IVTNUM 02110900 WRITE (NUVI, 80020) 02120900 WRITE (NUVI, 70030) A1C(2) 02130900 70030 FORMAT (26X,F7.4,2X,F7.4) 02140900 IVINSP = IVINSP + 1 02150900 WRITE (NUVI, 80022) 02160900 WRITE (NUVI, 70031) 02170900 70031 FORMAT (26X,"33.1234 55.0789" ) 02180900 CT004* TEST 4 02190900 IVTNUM = 4 02200900 WRITE (NUVI, 80004) IVTNUM 02210900 WRITE (NUVI, 80020) 02220900 WRITE (NUVI, 70040) A2C(1,2) 02230900 70040 FORMAT (26X,F6.2,2X,F6.2) 02240900 IVINSP = IVINSP + 1 02250900 WRITE (NUVI, 80022) 02260900 WRITE (NUVI, 70041) 02270900 70041 FORMAT (26X,"123.00 456.88" ) 02280900 CT005* TEST 5 02290900 IVTNUM = 5 02300900 REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 02310900 WRITE (NUVI, 80004) IVTNUM,REMRKS 02320900 WRITE (NUVI, 80020) 02330900 WRITE (NUVI, 70050) B3C(2,2,1) 02340900 70050 FORMAT (26X,E10.3,2X,E10.3) 02350900 IVINSP = IVINSP + 1 02360900 WRITE (NUVI, 70051) 02370900 70051 FORMAT (" ",16X,"CORRECT: " ,22X, "2 CORRECT ANSWERS POSSIB02380900 1LE") 02390900 WRITE (NUVI, 70052) 02400900 70052 FORMAT (26X,"+0.123E+01 +0.987E+01" / 02410900 1 26X,"+0.123+001 +0.987+001" ) 02420900 CT006* TEST 6 02430900 IVTNUM = 6 02440900 REMRKS = 'LEADING ZERO OPTIONAL' 02450900 WRITE (NUVI, 80004) IVTNUM, REMRKS 02460900 WRITE (NUVI, 80020) 02470900 WRITE (NUVI, 70060) CHCVC 02480900 70060 FORMAT (26X,E11.4,2X,E11.4) 02490900 IVINSP = IVINSP + 1 02500900 WRITE (NUVI, 70051) 02510900 WRITE (NUVI, 70061) 02520900 70061 FORMAT (26X,"-0.2345E+02 -0.6879E+02" / 02530900 1 26X,"-0.2345+002 -0.6879+002" ) 02540900 C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 02550900 WRITE (NUVI, 90002) 02560900 WRITE (NUVI, 90013) 02570900 WRITE (NUVI, 90014) 02580900 C***** 02590900 CT007* TEST 7 02600900 IVTNUM = 7 02610900 REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 02620900 WRITE (NUVI, 80004) IVTNUM, REMRKS 02630900 WRITE (NUVI, 80020) 02640900 WRITE (NUVI, 70070) A1C(1) 02650900 70070 FORMAT (26X,E8.1,2X,E8.1) 02660900 IVINSP = IVINSP + 1 02670900 WRITE (NUVI, 70051) 02680900 WRITE (NUVI, 70071) 02690900 70071 FORMAT (26X,"+0.7E+03 +0.4E+03" / 02700900 1 26X,"+0.7+003 +0.4+003" ) 02710900 CT008* TEST 8 02720900 IVTNUM = 8 02730900 WRITE (NUVI, 80004) IVTNUM, REMRKS 02740900 WRITE (NUVI, 80020) 02750900 WRITE (NUVI, 70080) CHDVC 02760900 70080 FORMAT (26X,E14.7,2X,E14.7) 02770900 IVINSP = IVINSP + 1 02780900 WRITE (NUVI, 70051) 02790900 WRITE (NUVI, 70081) 02800900 70081 FORMAT (26X,"+0.9876543E-04 +0.1357913E-04" / 02810900 1 26X,"+0.9876543-004 +0.1357913-004" ) 02820900 CT009* TEST 9 02830900 IVTNUM = 9 02840900 WRITE (NUVI, 70090) IVTNUM 02850900 70090 FORMAT (" ",2X,I3,4X,"INSPECT",32X, "LEADING PLUS SIGN/ZERO 02860900 1OPTIONAL"/" ",48X,"FOR THE SECOND NUMBER" ) 02870900 WRITE (NUVI, 80020) 02880900 WRITE (NUVI, 70091) A2C(2,1) 02890900 70091 FORMAT (26X,F5.2,2X,E11.4) 02900900 IVINSP = IVINSP + 1 02910900 WRITE (NUVI, 70051) 02920900 WRITE (NUVI, 70092) 02930900 70092 FORMAT (26X,"19.34 +0.2468E+02" / 02940900 1 26X,"19.34 +0.2468+002" ) 02950900 CT010* TEST 10 02960900 IVTNUM = 10 02970900 WRITE (NUVI, 70100) IVTNUM 02980900 70100 FORMAT (" ",2X,I3,4X,"INSPECT",32X, "LEADING PLUS SIGN/ZERO 02990900 1OPTIONAL"/" ",48X,"FOR THE FIRST NUMBER" ) 03000900 WRITE (NUVI, 80020) 03010900 WRITE (NUVI, 70101) BVC 03020900 70101 FORMAT (26X,E10.3,2X,F4.1) 03030900 IVINSP = IVINSP + 1 03040900 WRITE (NUVI, 70051) 03050900 WRITE (NUVI, 70102) 03060900 70102 FORMAT (26X,"+0.765E+02 87.6" / 03070900 1 26X,"+0.765+002 87.6" ) 03080900 CT011* TEST 11 03090900 IVTNUM = 11 03100900 WRITE (NUVI, 80004) IVTNUM, REMRKS 03110900 WRITE (NUVI, 70110) 03120900 70110 FORMAT (" ",16X,"COMPUTED:",23X,"3 COMPUTED LINES EXPECTED" )03130900 WRITE (NUVI,70111) QAVC, LM2C(1,2), LL1C(2) 03140900 70111 FORMAT (3(26X,F7.2,E11.4/)) 03150900 IVINSP = IVINSP + 1 03160900 WRITE (NUVI, 70112) 03170900 70112 FORMAT (" ",16X,"CORRECT: " ,22X, "EACH RESULT LINE SHOULD 03180900 1MATCH "/" ",48X,"EITHER ONE OF THE 2 POSSIBLE " / 03190900 2 " ",48X,"ANSWERS BELOW" ) 03200900 WRITE (NUVI, 70113) 03210900 70113 FORMAT (26X," +43.96+0.5407E+02" / 03220900 1 26X," +43.96+0.5407+002" ) 03230900 C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 03240900 WRITE (NUVI, 90002) 03250900 WRITE (NUVI, 90013) 03260900 WRITE (NUVI, 90014) 03270900 C***** 03280900 C***** TESTS 12 THRU 17: 03290900 C***** FORMATTED READ AND WRITE STATEMENTS WITH 12.8.1 03300900 C***** DOUBLE PRECISION VARIABLES IN AN I/O LIST. 12.8.2 03310900 C***** D CONVERSION IS USED IN THE FORMAT STATEMENTS. 13.5.9.2.203320900 C***** SOME D FORMAT DESCRIPTORS ARE REPEATED. (FIELD 13.3 03330900 C***** WIDTH ALWAYS INCLUDES 6 EXTRA POSITIONS TO 13.5.9 03340900 C***** PROVIDE FOR SIGN, DECIMAL POINT AND EXPONENT 13.5.9.2 03350900 C***** AND 1 POSITION FOR OPTIONAL DIGIT ZERO BEFORE 03360900 C***** THE DECIMAL POINT) 03370900 C***** 03380900 02109 FORMAT (/8X, "D CONVERSION TEST" /) 03390900 WRITE (NUVI,02109) 03400900 C***** INPUT CARD 5 03410900 02110 FORMAT ( 2X, D8.1) 03420900 READ (IRVI,02110) DPAVD 03430900 C***** INPUT CARDS 6, 7, 8 03440900 02111 FORMAT ( 2D10.3, D14.7, D18.11/ 3D21.14/ 2D16.9) 03450900 READ (IRVI,02111) MCA3D(1,2,2), AC1D(2), BC2D(3,1), AC1D(1), 03460900 1 ZZDVD, AC1D(3), DPBVD, MCA3D(1,2,1), BC2D(1,2) 03470900 CT012* TEST 12 03480900 IVTNUM = 12 03490900 WRITE (NUVI, 80004) IVTNUM, REMRKS 03500900 WRITE (NUVI, 80020) 03510900 WRITE (NUVI,70120) DPAVD 03520900 70120 FORMAT (26X,D8.1) 03530900 IVINSP = IVINSP + 1 03540900 WRITE (NUVI, 70121) 03550900 70121 FORMAT (" ",16X,"CORRECT: " ,22X, "3 CORRECT ANSWERS POSSIB03560900 1LE") 03570900 WRITE (NUVI, 70122) 03580900 70122 FORMAT (26X,"+0.1D+06"/26X,"+0.1E+06"/26X,"+0.1+006") 03590900 CT013* TEST 13 03600900 IVTNUM = 13 03610900 REMRKS = 'LEADING ZERO OPTIONAL' 03620900 WRITE (NUVI, 80004) IVTNUM, REMRKS 03630900 WRITE (NUVI, 70130) 03640900 70130 FORMAT (" ",16X,"COMPUTED:",23X,"2 COMPUTED LINES EXPECTED" )03650900 WRITE (NUVI, 70131) MCA3D(1,2,2), AC1D(2) 03660900 70131 FORMAT (26X,D10.3 / 26X,D10.3) 03670900 IVINSP = IVINSP + 1 03680900 WRITE (NUVI, 70132) 03690900 70132 FORMAT (" ",16X,"CORRECT: " ,22X, "EACH RESULT LINE SHOULD 03700900 1MATCH "/" ",48X,"ONE OF THE 3 POSSIBLE ANSWERS " / 03710900 2 " ",48X,"BELOW") 03720900 WRITE (NUVI, 70133) 03730900 70133 FORMAT(26X,"-0.334D-04" /26X,"-0.334E-04" /26X,"-0.334-004" )03740900 CT014* TEST 14 03750900 IVTNUM = 14 03760900 REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 03770900 WRITE (NUVI, 80004) IVTNUM, REMRKS 03780900 WRITE (NUVI, 80020) 03790900 WRITE (NUVI, 70140) BC2D(3,1) 03800900 70140 FORMAT (26X,D14.7) 03810900 IVINSP = IVINSP + 1 03820900 WRITE (NUVI, 70121) 03830900 WRITE (NUVI, 70141) 03840900 70141 FORMAT (26X,"+0.7657654D+00" / 03850900 1 26X,"+0.7657654E+00" / 03860900 2 26X,"+0.7657654+000" ) 03870900 CT015* TEST 15 03880900 IVTNUM = 15 03890900 WRITE (NUVI, 80004) IVTNUM, REMRKS 03900900 WRITE (NUVI, 80020) 03910900 WRITE (NUVI, 70150) AC1D(1) 03920900 70150 FORMAT (26X,D18.11) 03930900 IVINSP = IVINSP + 1 03940900 WRITE (NUVI, 70121) 03950900 WRITE (NUVI, 70151) 03960900 70151 FORMAT (26X,"+0.12345678901D+10" / 03970900 1 26X,"+0.12345678901E+10" / 03980900 2 26X,"+0.12345678901+010" ) 03990900 CT016* TEST 16 04000900 IVTNUM = 16 04010900 WRITE (NUVI, 80004) IVTNUM, REMRKS 04020900 WRITE (NUVI, 70110) 04030900 WRITE (NUVI, 70160) ZZDVD,AC1D(3),DPBVD 04040900 70160 FORMAT (26X,D21.14 / 26X,D21.14 / 26X,D21.14) 04050900 IVINSP = IVINSP + 1 04060900 WRITE (NUVI, 70132) 04070900 WRITE (NUVI, 70161) 04080900 70161 FORMAT (26X,"+0.98765432109876D-01" / 04090900 1 26X,"+0.98765432109876E-01" / 04100900 2 26X,"+0.98765432109876-001" ) 04110900 CT017* TEST 17 04120900 IVTNUM = 17 04130900 REMRKS = 'LEADING ZERO OPTIONAL' 04140900 WRITE (NUVI, 80004) IVTNUM, REMRKS 04150900 WRITE (NUVI, 70130) 04160900 WRITE (NUVI, 70170) MCA3D(1,2,1), BC2D(1,2) 04170900 70170 FORMAT (26X,D16.9 /26X,D16.9) 04180900 IVINSP = IVINSP + 1 04190900 WRITE (NUVI, 70132) 04200900 WRITE (NUVI, 70171) 04210900 70171 FORMAT (26X,"-0.555555542D+03" / 04220900 1 26X,"-0.555555542E+03" / 04230900 2 26X,"-0.555555542+003" ) 04240900 C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 04250900 WRITE (NUVI, 90002) 04260900 WRITE (NUVI, 90013) 04270900 WRITE (NUVI, 90014) 04280900 C***** 04290900 C***** TESTS 18 THRU 22: 04300900 C***** FORMATTED READ AND WRITE STATEMENTS WITH ARRAY 12.8.104310900 C***** NAMES OF ALL TYPES IN AN I/O LIST. THE NUMBER OF 12.8.204320900 C***** ITEMS IN THE LIST IS VARIABLE. SOME FIELD 13.3 04330900 C***** DESCRIPTORS ARE REPEATED. 04340900 C***** 04350900 02114 FORMAT (/8X, "TEST UNSUBSCRIPTED ARRAY NAMES IN I/O LISTS " /) 04360900 WRITE (NUVI,02114) 04370900 C***** INPUT CARDS 9, 10 04380900 02115 FORMAT(2X,8(F3.1),8F3.1/8(2(F3.1))) 04390900 READ (IRVI,02115) B1C,B3C 04400900 C***** INPUT CARDS 11, 12 04410900 02116 FORMAT(4(D9.2),4D9.2/2X,4(D9.2)) 04420900 READ (IRVI,02116) A3D, A2D 04430900 C***** INPUT CARDS 13, 14 04440900 02117 FORMAT (2X,4(2X),5(D9.2)/4(2(F3.1))) 04450900 READ (IRVI,02117) DPA1D, A2C 04460900 CT018* TEST 18 04470900 IVTNUM = 18 04480900 WRITE (NUVI, 80004) IVTNUM 04490900 WRITE (NUVI, 70130) 04500900 WRITE (NUVI,70180) B1C 04510900 70180 FORMAT (26X,8(F3.1) / 26X,8(F3.1)) 04520900 IVINSP = IVINSP + 1 04530900 WRITE (NUVI, 70181) 04540900 70181 FORMAT (" ",16X,"CORRECT: " ,22X, "EACH RESULT LINE SHOULD 04550900 1EQUAL") 04560900 WRITE (NUVI, 70182) 04570900 70182 FORMAT (26X, "9.91.19.92.29.93.39.94.4" ) 04580900 CT019* TEST 19 04590900 IVTNUM = 19 04600900 WRITE (NUVI, 80004) IVTNUM, REMRKS 04610900 WRITE (NUVI, 70130) 04620900 WRITE (NUVI, 70190) A3D 04630900 70190 FORMAT (26X,4(D9.2) / 26X,4(D9.2)) 04640900 IVINSP = IVINSP + 1 04650900 WRITE (NUVI, 70132) 04660900 WRITE (NUVI, 70191) 04670900 70191 FORMAT (26X,"-0.99D+01-0.98D+01-0.97D+01-0.96D+01" / 04680900 1 26X,"-0.99E+01-0.98E+01-0.97E+01-0.96E+01" / 04690900 2 26X,"-0.99+001-0.98+001-0.97+001-0.96+001" ) 04700900 CT020* TEST 20 04710900 IVTNUM = 20 04720900 REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 04730900 WRITE (NUVI, 80004) IVTNUM, REMRKS 04740900 WRITE (NUVI, 80020) 04750900 WRITE (NUVI,70200) A2D 04760900 70200 FORMAT (26X,4(D9.2)) 04770900 IVINSP = IVINSP + 1 04780900 WRITE (NUVI, 70121) 04790900 WRITE (NUVI, 70201) 04800900 70201 FORMAT (26X,"+0.99D+01+0.98D+01+0.97D+01+0.96D+01" / 04810900 1 26X,"+0.99E+01+0.98E+01+0.97E+01+0.96E+01" / 04820900 2 26X,"+0.99+001+0.98+001+0.97+001+0.96+001" ) 04830900 CT021* TEST 21 04840900 IVTNUM = 21 04850900 WRITE (NUVI, 80004) IVTNUM, REMRKS 04860900 WRITE (NUVI, 70210) 04870900 70210 FORMAT (" ",16X,"COMPUTED:",23X,"5 COMPUTED LINES EXPECTED" )04880900 WRITE (NUVI,70211) DPA1D 04890900 70211 FORMAT (5(26X,D11.2/)) 04900900 IVINSP = IVINSP + 1 04910900 WRITE (NUVI, 70132) 04920900 WRITE (NUVI, 70212) 04930900 70212 FORMAT (26X," +0.99D+01" / 04940900 1 26X," +0.99E+01" / 04950900 2 26X," +0.99+001" ) 04960900 CT022* TEST 22 04970900 IVTNUM = 22 04980900 WRITE (NUVI, 80004) IVTNUM 04990900 WRITE (NUVI, 70110) 05000900 WRITE (NUVI,70220) A2C, B3C 05010900 70220 FORMAT (26X,8(F3.1) / 26X,8(F3.1) / 26X,8(F3.1)) 05020900 IVINSP = IVINSP + 1 05030900 WRITE (NUVI, 70181) 05040900 WRITE (NUVI, 70221) 05050900 70221 FORMAT (26X,"9.95.59.96.69.97.79.98.8" ) 05060900 C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 05070900 WRITE (NUVI, 90002) 05080900 WRITE (NUVI, 90013) 05090900 WRITE (NUVI, 90014) 05100900 C***** 05110900 C***** TESTS 23 THRU 30: 05120900 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.905130900 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 05140900 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH. (D AND 05150900 C***** F DESCRIPTORS ARE TESTED.) 05160900 C***** 05170900 02121 FORMAT (/8X, "LEADING BLANK INSERTION TEST" /) 05180900 WRITE (NUVI,02121) 05190900 CT023* TEST 23 05200900 IVTNUM = 23 05210900 WRITE (NUVI, 80004) IVTNUM, REMRKS 05220900 WRITE (NUVI, 70230) 05230900 70230 FORMAT (" ",48X,"LEADING BLANKS ARE REQUIRED" ) 05240900 WRITE (NUVI, 80020) 05250900 WRITE (NUVI, 70231) AC1D(3) 05260900 70231 FORMAT (26X,D9.1) 05270900 IVINSP = IVINSP + 1 05280900 WRITE (NUVI, 70121) 05290900 WRITE (NUVI, 70232) 05300900 70232 FORMAT (26X," +0.1D+00"/26X," +0.1E+00"/26X," +0.1+000") 05310900 CT024* TEST 24 05320900 IVTNUM = 24 05330900 WRITE (NUVI, 80004) IVTNUM, REMRKS 05340900 WRITE (NUVI, 70230) 05350900 WRITE (NUVI, 80020) 05360900 WRITE (NUVI, 70240) ZZDVD 05370900 70240 FORMAT (26X,D10.1) 05380900 IVINSP = IVINSP + 1 05390900 WRITE (NUVI, 70121) 05400900 WRITE (NUVI, 70241) 05410900 70241 FORMAT(26X," +0.1D+00" /26X," +0.1E+00" /26X," +0.1+000" )05420900 CT025* TEST 25 05430900 IVTNUM = 25 05440900 WRITE (NUVI, 80004) IVTNUM, REMRKS 05450900 WRITE (NUVI, 70230) 05460900 WRITE (NUVI, 80020) 05470900 WRITE (NUVI, 70250) ZZDVD 05480900 70250 FORMAT (26X,D11.1) 05490900 IVINSP = IVINSP + 1 05500900 WRITE (NUVI, 70121) 05510900 WRITE (NUVI, 70251) 05520900 70251 FORMAT (26X," +0.1D+00" / 05530900 1 26X," +0.1E+00" / 05540900 2 26X," +0.1+000" ) 05550900 CT026* TEST 26 05560900 IVTNUM = 26 05570900 WRITE (NUVI, 80004) IVTNUM, REMRKS 05580900 WRITE (NUVI, 70230) 05590900 WRITE (NUVI, 80020) 05600900 WRITE (NUVI, 70260) ZZDVD 05610900 70260 FORMAT (26X,D12.1) 05620900 IVINSP = IVINSP + 1 05630900 WRITE (NUVI, 70121) 05640900 WRITE (NUVI, 70261) 05650900 70261 FORMAT (26X," +0.1D+00" / 05660900 1 26X," +0.1E+00" / 05670900 2 26X," +0.1+000" ) 05680900 CT027* TEST 27 05690900 IVTNUM = 27 05700900 REMRKS = 'LEADING PLUS OPTIONAL' 05710900 WRITE (NUVI, 80004) IVTNUM, REMRKS 05720900 WRITE (NUVI, 70230) 05730900 WRITE (NUVI, 80020) 05740900 WRITE (NUVI, 70270) CHAVC 05750900 70270 FORMAT (26X,2(F5.1)) 05760900 IVINSP = IVINSP + 1 05770900 WRITE (NUVI, 80022) 05780900 WRITE (NUVI, 70271) 05790900 70271 FORMAT (26X," +1.0 +5.5" ) 05800900 CT028* TEST 28 05810900 IVTNUM = 28 05820900 WRITE (NUVI, 80004) IVTNUM, REMRKS 05830900 WRITE (NUVI, 70230) 05840900 WRITE (NUVI, 80020) 05850900 WRITE (NUVI, 70280) B3C(1,1,1) 05860900 70280 FORMAT (26X,2(F6.1)) 05870900 IVINSP = IVINSP + 1 05880900 WRITE (NUVI, 80022) 05890900 WRITE (NUVI, 70281) 05900900 70281 FORMAT (26X," +9.9 +5.5" ) 05910900 C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 05920900 WRITE (NUVI, 90002) 05930900 WRITE (NUVI, 90013) 05940900 WRITE (NUVI, 90014) 05950900 C***** 05960900 CT029* TEST 29 05970900 IVTNUM = 29 05980900 WRITE (NUVI, 80004) IVTNUM, REMRKS 05990900 WRITE (NUVI, 70230) 06000900 WRITE (NUVI, 80020) 06010900 WRITE (NUVI, 70290) B3C(1,1,1) 06020900 70290 FORMAT (26X,2(F7.1)) 06030900 IVINSP = IVINSP + 1 06040900 WRITE (NUVI, 80022) 06050900 WRITE (NUVI, 70291) 06060900 70291 FORMAT (26X," +9.9 +5.5" ) 06070900 CT030* TEST 30 06080900 IVTNUM = 30 06090900 WRITE (NUVI, 80004) IVTNUM, REMRKS 06100900 WRITE (NUVI, 70230) 06110900 WRITE (NUVI, 80020) 06120900 WRITE (NUVI, 70300) CHAVC 06130900 70300 FORMAT (26X,2(F8.1)) 06140900 IVINSP = IVINSP + 1 06150900 WRITE (NUVI, 80022) 06160900 WRITE (NUVI, 70301) 06170900 70301 FORMAT (26X," +1.0 +5.5" ) 06180900 C***** TESTS 31 THRU 32: 06190900 C***** FORMATS WITH G CONVERSIONS USING COMPLEX DATA 13.5.9.2.306200900 C***** 06210900 C***** INPUT CARD 15 06220900 02123 FORMAT( 3(G11.4), 3G11.4) 06230900 READ (IRVI,02123) LL1C(1), LL1C(2), LL1C(3) 06240900 02124 FORMAT (/8X,"G CONVERSION TEST" /) 06250900 WRITE (NUVI, 02124) 06260900 CT031* TEST 31 06270900 IVTNUM = 31 06280900 REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 06290900 WRITE (NUVI, 80004) IVTNUM, REMRKS 06300900 WRITE (NUVI, 70130) 06310900 WRITE (NUVI, 70310) LL1C(1), LL1C(2), LL1C(3) 06320900 70310 FORMAT (26X,G14.4,4X,2G11.4 / 26X,G14.4,4X,2G11.4) 06330900 IVINSP = IVINSP + 1 06340900 WRITE (NUVI, 70311) 06350900 70311 FORMAT(/" ",16X,"CORRECT: " ,22X, "CORRESPONDING LINES MUST06360900 1 MATCH " ,/" ",48X,"EITHER OF THE FOLLOWING TWO " , 06370900 2 /" ",48X,"CORRECT ANSWERS " /) 06380900 WRITE (NUVI, 70312) 06390900 70312 FORMAT (26X," +0.1235E+05 +1235. +123.5" / 06400900 1 26X," +12.35 +1.235 +0.1235" // 06410900 2 26X," +0.1235+005 +1235. +123.5" / 06420900 3 26X," +12.35 +1.235 +0.1235" ) 06430900 C***** TESTS 32 THRU 34: 06440900 C***** ON READ, BUT NOT ON WRITE 06450900 C***** SCALE FACTOR APPLIED TO F,E,D,G DESCRIPTORS 13.7.5.106460900 C***** 06470900 C***** INPUT CARD 16 06480900 02126 FORMAT(2PF8.3,-2PE9.4,F9.4,0PG9.4,D9.4,-2PE9.4,F9.4,D9.4,2PG9.4) 06490900 READ(IRVI,02126)BVC, CHAVC, BC2D(1,4), A1C(1), BC2D(2,1), DPAVD 06500900 02127 FORMAT(/8X, "SCALE FACTOR ON READ" /) 06510900 WRITE (NUVI, 02127) 06520900 CT032* TEST 32 06530900 IVTNUM = 32 06540900 WRITE (NUVI, 80004) IVTNUM, REMRKS 06550900 WRITE (NUVI, 80020) 06560900 WRITE (NUVI, 70320) BVC,CHAVC 06570900 70320 FORMAT (26X,F12.4,E12.4,F12.2,F12.3) 06580900 IVINSP = IVINSP + 1 06590900 WRITE (NUVI, 70051) 06600900 WRITE (NUVI, 70321) 06610900 70321 FORMAT (30X,"+98.7654 +0.9877E+04 +987654.00 +987.654" / 06620900 1 30X,"+98.7654 +0.9877+004 +987654.00 +987.654" ) 06630900 CT033* TEST 33 06640900 IVTNUM = 33 06650900 WRITE (NUVI, 80004) IVTNUM, REMRKS 06660900 WRITE (NUVI, 80020) 06670900 WRITE (NUVI, 70330) BC2D(1,4), A1C(1) 06680900 70330 FORMAT (26X,D12.4,E12.4,F12.3) 06690900 IVINSP = IVINSP + 1 06700900 WRITE (NUVI, 70121) 06710900 WRITE (NUVI, 70331) 06720900 70331 FORMAT (26X," +0.8648D-02 +0.8648E+04 +8647.860" / 06730900 1 26X," +0.8648E-02 +0.8648E+04 +8647.860" / 06740900 2 26X," +0.8648-002 +0.8648+004 +8647.860" ) 06750900 70332 FORMAT (" ",48X," OR") 06750900 WRITE (NUVI,70332) 06750900 70333 FORMAT (26X," +0.8648D-02 +0.8648E+04 +8647.859" / 06750900 1 26X," +0.8648E-02 +0.8648E+04 +8647.859" / 06750900 2 26X," +0.8648-002 +0.8648+004 +8647.859" ) 06750900 WRITE (NUVI,70333) 06750900 CT034* TEST 34 06760900 IVTNUM = 34 06770900 WRITE (NUVI, 80004) IVTNUM, REMRKS 06780900 WRITE (NUVI, 80020) 06790900 WRITE (NUVI, 70340) BC2D(2,1), DPAVD 06800900 70340 FORMAT (26X,D12.4,G16.4) 06810900 IVINSP = IVINSP + 1 06820900 WRITE (NUVI, 70121) 06830900 WRITE (NUVI, 70341) 06840900 70341 FORMAT (26X," +0.8658D+04 +98.77" / 06850900 1 26X," +0.8658E+04 +98.77" / 06860900 2 26X," +0.8658+004 +98.77" ) 06870900 C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 06880900 WRITE (NUVI, 90002) 06890900 WRITE (NUVI, 90013) 06900900 WRITE (NUVI, 90014) 06910900 C***** 06920900 C***** TESTS 35 AND 36: 06930900 C***** SCALE FACTOR APPLIED TO F, E, D, G DESCRIPTORS 06940900 C***** ON WRITE, BUT, NOT ON READ 06950900 C***** 06960900 C***** INPUT CARD 17 06970900 02128 FORMAT(F8.2,E9.4,F9.2,G9.3,D9.0,E9.4,F9.4,D9.2,G9.4) 06980900 READ(IRVI,02128) CHBVC, A2C(2,1), AC1D(4), CHCVC, AC1D(5), DPBVD 06990900 02129 FORMAT(/8X, "SCALE FACTOR ON WRITE" /) 07000900 WRITE (NUVI, 02129) 07010900 CT035* TEST 35 07020900 IVTNUM = 35 07030900 WRITE (NUVI, 80004) IVTNUM, REMRKS 07040900 WRITE (NUVI, 80020) 07050900 WRITE (NUVI, 70350) CHBVC, A2C(2,1), AC1D(4) 07060900 70350 FORMAT (26X,2PF12.2,-2PE12.4,F12.4,1PG12.2,D12.4) 07070900 IVINSP = IVINSP + 1 07080900 WRITE (NUVI, 70121) 07090900 WRITE (NUVI, 70351) 07100900 70351 FORMAT (28X, " +987.66 +0.0099E+06 +98.7654 +9.88E+02 07110900 1+8.6479D+02"/28X, " +987.66 +0.0099E+06 +98.7654 +9.88E+02 07120900 2+8.6479E+02"/28X, " +987.66 +0.0099+006 +98.7654 +9.88+002 07130900 3+8.6479+002") 07140900 70352 FORMAT (" ",48X," OR") 07140900 WRITE (NUVI,70352) 07140900 70353 FORMAT (28X, " +987.66 +0.0099E+06 +98.76539 +9.88E+02 07140900 1+8.6479D+02"/28X, " +987.66 +0.0099E+06 +98.76539 +9.88E+02 07140900 2+8.6479E+02"/28X, " +987.66 +0.0099+006 +98.76539 +9.88+002 07140900 3+8.6479+002") 07140900 WRITE (NUVI,70353) 07140900 CT036* TEST 36 07150900 IVTNUM = 36 07160900 WRITE (NUVI, 80004) IVTNUM, REMRKS 07170900 WRITE (NUVI, 80020) 07180900 WRITE(NUVI,70360) CHCVC, AC1D(5), DPBVD 07190900 70360 FORMAT (26X,-2PE12.4,2PF12.2,1PD12.4,2PG16.4) 07200900 IVINSP = IVINSP + 1 07210900 WRITE (NUVI, 70121) 07220900 WRITE (NUVI, 70361) 07230900 70361 FORMAT(27X, "+0.0086E+06 +8647.86 +8.6579D+03 +9877."07240900 1 /27X, "+0.0086E+06 +8647.86 +8.6579E+03 +9877."07250900 2 /27X,"+0.0086+006 +8647.86 +8.6579+003 +9877." )07260900 CBB** ********************** BBCSUM0 **********************************07270900 C**** WRITE OUT TEST SUMMARY 07280900 C**** 07290900 IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 07300900 WRITE (I02, 90004) 07310900 WRITE (I02, 90014) 07320900 WRITE (I02, 90004) 07330900 WRITE (I02, 90020) IVPASS 07340900 WRITE (I02, 90022) IVFAIL 07350900 WRITE (I02, 90024) IVDELE 07360900 WRITE (I02, 90026) IVINSP 07370900 WRITE (I02, 90028) IVTOTN, IVTOTL 07380900 CBE** ********************** BBCSUM0 **********************************07390900 CBB** ********************** BBCFOOT0 **********************************07400900 C**** WRITE OUT REPORT FOOTINGS 07410900 C**** 07420900 WRITE (I02,90016) ZPROG, ZPROG 07430900 WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 07440900 WRITE (I02,90019) 07450900 CBE** ********************** BBCFOOT0 **********************************07460900 CBB** ********************** BBCFMT0A **********************************07470900 C**** FORMATS FOR TEST DETAIL LINES 07480900 C**** 07490900 80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31) 07500900 80002 FORMAT (" ",2X,I3,4X," PASS ",32X,A31) 07510900 80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31) 07520900 80008 FORMAT (" ",2X,I3,4X," FAIL ",32X,A31) 07530900 80010 FORMAT (" ",2X,I3,4X," FAIL ",/," ",15X,"COMPUTED= " , 07540900 1I6,/," ",15X,"CORRECT= " ,I6) 07550900 80012 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 07560900 1E12.5,/," ",16X,"CORRECT= " ,E12.5) 07570900 80018 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 07580900 1A21,/," ",16X,"CORRECT= " ,A21) 07590900 80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31) 07600900 80022 FORMAT (" ",16X,"CORRECT= " ,A21,1X,A31) 07610900 80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31) 07620900 80026 FORMAT (" ",16X,"CORRECT= " ,I6,16X,A31) 07630900 80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31) 07640900 80030 FORMAT (" ",16X,"CORRECT= " ,E12.5,10X,A31) 07650900 80050 FORMAT (" ",48X,A31) 07660900 CBE** ********************** BBCFMT0A **********************************07670900 CBB** ********************** BBCFMAT1 **********************************07680900 C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 07690900 C**** 07700900 80031 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 07710900 1D17.10,/," ",16X,"CORRECT= " ,D17.10) 07720900 80033 FORMAT (" ",16X,"COMPUTED= " ,D17.10,10X,A31) 07730900 80035 FORMAT (" ",16X,"CORRECT= " ,D17.10,10X,A31) 07740900 80037 FORMAT (" ",16X,"COMPUTED= " ,"(",E12.5,", ",E12.5,")",6X,A31) 07750900 80039 FORMAT (" ",16X,"CORRECT= " ,"(",E12.5,", ",E12.5,")",6X,A31) 07760900 80041 FORMAT (" ",16X,"COMPUTED= " ,"(",F12.5,", ",F12.5,")",6X,A31) 07770900 80043 FORMAT (" ",16X,"CORRECT= " ,"(",F12.5,", ",F12.5,")",6X,A31) 07780900 80045 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 07790900 1"(",F12.5,", ",F12.5,")"/," ",16X,"CORRECT= " , 07800900 2"(",F12.5,", ",F12.5,")") 07810900 CBE** ********************** BBCFMAT1 **********************************07820900 CBB** ********************** BBCFMT0B **********************************07830900 C**** FORMAT STATEMENTS FOR PAGE HEADERS 07840900 C**** 07850900 90002 FORMAT ("1") 07860900 90004 FORMAT (" ") 07870900 90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )07880900 90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07890900 90008 FORMAT (" ",21X,A13,A17) 07900900 90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/) 07910900 90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17," - COMPILER= " ,A20) 07920900 90013 FORMAT (" "," TEST ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" , 07930900 1 7X,"REMARKS",24X) 07940900 90014 FORMAT (" ","----------------------------------------------" , 07950900 1 "---------------------------------" ) 07960900 90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/) 07970900 C**** 07980900 C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 07990900 C**** 08000900 90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/) 08010900 90018 FORMAT (" ",A13,13X,A20," * ",A10,"/", 08020900 1 A13) 08030900 90019 FORMAT (" ","FOR OFFICIAL USE ONLY " ,35X,"COPYRIGHT 1982" ) 08040900 C**** 08050900 C**** FORMAT STATEMENTS FOR RUN SUMMARY 08060900 C**** 08070900 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 08080900 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 08090900 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 08100900 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 08110900 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 08120900 CBE** ********************** BBCFMT0B **********************************08130900 C***** 08140900 C***** END OF TEST SEGMENT 21 08150900 STOP 08160900 END 08170900