| 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 |
