C***** PART1 *****************************************************H0000010 C***** H0000015 C***** ANSI FORTRAN (X3.9-1966) TEST PROGRAMS H0000020 C***** H0000025 C***** PREPARED BY THE NATIONAL BUREAU OF STANDARDS VERSION 3 H0000030 C***** H0000035 C***** JUNE 1974 H0000040 C***** H0000045 C***** PART 1 OF 14 PARTS H0000050 C***** H0000055 C***** SEGMENTS INCLUDED H0000060 C***** H0000065 C***** DATA1 - 003 TEST FORMAT OF DATA STATEMENT H0000070 C***** H0000075 C***** FMTRW - 008 FORMATTED INPUT/OUTPUT H0000080 C***** H0000085 C***** AFRMT - 009 A-CONVERSION H0000090 C***** H0000095 C***** DATA2 - 010 DATA STATEMENT USE H0000100 C***** H0000105 C***** AASGN - 011 REAL AND INTEGER ARITH ASSIGN. STMNTS H0000110 C***** H0010010 C***** THE FOLLOWING SPECIFICATIONS ARE TO BE USED ONLY WHEN H0010015 C***** SEGMENTS 003, 008, 009, 010, 011 ARE RUN AS ONE MAIN PROGRAM H0010020 C***** H0010025 DIMENSION IAC2I(2,7), EP1S(33), AC2S(5,6), AC3S(1,1,3) H0010030 DIMENSION A1S(5), A2S(2,2), CMA1S(5), A3S(3,3,3) H0010035 1 , IAC1I(5), AC1S(25), MCA1I(5) H0010040 INTEGER AVI,MCA3I(2,3,3),I2I(2,2),I3I(2,2,2),BVI,MAVI,LAVI,I1I(5) H0010045 REAL JVS, MVS, CVS, BCVS H0010050 LOGICAL MAVB, MBVB, MCVB, MCA1B(7), GH2B(1,2), GI3B(1,1,2),MCBVB H0010055 1 , A1B(2), A2B(2,2), A3B(2,2,2), GG1B(2), AVB, CVB, DVB, EVB H0010060 DOUBLE PRECISION AVD, BVD, CVD, DVD H0010065 1 , DPA2D(2,2), MCA3D(1,4,2), A1D(4) H0010070 DOUBLE PRECISION DPA1D(5), ZZDVD, A2D(2,2), A3D(2,2,2) H0010075 1 , AC1D(10), BC2D(7,4), DPAVD, DPBVD H0010080 COMPLEX ADSVC, BCVC, CHEVC, DCVC, LL1C(32), LM2C(8,4) H0010085 1, LN3C(9,2,2), BVC, QAVC, CHAVC, CHBVC, CHCVC, CHDVC H0010090 2 , A1C(12), A2C(2,2), B3C(2,2,2), B1C(8) H0010095 C***** END OF SPECIFICATIONS FOR SEGMENTS 003, 008, 009, 010, 011 H0010100 C***** H0010105 C***********************************************************************H0030010 C***** H0030020 C***** DATA1 - (003) H0030030 C***** COMPLETE WITH DATA2 - (010) H0030040 C***** H0030050 C***********************************************************************H0030060 C***** GENERAL PURPOSE ASA REFSH0030070 C***** TO TEST FORMAT OF DATA STATEMENT 7.2.2 H0030080 C***** RESTRICTIONS OBSERVED H0030090 C***** NO DUMMY ARGUMENTS OR EXTERNAL FUNCTION NAMES 7.2.2/27H0030100 C***** APPEAR IN DATA STATEMENTS 8.4.1.1/40H0030110 C***** 10.1.2/08H0030120 C***** NO INITIALY DEFINED ITEMS APPEAR IN BLANK COMMON 7.2.2/39H0030130 C***** 10.2.4/47H0030140 C***** STORAGE UNITS INITIALIZED ONLY ONCE 10.1.2/10H0030150 C***** SUBSCRIPTS ARE INTEGER CONSTANTS 7.2.2/28H0030160 C***** EXPLICIT VARIABLES H0030170 C***** AVI IS INTEGER H0030180 C***** JVS IS REAL H0030190 C***** H0030200 C***** S P E C I F I C A T I O N S SEGMENTS 003 AND 010 H0030210 C***** H0030220 C***** WHEN EXECUTING ONLY SEGMENTS 003 AND 010, REMOVE THE PRECEDING H0010110 C***** SPECIFICATIONS. THE FOLLOWING SPECIFICATIONS WHICH APPEAR AS H0010115 C***** COMMENTS MUST HAVE THE C= IN COL 1 AND 2 REMOVED. H0010120 C***** H0010125 C= DIMENSION IAC2I(2,7), EP1S(33), AC2S(5,6) H0010130 C= 1,AC3S(1,1,3) H0010135 C= INTEGER AVI ,MCA3I(2,3,3), I1I(5) H0010140 C= REAL JVS H0010145 C= LOGICAL MAVB,MBVB,MCVB, MCA1B(7),GH2B(1,2),GI3B(1,1,2),GG1B(2) H0010150 C= DOUBLE PRECISION AVD,BVD,CVD,DVD H0010155 C= 1,DPA2D(2,2),MCA3D(1,4,2),A1D(4) H0010160 C= COMPLEX ADSVC,BCVC,CHEVC,DCVC,LL1C(32),LM2C(8,4),LN3C(9,2,2) H0010165 C***** H0010170 C***** TEST DATA INITIALIZATION OF INTEGER CONSTANTS TO 5.1.1.1 H0030230 C***** INTEGER VARIABLES H0030240 DATA I1I(1),MCA3I(1,2,1),MCA3I(2,2,2),IAC2I(2,5),IAC2I(2,6), H0030250 AMCA3I(2,1,1)/0,2*10,3*246/ H0030260 C***** TEST DATA INITIALIZATION OF REAL CONSTANTS TO 5.1.1.2 H0030270 C***** REAL VARIABLES H0030280 DATA EP1S(8),EP1S(10),EP1S(12),AC2S(5,5),EP1S(11),AC2S(5,3), H0030290 AAC2S(5,2)/2*0.,2*-750.05,.24615E3,2.4615E2,3.54674E+3/ H0030300 C***** TEST DATA INITIALIZATION OF DP CONTANTS TO 5.1.1.3 H0030310 C***** DP VARIABLES H0030320 DATA BVD ,DPA2D(2,1),CVD,DPA2D(1,2), DVD,DPA2D(2,2)/+34567890.1D-H0030330 A3,345.678901D+2,112233.5D-08,11.22335D-4,3.4D12,0.34D13/ H0030340 C***** TEST DATA INITIALIZATION OF COMPLEX CONSTANTS TO 5.1.1.4 H0030350 C***** COMPLEX VARIABLES H0030360 DATA ADSVC,LN3C(9,1,2),LL1C(30),LN3C(8,2,2),LM2C(8,3),LN3C(9,1,1),H0030370 ALL1C(32),LN3C(8,1,2)/2*(11.1,22.22),(-3.45E1,-67.8E-1), H0030380 B(-34.5E0,-6.78E0),(10.E0,-20.E0),(1.0E1,-2.0E1),(-20.0E1,+4.E3), H0030390 C(-200.E0,+4000.E0)/ H0030400 C***** TEST DATA INITIALIZATION OF LOGICAL CONSTANTS TO 5.1.1.5 H0030410 C***** LOGICAL VARIABLES H0030420 DATA MAVB ,MCA1B(6), MBVB/2*.TRUE.,.FALSE./ H0030430 C***** TEST DATA INITIALIZATION OF HOLLERITH CONSTANTS 5.1.1.6 H0030440 DATA GI3B(1,1,2),GG1B(1),EP1S(15)/2HNO,2*2HAD/ H0030450 C***** TEST DATA INITIALIZATION OF A MIXTURE OF ALL TYPES OF H0030460 C***** CONSTANTS AND VARIABLES IN ONE DATA STATEMENT H0030470 DATA I1I(2),IAC2I(1,5),IAC2I(1,3), I1I(5),IAC2I(2,4), H0030480 AMCA3I(1,1,2), AVI,EP1S(13),AC2S(2,6),AC2S(1,6),AC3S(1,1,1), H0030490 BAC2S(3,6),AC3S(1,1,2),AC2S(4,6), AVD,A1D(1),DPA2D(1,1), H0030500 CMCA3D(1,1,1),A1D(2),MCA3D(1,1,2),LL1C(29),LN3C(8,2,1),BCVC, H0030510 DLM2C(8,4),GH2B(1,1),GI3B(1,1,1), MCVB/3*0,4*-750,2*0.,2*246.15, H0030520 E354674.E-2,354.674E+ 1,35467.4E-01,3*-.295D5,-29.5D+3, H0030530 F3456.78901D+01,0.345678901D+5,2*(1.11E1,+222.2E-1),(-34.5,-6.78), H0030540 G(-.345E2,-678.E-2),2*.TRUE.,.FALSE./, I1I(3), I1I(4), H0030550 HMCA3I(1,2,2),AC2S(5,6),JVS ,EP1S(14),AC3S(1,1,3),IAC2I(1,4), H0030560 ICHEVC,LL1C(31),DCVC,LM2C(8,2),A1D(3),MCA3D(1,3,1),A1D(4), H0030570 JMCA3D(1,4,1), MCA1B(7),GH2B(1,2) / 2*10,+246,H0030580 K-.75005E03,-7.5005E+02,2HBC,2H*=,2H P,2*(10.,-20.), H0030590 L(-200.,+4000.),(-2000.E-1,+400.E1),+1122.335D-6,0.00001122335D+2, H0030600 M34.0D11,0.034D14,2*.FALSE./ H0030610 C***** END OF SEGMENT 003 H0030620 C***********************************************************************H0080010 C***** H0080020 C***** FMTRW - (008) H0080030 C***** H0080040 C***********************************************************************H0080050 C***** GENERAL PURPOSE ASA REFSH0080060 C***** TO TEST SIMPLE FORMAT AND FORMATTED I/O STATEMENTS 7.1.3.2.2H0080070 C***** SO THAT THESE FEATURES MAY BE USED IN OTHER TEST 7.1.3.2.3H0080080 C***** PROGRAM SEGMENTS 7.2.3 H0080090 C***** RESTRICTIONS OBSERVED H0080100 C***** * ALL FORMAT STATEMENTS ARE LABELED 7.2.3 /57H0080110 C***** * H AND X DESCRIPTORS ARE NEVER REPEATED 7.2.3.3/54H0080120 C***** * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND 7.2.3.1/31H0080130 C***** W IS EQUAL TO OR GREATER THAN D 7.2.3.1/33H0080140 C***** * FIELD WIDTH IS NEVER ZERO 7.2.3 /18H0080150 C***** * IF THERE IS AN I/O LIST, THE FORMAT STATEMENT 7.2.3.4/22H0080160 C***** CONTAINS AT LEAST ONE FIELD DESCRIPTOR (OTHER H0080170 C***** THAN H OR X) H0080180 C***** * ITEMS IN I/O LIST CORRESPOND TO FORMAT DESCRIPTORS 7.2.3.4/36H0080190 C***** * NEGATIVE OUTPUT VALUES ARE SIGNED 7.2.3.6/56H0080200 C***** * FIELD WIDTH NEVER EXCEEDED BY OUTPUT 7.2.3.6/01H0080210 C***** * FOR I CONVERSION, EXTERNAL INPUT FIELDS ARE 7.2.3.6.1/07H0080220 C***** INTEGER CONSTANTS H0080230 C***** GENERAL COMMENTS H0080240 C***** PLUS SIGNS FOR INPUT FIELDS ARE USUALLY OMITTED 7.2.3.6/44H0080250 C***** H0080260 C***** H0080270 C***** H0080280 C***** FORMATTED WRITES WITHOUT AN I/O LIST (FORMAT 7.1.3.2.3/05H0080290 C***** STATEMENTS TEST H AND X DESCRIPTORS AND SLASH 7.2.3.2 /44H0080300 C***** RECORD DIVIDERS) 7.2.3.8 /09H0080310 C***** 7.2.3.9 /31H0080320 C INPUT DATA TO THIS SEGMENT CONSISTS OF 40 CARD IMAGES IN COL. 1 - 80 H0080330 COL. 1----------------------------------------------------------61 H0080340 CARD 1 999 H0080350 CARD 2 555554444 H0080360 CARD 3 666 777777 8 H0080370 CARD 4 333333111112222222255555444444444444 H0080380 CARD 5 7.7123456.7 H0080390 CARD 6 8.889.9997.123456 H0080400 CARD 7 5.44446.5555533.133.133.133.1444.1 H0080410 CARD 8 5555.15555.1 66666.166666.1 44.22 H0080420 CARD 9 2.12.12.12.12.1666.3334.3334.3334.333 H0080430 CARD 10 -0.1E+01+0.22E-01 0.333E+02 0.4444E+03-0.55555E-03+0.666666E+ H0080440 COL. 62------------77 H0080450 CARD 10 00+0.9876543E+12 H0080460 COL. 1----------------------------------------------------------61 H0080470 CARD 11 1.05.522.066.633.123455.0789 H0080480 CARD 12 123.00456.88 0.123E+01 +0.987+1 -0.2345+02 -0.6879E+2+0.7E+0 H0080490 COL 62-----70 H0080500 CARD 12 3 0.4E+03 H0080510 COL. 1----------------------------------------------------------61 H0080520 CARD 13 0.9876543E-04+0.1357913E-04 H0080530 CARD 14 19.34+0.2468E+02 +.765+287.643.96 0.5407E+0243.96+0.5407E+0 H0080540 COL. 62-------------78 H0080550 CARD 14 243.96 0.5407+2 H0080560 COL. 1----------------------------- ----------------------------61 H0080570 CARD 15 +0.10+06 H0080580 CARD 16 -0.334D-04 -.334-4 +0.7657654D00 0.12345678901D+10 H0080590 CARD 17 +0.98765432109876D-1+0.98765432109876D-01 .98765432109876 H0080600 COL. 62-66 H0080610 CARD 17 -1 H0080620 COL. 1----------------------------------------------------------61 H0080630 CARD 18 -.555555542D+03 -0.555555542+3 H0080640 CARD 19 TABC H0080650 CARD 20 FDEFFGHIT*+T1F$)TF H0080660 CARD 21 9.91.19.92.29.93.39.94.49.91.19.92.29.93.39.94.4 H0080670 CARD 22 9.95.59.96.69.97.79.98.89.95.59.96.69.97.79.98.8 H0080680 CARD 23 -9.9-9.9-9.9-9.9 H0080690 CARD 24 -0.99D+01-0.99D+01-0.99D+01-0.99D+01-0.99D+01 -.99D+01 -.99+ H0080700 COL. 62-------72 H0080710 CARD 24 01 -.99+1 H0080720 COL. 1----------------------------------------------------------61 H0080730 CARD 25 9999999999 H0080740 CARD 26 +0.99D+01 0.99D+01 +.99D01 +.99D1 H0080750 CARD 27 .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 H0080760 CARD 28 TFTFTFTFTF H0080770 CARD 29 99999999+0.99D+01 0.99D+01 0.99D+01+0.99D+01 .99D1 H0080780 CARD 30 9.95.59.96.69.97.79.98.89999999999999999TFFT9.99.99.99.99.9 H0080790 CARD 31 T F T F H0080800 CARD 32 4444.55555 H0080810 COL. 1----------------------------------------------------------61 H0080820 CARD 33 123.45678E2 1234.5678 123.45678 12.345678 1.2345678 .123 H0080830 COL. 62-66 H0080840 CARD 33 45678 H0080850 COL. 1----------------------------------------------------------61 H0080860 CARD 34 9876.5498.7654E2 9876.54 987.654864786D-486.4786E286.4786 H0080870 COL. 62---------------80 H0080880 CARD 34 8657.86D0 9876.54 H0080890 COL. 1----------------------------------------------------------61 H0080900 CARD 35 9.8765598.7654E2 9876.54 987.654864786D-386.4786E286.4786 H0080910 COL. 62---------------80 H0080920 CARD 35 8657.86D0 9876.54 H0080930 COL. 1----------------------------------------------------------61 H0080940 CARD 36 122333544888611222 H0080950 CARD 37 455666233444966111 H0080960 CARD 38 788999377555899777 H0080970 CARD 39 11112 334 559 880 11 H0080980 CARD 40 6 778 995 441 222 00 H0080990 C***** H0081000 C***** S P E C I F I C A T I O N S SEGMENT 008 H0081010 C***** H0010175 C***** WHEN EXECUTING ONLY SEGMENT 008, THE SPECIFICATION STATEMENTS H0010180 C***** WHICH APPEAR AS COMMENTS MUST HAVE THE C= IN COLUMNS H0010185 C***** 1 AND 2 REMOVED H0010190 C= DIMENSION A1S(5),A2S(2,2) ,EP1S(33),CMA1S(5),A3S(3,3,3) H0010195 C= 1,IAC1I(5),IAC2I(2,7),AC1S(25),AC2S(5,6),MCA1I(5) H0010200 C= INTEGER I2I(2,2),I3I(2,2,2),MCA3I(2,3,3) H0010205 C= LOGICAL MCA1B(7),A1B(2),A2B(2,2),A3B(2,2,2),AVB,CVB,DVB ,MCBVB H0010210 C= DOUBLE PRECISION DPA1D(5),MCA3D(1,4,2),ZZDVD ,A2D(2,2),A3D(2,2,2) H0010215 C= 1,AC1D(10),BC2D(7,4),DPAVD,DPBVD H0010220 C= COMPLEX BVC,QAVC,CHAVC,CHBVC,CHCVC,CHDVC H0010225 C= 1,LL1C(32),LM2C(8,4),A1C(12),A2C(2,2),B3C(2,2,2),B1C(8) H0010230 C***** H0010235 C***** I N P U T - O U T P U T TAPE ASSIGNMENT STATEMENTS H0081020 C***** H0081030 IRVI = 5 H0070010 NUVI = 6 H0070015 C***** IDENTIFY THE SOURCE OF THE TEST PROGRAMS H0070020 WRITE(NUVI,0071) H0070025 0071 FORMAT (41H1 F O R T R A N T E S T P R O G R A M S// H0070030 1 42H PREPARED BY NATIONAL BUREAU OF STANDARDS// H0070035 3 37H FOR USE ON LARGE FORTRAN PROCESSORS // H0070040 4 42H IN ACCORDANCE WITH ASA FORTRAN X3.9-1966// H0070045 5 23H VERSION 3 PART 1 ///) H0070050 C***** 3 OF 6 INPUT CARDS IDENTIFY THE USERS SYSTEM AND COMPILER H0070055 C PREPARED BY USER H0070060 C READ, NO LIST H0070065 C PREPARED BY USER H0070070 C READ, NO LIST H0070075 C PREPARED BY USER H0070080 C READ, NO LIST H0070085 C READ(IRVI,0070) H0070090 C READ(IRVI,0072) H0070095 C READ(IRVI,0073) H0070100 0070 FORMAT(40H BASED ON ASA FORTRAN X3.9-1966 /) H0070105 0072 FORMAT(40H TEST PROGRAMS /) H0070110 0073 FORMAT(40H FORTRAN COMPILER /) H0070115 WRITE(NUVI,0070) H0070120 WRITE(NUVI,0072) H0070125 WRITE(NUVI,0073) H0070130 C***** HEADER FORMAT STATEMENT H0081040 0080 FORMAT (1H1, 1X,27HFMTRW - (008) FORMATTED I/O//2X, H0081050 138HASA REFS - 7.1.3.2.2 7.1.3.2.3 7.2.3//2X,7HRESULTS) H0081060 WRITE (NUVI,0080) H0081070 C***** FORMAT WITH DIGITS 0-9 IN H FIELDS H0081080 0081 FORMAT (//22H 10101010101010101010,9H999999999,8H88888888/2X, H0081090 17H7777777,6H666666,5H55555,4H4444,3H333,2H22,1H1) H0081100 WRITE (NUVI,0081) H0081110 C***** FORMAT CONTAINING ALL LETTERS (A-Z) IN H FIELDS AND H0081120 C***** A VARIABLE NUMBER OF BLANKS IN H AND X FIELDS H0081130 0082 FORMAT(/2X,3HAAA,5X,5H ,3HBBB,10X,3HCCC/3H ,3HDDD,9X,3HEEE, H0081140 19H ,3HFFF/4X,3HGGG,8X,3HHHH,8H ,3HIII/5H ,3HJJJH0081150 2,7H ,3HKKK,7X,3HLLL/6X,3HMMM,6X,3HNNN,6H ,3HOOO/7X, H0081160 3 3HPPP,5H ,3HQQQ,5X,3HRRR/8X,3HSSS,4X,3HTTT,4H ,3HUUU/ 1H0081170 45H VVV ,3HWWW,3X,3HXXX/12X,3HYYY,3X,3HZZZ) H0081180 WRITE (NUVI,0082) H0081190 C***** FORMAT CONTAINING H FIELD WITH ALL POSSIBLE H0081200 C***** SPECIAL CHARACTERS 3.1/46H0081210 0083 FORMAT(/21H = + - * / ( ) , . $) H0081220 WRITE (NUVI,0083) H0081230 C***** FORMAT TO TEST VERTICAL SPACING H0081240 C***** 7.1.3.4/04H0081250 7154 FORMAT(/24H BEGIN VERTICAL SPACING//30H FORMAT(14H SKIP 1 LINEH0081260 1 /) /) H0081270 WRITE (NUVI, 7154) H0081280 7155 FORMAT(32H FORMAT(15H SKIP 2 LINES //) //) H0081290 WRITE (NUVI, 7155) H0081300 7156 FORMAT(33H FORMAT(16H SKIP 3 LINES ///) ///) H0081310 WRITE (NUVI,7156) H0081320 0084 FORMAT( 32H IMBEDDED SLASHES - SKIP 1 LINE // H0081330 1 14H SKIP 2 LINES/// 14H SKIP 3 LINES/ 3(/), H0081340 2 19H SKIP TO NEXT LINE/ 1H , 12H SKIP 1 LINE/ 1H0, H0081350 38H TEST NO/1H+,9X,14H/1H+,7HADVANCE/19H SKIP TO NEW PAGE / H0081360 4 1H1, /// 30H END OF VERTICAL SPACING TEST) H0081370 WRITE (NUVI,0084) H0081380 C***** FORMATTED READ AND WRITE STATEMENTS WITH INTEGER 7.1.3.2.1/25H0081390 C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. (THE 7.2.3.3/01H0081400 C***** NUMBER OF ITEMS IN THE LIST IS VARIABLE.) SOME H0081410 C***** FORMAT STATEMENTS CONTAIN REPEATED FIELDS. H0081420 C***** FORMATS CONTAINING I CONVERSION DESCRIPTORS. 7.2.3.6.1/03H0081430 C***** FIELDS WIDTH IS FROM 1 TO 5 DIGITS. SOME 7.2.3.3 /01H0081440 C***** FIELDS ARE REPEATED H0081450 0085 FORMAT (//25H BEGIN I CONVERSION TEST/40H EACH PAIR OF LINES SHOH0081460 1ULD BE IDENTICAL/47H LINE 1 OF EACH GROUP IS HOLLERITH INFORMATIOH0081470 2N) H0081480 WRITE (NUVI,0085) H0081490 C***** INPUT CARD 1 H0081500 0086 FORMAT (2X,I3) H0081510 READ (IRVI,0086) JACVI H0081520 C***** INPUT CARD 2 H0081530 0087 FORMAT (1X,I5,1X,I4) H0081540 READ (IRVI,0087) KBCVI, IAC1I(1) H0081550 C***** INPUT CARD 3 H0081560 0088 FORMAT (2X,I3,2X,3(I2),2X,I1) H0081570 READ (IRVI,0088) IAC2I(1,2), LCCVI, IAC1I(5), IHDVI, MCA3I(1,2,3) H0081580 C***** INPUT CARD 4 H0081590 0089 FORMAT (2X,2(I3),1(I5),4(I2),5(I1),3(I4)) H0081600 READ (IRVI,0089) MDCVI, IAC2I(2,2), IAC1I(4), NECVI, IAC1I(3), H0081610 1 IAC2I(2,3), IAC2I(2,1), MRRVI, IGDVI, KGVI, IEDVI, IAC2I(1,1)H0081620 2 ,IAC1I(2), IAC2I(2,7), MCA3I(2,1,3) H0081630 7086 FORMAT (/ 5H 999) H0081640 WRITE (NUVI,7086) H0081650 WRITE (NUVI,0086) JACVI H0081660 7087 FORMAT (/ 11H 5555 4444) H0081670 WRITE (NUVI,7087) H0081680 WRITE (NUVI,0087) KBCVI, IAC1I(1) H0081690 7088 FORMAT (/ 16H 666 777777 8) H0081700 WRITE (NUVI,7088) H0081710 WRITE (NUVI,0088) IAC2I(1,2), LCCVI, IAC1I(5), IHDVI, MCA3I(1,2,3)H0081720 7089 FORMAT (/ 38H 333333111112222222255555444444444444) H0081730 WRITE (NUVI,7089) H0081740 WRITE (NUVI,0089) MDCVI, IAC2I(2,2), IAC1I(4), NECVI, IAC1I(3), H0081750 1 IAC2I(2,3), IAC2I(2,1), MRRVI, IGDVI, KGVI, IEDVI, IAC2I(1,1)H0081760 2 ,IAC1I(2), IAC2I(2,7), MCA3I(2,1,3) H0081770 C***** FORMATTED READ AND WRITE STATEMENTS WITH REAL 7.1.3.2.1/25H0081780 C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST.(THE 7.2.3.6.2/18H0081790 C***** NUMBER OF ITEMS IN THE LIST IS VARIABLE.) ONLY 7.2.3.3 /01H0081800 C***** F CONVERSION IS USED IN THE FORMAT STATEMENTS. H0081810 C***** SOME F FIELD DESCRIPTORS ARE REPEATED. FIELD H0081820 C***** WIDTH ALWAYS CONTAINS 1 POSITION FOR DECIMAL PT. H0081830 C***** FORMATS CONTAINING F CONVERSION DESCRIPTORS. 7.2.3.6.2/18H0081840 C***** FIELD WIDTH IS FROM 1 TO 7 DIGITS. PLACEMENT OF 7.2.3.3 /01H0081850 C***** DECIMAL POINT IS VARIABLE. SOME F FIELDS ARE H0081860 C***** REPEATED H0081870 7080 FORMAT (/ 25H BEGIN F CONVERSION TEST/40H EACH PAIR OF LINES SHOH0081880 1ULD BE IDENTICAL) H0081890 WRITE (NUVI,7080) H0081900 C***** INPUT CARD 5 H0081910 7081 FORMAT (2X,F3.1,F8.1) H0081920 READ (IRVI,7081) ACVS, CMAVS H0081930 C***** INPUT CARD 6 H0081940 7082 FORMAT(2X,F4.2,F5.3,F8.6) H0081950 READ (IRVI,7082) A1S(2), BCVS, CMBVS H0081960 C***** INPUT CARD 7 H0081970 7083 FORMAT (2X,F6.4,F7.5,4(F4.1),F5.1) H0081980 READ (IRVI,7083) HHCVS, CMCVS, GGCVS, FFCVS, A1S(1), AC1S(25), H0081990 1 AC2S(4,1) H0082000 C***** INPUT CARD 8 H0082010 7084 FORMAT (2X,2(F6.1),2X,2(F7.1),2X,F5.2) H0082020 READ (IRVI,7084) AC1S(18), AC1S(7), AC2S(4,4) , AC1S(8), AC1S(10) H0082030 C***** INPUT CARD 9 H0082040 7085 FORMAT (2X,5(F3.1),F7.3,3(F5.3)) H0082050 READ (IRVI,7085) AC2S(3,3) , AC2S(5,1), CCVS, AC1S(12), DCVS, H0082060 1 AC1S(13), AC1S(5), A3S(1,1,2), AC2S(3,5) H0082070 7091 FORMAT (/ 13H 7.7123456.7) H0082080 WRITE (NUVI,7091) H0082090 WRITE (NUVI,7081) ACVS, CMAVS H0082100 7092 FORMAT (/ 19H 8.889.9997.123456) H0082110 WRITE (NUVI,7092) H0082120 WRITE (NUVI,7082) A1S(2), BCVS, CMBVS H0082130 7093 FORMAT (/ 36H 5.44446.5555533.133.133.133.1444.1) H0082140 WRITE (NUVI,7093) H0082150 WRITE (NUVI,7083) HHCVS, CMCVS, GGCVS, FFCVS, A1S(1), AC1S(25) H0082160 1 ,AC2S(4,1) H0082170 7094 FORMAT (/ 37H 5555.15555.1 66666.166666.1 44.22 ) H0082180 WRITE (NUVI,7094) H0082190 WRITE (NUVI,7084) AC1S(18), AC1S(7), AC2S(4,4) , AC1S(8), AC1S(10)H0082200 7095 FORMAT ( /39H 2.12.12.12.12.1666.3334.3334.3334.333) H0082210 WRITE (NUVI,7095) H0082220 WRITE (NUVI,7085) AC2S(3,3) , AC2S(5,1), CCVS, AC1S(12), DCVS, H0082230 1 AC1S(13), AC1S(5), A3S(1,1,2), AC2S(3,5) H0082240 C***** FORMATTED READ AND WRITE STATEMENTS WITH REAL 7.1.3.2.1/ H0082250 C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. 7.2.3.6.2/ H0082260 C***** E CONVERSION IS USED IN THE FORMAT STATEMENTS 7.2.3.3 / H0082270 C***** SOME E FIELD DESCRIPTORS ARE REPEATED H0082280 C***** (FIELD WIDTH ALWAYS INCLUDES 6 EXTRA POSITIONS 7.2.3.6.2.1/47H0082290 C***** TO PROVIDE FOR SIGN, DECIMAL POINT AND EXPONENT. 7.2.3.6/01H0082300 C***** PROVISION IS ALWAYS MADE FOR THE DIGIT ZERO 7.2.3.6.2.1/04H0082310 C***** BEFORE THE DECIMAL POINT) H0082320 C***** THE NUMBER OF DECIMAL PLACES VARIES FROM 1 H0082330 C***** TO 7 DIGITS. H0082340 7110 FORMAT (//25H BEGIN E CONVERSION TEST/40H EACH PAIR OF LINES SHOH0082350 1ULD BE IDENTICAL) H0082360 WRITE (NUVI,7110) H0082370 C***** INPUT CARD 10 H0082380 7111 FORMAT (E8.1,E9.2,E10.3,E11.4,E12.5,E13.6,E14.7) H0082390 READ (IRVI,7111) AVS, BVS, EP1S(5), AC2S(1,5), CVS, AC2S(5,4), H0082400 1 A3S(2,1,2) H0082410 7112 FORMAT (/ 21H -0.1E+01 0.22E-01/2X,E8.1,2X,E9.2// H0082420 1 25H 0.333E+02 0.4444E+03/2X,E10.3,2X,E11.4// H0082430 2 29H -0.55555E-03 0.666666E+00/2X,E12.5,2X,E13.6// H0082440 3 16H 0.9876543E+12/2X,E14.7) H0082450 WRITE (NUVI,7112) AVS, BVS, EP1S(5), AC2S(1,5), CVS, AC2S(5,4), H0082460 1 A3S(2,1,2) H0082470 C***** FORMATTED READ AND WRITE STATEMENTS WITH COMPLEX 7.1.3.2.1/25H0082480 C***** VARIABLES AND ARRAY ELEMAENTS IN AN I/O LIST. 7.2.3.6.4/52H0082490 C***** E AND F CONVERSION ARE USED IN THE FORMAT 7.2.3.4 /39H0082500 C***** STATEMENTS. SOME FORMAT DESCRIPTORS ARE REPEATED 7.2.3.3 /01H0082510 7118 FORMAT ( 31H1 BEGIN COMPLEX CONVERSION TEST/32H EACH GROUP SHOULH0082520 1D BE IDENTICAL) H0082530 WRITE (NUVI,7118) H0082540 C***** INPUT CARD 11 H0082550 7119 FORMAT ( 2(F3.1) , 2(F4.1), 2(F7.4)) H0082560 READ (IRVI,7119) CHAVC, CHBVC, A1C(2) H0082570 C***** INPUT CARDS 12, 13 H0082580 7120 FORMAT ( 2(F6.2), 2(E10.3), 2(E11.4), 2(E8.1)/ 2(E14.7)) H0082590 READ (IRVI,7120) A2C(1,2), B3C(2,2,1), CHCVC, A1C(1), CHDVC H0082600 C***** INPUT CARD 14 H0082610 7122 FORMAT (F5.2, E11.4, E10.3, F4.1, 3(F5.2,E11.4)) H0082620 READ (IRVI,7122) A2C(2,1), BVC, QAVC, LM2C(1,2), LL1C(2) H0082630 7123 FORMAT (/ 10H 1.0 5.5/ 2X, F3.1,2X, F3.1 // H0082640 1 12H 22.0 66.6/ 2X, F4.1, 2X, F4.1 // H0082650 2 18H 33.1234 55.0789/ 2X, F7.4, 2X, F7.4 ) H0082660 WRITE (NUVI,7123) CHAVC, CHBVC, A1C(2) H0082670 7124 FORMAT (/ 16H 123.00 456.88/ 2X, F6.2, 2X, F6.2 // H0082680 1 24H 0.123E+01 0.987E+01/ 2X, E10.3, 2X, E10.3 // H0082690 2 26H -0.2345E+02 -0.6879E+02/ 2X, E11.4, 2X, E11.4 // H0082700 3 20H 0.7E+03 0.4E+03/ 2X, E8.1, 2X, E8.1 // H0082710 4 32H 0.9876543E-04 0.1357913E-04/ 2X, E14.7, 2X, E14.7) H0082720 WRITE (NUVI,7124) A2C(1,2), B3C(2,2,1), CHCVC, A1C(1), CHDVC H0082730 7126 FORMAT (/ 20H 19.34 0.2468E+02/ 2X, F5.2, 2X, E11.4// H0082740 1 18H 0.765E+02 87.6/ 2X, E10.3, 2X,F4.1// H0082750 2 18H 43.96 0.5407E+02/ 3(F7.2,E11.4/)) H0082760 WRITE (NUVI,7126) A2C(2,1), BVC, QAVC, LM2C(1,2), LL1C(2) H0082770 C***** FORMATTED READ AND WRITE STATEMENTS WITH 7.1.3.2.1/25H0082780 C***** DOUBLE PRECISION VARIABLES IN AN I/O LIST. 7.2.3.6.3/41H0082790 C***** D CONVERSION IS USED IN THE FORMAT STATEMENTS. 7.2.3.3 /01H0082800 C***** SOME D FORMAT DESCRIPTORS ARE REPEATED. (FIELD H0082810 C***** WIDTH ALWAYS INCLUDES 6 EXTRA POSITIONS TO 7.2.3.6.2.1/45H0082820 C***** PROVIDE FOR SIGN, DECIMAL POINT AND EXPONENT 7.2.3.6 /04H0082830 C***** AND 1 POSITION FOR OPTIONAL DIGIT ZERO BEFORE 7.2.3.6.2.1/04H0082840 C***** THE DECIMAL POINT) H0082850 7127 FORMAT ( /25H BEGIN D CONVERSION TEST/32H EACH GROUP SHOULD BE IH0082860 1DENTICAL) H0082870 WRITE (NUVI,7127) H0082880 C***** INPUT CARD 15 H0082890 7128 FORMAT ( 2X, D8.1) H0082900 READ (IRVI,7128) DPAVD H0082910 C***** INPUT CARDS 16, 17, 18 H0082920 7129 FORMAT ( 2(D10.3), D14.7, D18.11/ 3(D21.14)/ 2(D16.9)) H0082930 READ (IRVI,7129) MCA3D(1,2,2), AC1D(2), BC2D(3,1), AC1D(1), H0082940 1 ZZDVD, AC1D(3), DPBVD, MCA3D(1,2,1), BC2D(1,2) H0082950 7130 FORMAT (/ 10H 0.1D+06) H0082960 WRITE (NUVI,7130) H0082970 WRITE (NUVI,7128) DPAVD H0082980 7131 FORMAT (/ 12H -0.334D-04/ 2X, D10.3 / 2X, D10.3 // H0082990 1 16H 0.7657654D+00/ 2X, D14.7 // H0083000 2 20H1 0.12345678901D+10/ 2X, D18.11 // H0083010 3 23H 0.98765432109876D-01/ 2X, D21.14/ 2X, D21.14 / 2X, D21.14//H0083020 4 18H -0.555555542D+03/ 2X, D16.9/ 2X, D16.9 ) H0083030 WRITE (NUVI,7131) MCA3D(1,2,2), AC1D(2), BC2D(3,1), AC1D(1) , H0083040 1 ZZDVD, AC1D(3), DPBVD, MCA3D(1,2,1), BC2D(1,2) H0083050 C***** FORMATTED READ AND WRITE STATEMENTS WITH LOGICAL 7.1.3.2.1/25H0083060 C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST 7.2.3.7 /56H0083070 C***** SOME L DESCRIPTORS ARE REPEATED. H0083080 7132 FORMAT(//25H BEGIN L CONVERSION TEST/33H LINES BELOW SHOULD BE IH0083090 1DENTICAL) H0083100 C***** L CONVERSION IS USED IN THE FORMAT STATEMENTS 7.2.3.3 /01H0083110 WRITE (NUVI,7132) H0083120 C***** INPUT CARD 19 H0083130 7133 FORMAT (L4) H0083140 READ (IRVI,7133) A2B(2,1) H0083150 C***** INPUT CARD 20 H0083160 7134 FORMAT ( 2(L4), L3, L2, L3, 2(L1)) H0083170 READ (IRVI,7134) MCA1B(1), MCBVB, A2B(1,1), A3B(1,1,1), CVB, H0083180 1 DVB, A3B(1,2,1) H0083190 7135 FORMAT (//24H T F F T T FTF/ 2X, 3(L4), L3, L2, L3, H0083200 1 2(L1)) H0083210 WRITE (NUVI,7135) A2B(2,1), MCA1B(1), MCBVB, A2B(1,1), A3B(1,1,1),H0083220 1 CVB, DVB, A3B(1,2,1) H0083230 C***** FORMATTED READ AND WRITE STATEMENTS WITH ARRAY 7.1.3.2.1/26H0083240 C***** NAMES OF ALL TYPES IN AN I/O LIST. THE NUMBER OF 7.1.3.2.1/39H0083250 C***** ITEMS IN THE LIST IS VARIABLE. SOME FIELD 7.2.3.3 /01H0083260 C***** DESCRIPTORS ARE REPEATED. H0083270 7097 FORMAT (//32H TEST UNSUBSCRIPTED ARRAY NAMES/35H IN I/O LISTS. EH0083280 1ACH GROUP OF LINES/22H SHOULD BE IDENTICAL.) H0083290 WRITE (NUVI,7097) H0083300 C***** INPUT CARDS 21, 22 H0083310 7098 FORMAT(2X,8(F3.1),8F3.1/8(2(F3.1))) H0083320 READ (IRVI,7098) B1C,B3C H0083330 C***** INPUT CARDS 23, 24, 25 H0083340 7099 FORMAT(2X,4(F4.1)/4(D9.2),4D9.2/5(I2)) H0083350 READ (IRVI,7099) A2S, A3D, MCA1I H0083360 C***** INPUT CARDS 26, 27, 28 H0083370 7100 FORMAT(2X,4(D9.2)/27(F2.1)/5(L1),5L1) H0083380 READ (IRVI,7100) A2D, A3S, A1B, A3B H0083390 C***** INPUT CARDS 29, 30 H0083400 7101 FORMAT (2X,4(I2),5(D9.2)/4(2(F3.1)),8(I2),4(L1),5(F3.1)) H0083410 READ (IRVI,7101) I2I, DPA1D, A2C, I3I, A2B, CMA1S H0083420 7102 FORMAT (/ 26H 9.91.19.92.29.93.39.94.4 / 2X,8(F3.1)/2X,8(F3.1)) H0083430 WRITE (NUVI,7102) B1C H0083440 7103 FORMAT (/ 18H -9.9-9.9-9.9-9.9/2X,4(F4.1) // H0083450 138H -0.99D+01-0.99D+01-0.99D+01-0.99D+01/2X,4(D9.2)/2X,4(D9.2)// H0083460 2 12H 9999999999/ 2X, 5(I2) //38H 0.99D+01 0.99D+01 0.99D+01 0.9H0083470 39D+01/ 2X, 4(D9.2) // 37H 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9/1X,H0083480 4 9(F4.1)/ 1X, 9(F4.1)/ 1X,9(F4.1)/ 4H1 TF/ 2X,2(L1)) H0083490 WRITE (NUVI,7103) A2S, A3D, MCA1I, A2D, A3S, A1B H0083500 7104 FORMAT (/ 10H TFTFTFTF/ 2X, 8(L1) // 10H 99999999/ 2X, 4(I2)//H0083510 1 11H 0.99D+01/ 5(D11.2/) /26H 9.95.59.96.69.97.79.98.8/2X, H0083520 28(F3.1)/2X,8(F3.1)/2X,8(F3.1)//18H 9999999999999999/2X,8(I2)// H0083530 3 6H TFFT/ 2X, 4(L1) // 17H 9.99.99.99.99.9/2X, 5(F3.1)) H0083540 WRITE (NUVI,7104) A3B, I2I, DPA1D, A2C, B3C, I3I, A2B, CMA1S H0083550 C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 7.2.3.6/51H0083560 C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT H0083570 C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH. (I, E, H0083580 C***** F AND D DESCRIPTORS ARE TESTED) H0083590 7090 FORMAT ( /30H LEADING BLANK INSERTION TEST/40H EACH PAIR OF LINEH0083600 1S SHOULD BE IDENTICAL) H0083610 WRITE (NUVI,7090) H0083620 7096 FORMAT (/ 3H 8/I3//4H 22/I4//5H 22/I5//6H 22/I6// H0083630 1 7H 22/I7// 5H 7.7/F5.1// 7H 8.88/F7.2/ 9H1 9.999/ H0083640 2 F9.3// 11H 5.4444/F11.4// 13H 6.55555/F13.5// H0083650 3 15H 7.123456/F15.6// 10H 0.21E+01/E10.2// H0083660 4 12H 0.331E+02/E12.3// 14H 0.4441E+03/E14.4// H0083670 5 16H 0.55551E+04/E16.5// 18H 0.666661E+05/E18.6// H0083680 6 20H 0.1234567E+06/E20.7) H0083690 WRITE (NUVI,7096) MCA3I(1,2,3), IAC1I(3), NECVI, IAC1I(3), H0083700 1 IAC2I(2,3), ACVS, A1S(2), BCVS, HHCVS, CMCVS, CMBVS, H0083710 2 DCVS, AC1S(25), AC2S(4,1), AC1S(7), AC1S(8), CMAVS H0083720 7105 FORMAT (/ 9H 0.1D+00/D9.1// 10H 0.1D+00/D10.1// H0083730 1 11H 0.1D+00/D11.1// 12H 0.1D+00/D12.1// H0083740 2 10H 1.0 5.5/ 2(F5.1) // 12H 9.9 5.5/ 2(F6.1) // H0083750 3 14H 9.9 5.5/ 2(F7.1) // 16H 1.0 5.5/ 2(F8.1)) H0083760 WRITE (NUVI,7105) AC1D(3), ZZDVD, ZZDVD, H0083770 1 ZZDVD, CHAVC, B3C(1,1,1), B3C(1,1,1), CHAVC H0083780 C***** FORMATTED READ AND WRITE STATEMENT TO TEST THAT 7.2.3.7/03H0083790 C***** OPTIONAL BLANKS MAY PRECEDE A LOGICAL INPUT FIELD 7.2.3.7/06H0083800 7138 FORMAT ( 33H1 TEST LOGICAL FIELDS WITH BLANKS/33H LINES BELOW SHH0083810 1OULD BE IDENTICAL) H0083820 WRITE (NUVI,7138) H0083830 C***** INPUT CARD 31 H0083840 7139 FORMAT ( L6, L4, L10, L5) H0083850 READ (IRVI,7139) AVB, MCA1B(2), A2B(1,2), A3B(2,1,2) H0083860 7140 FORMAT (//27H T F T F/ 2X, L6, L4, L10, L5) H0083870 WRITE (NUVI,7140) AVB, MCA1B(2), A2B(1,2), A3B(2,1,2) H0083880 C***** FORMATTED READ AND WRITE TO TEST F DESCRIPTORS 7.2.3.1/31H0083890 C***** WHERE D IS EQUAL TO ZERO AND WHERE W EQUALS D 7.2.3.4/40H0083900 C***** (2ND TEST APPLIES ONLY TO READ STMNTS.) H0083910 7108 FORMAT (//36H TEST D = 0, W=D+1 (PAIRS OF LINES/ 28H BELOW SHOUH0083920 1LD BE IDENTICAL)) H0083930 WRITE (NUVI,7108) H0083940 C***** INPUT CARD 32 H0083950 7141 FORMAT (2X, F5.0, F5.5) H0083960 READ (IRVI,7141) ACVS, BVS H0083970 7109 FORMAT (//7H 4444./2X, F5.0// 9H .55555/ 3X,F6.5) H0083980 WRITE (NUVI,7109) ACVS, BVS H0083990 C***** FORMATS WITH G CONVERSIONS H0084000 C***** INPUT CARD 33 H0084010 7142 FORMAT( 3(G11.4), 3G11.4) H0084020 READ (IRVI,7142) AC1S(14), AC1S(15), AC1S(16), AC1S(17) , H0084030 1 AC1S(21), AC1S(22) H0084040 7143 FORMAT(/ 2X,23HBEGIN G CONVERSION /2X,38HEACH PAIR OF LINES SHH0084050 1OULD BE IDENTICAL//36H .1235E+05 1235. 123.5/ H0084060 2 G14.4,4X,2G11.4///3X,33H 12.35 1.235 .1235/ H0084070 3 G14.4,4X,2G11.4) H0084080 WRITE(NUVI,7143) AC1S(14), AC1S(15), AC1S(16), AC1S(17), H0084090 1 AC1S(21), AC1S(22) H0084100 C***** SCALE FACTOR APPLIED TO F,E,D,G DESCRIPTORS H0084110 C***** ON READ, BUT NOT ON WRITE H0084120 C***** INPUT CARD 34 H0084130 7144 FORMAT(2PF8.3,-2PE9.4,F9.4,0PG9.4,D9.4,-2PE9.4,F9.4,D9.4,2PG9.4) H0084140 READ(IRVI,7144)EP1S(16),EP1S(17),EP1S(18), EP1S(19), H0084150 1 BC2D(1,4),EP1S(20),EP1S(22),BC2D(2,1),EP1S(23) H0084160 7145 FORMAT(22H1 SCALE FACTOR ON READ/31H IN ORDER OF FORMAT OCCURRENCH0084170 1E//40H CARD 9876.54 98.7654E2 9876.54/ H0084180 2 40H DESC 2PF8.3 -2PE9.4 F9.4/ H0084190 3 40H TO BE 98.7654 .9877E+04 987654.00/ H0084200 4 4H IS, F12.4, E12.4, F12.2// H0084210 5 40H CARD 987.654 864786D-4 86.4786E2/ H0084220 6 40H DESC 0PG9.4 D9.4 -2PE9.4/ H0084230 7 40H TO BE 987.654 .8648D-02 .8648E+04/ H0084240 8 4H IS, F12.3,D12.4, E12.4// H0084250 9 40H CARD 86.4786 8657.87D0 9876.54/ H0084260 A 40H DESC F9.4 D9.4 2PG9.4/ H0084270 B 40H TO BE 8647.860 .8658D+04 98.77/ H0084280 C4H IS,F12.3, D12.4, G16.4) H0084290 WRITE(NUVI,7145) EP1S(16),EP1S(17),EP1S(18),EP1S(19), H0084300 1 BC2D(1,4),EP1S(20),EP1S(22),BC2D(2,1),EP1S(23) H0084310 C***** SCALE FACTOR APPLIED TO F, E, D, G DESCRIPTORS H0084320 C***** ON WRITE, BUT, NOT ON READ H0084330 C***** INPUT CARD 35 H0084340 7152 FORMAT(F8.2,E9.4,F9.2,G9.3,D9.0,E9.4,F9.4,D9.2,G9.4) H0084350 READ(IRVI,7152) AC1S(1),AC1S(2),AC1S(3),AC1S(4), H0084360 1 AC1D(4),AC1S(20),AC1S(23),AC1D(5),AC1S(24) H0084370 7153 FORMAT(/23H SCALE FACTOR ON WRITE/31H IN ORDER OF FORMAT OCCURREH0084380 1NCE//40H CARD 9.87655 98.7654E2 9876.54/ H0084390 2 40H DESC 2PF12.2 -2PE12.4 F12.4/ H0084400 3 40H TO BE 987.65 .0099E+06 98.7654/ H0084410 4 4H IS, 2PF12.2, -2PE12.4,F12.4// H0084420 5 40H CARD 987.654 864786D-3 86.4786E2/ H0084430 6 40H DESC 1PG12.2 D12.4 -2PE12.4/ H0084440 7 40H TO BE 9.88E+02 8.6479D+02 .0086E+06/ H0084450 8 4H IS, 1PG12.2, D12.4, -2PE12.4// H0084460 9 40H CARD 86.4786 8657.86D0 9876.54/ H0084470 A 40H DESC 2PF12.2 1PD12.4 2PG16.4/ H0084480 B 40H TO BE 8647.86 8.6579D+03 9877./ H0084490 C 4H IS, 2PF12.2, 1PD12.4, 2PG16.4// H0084500 H28H THE LAST TWO LINES OF EACH/24H SET SHOULD BE THE SAME) H0084510 WRITE(NUVI,7153) AC1S(1),AC1S(2),AC1S(3),AC1S(4), H0084520 1 AC1D(4),AC1S(20),AC1S(23),AC1D(5),AC1S(24) H0084530 C***** I/O FORMAT RESCAN H0084540 C***** INPUT CARDS 36, 37, 38 H0084550 7146 FORMAT( I1,I2,I3) H0084560 READ(IRVI,7146) I2I,IAC1I H0084570 7147 FORMAT(/ 37H FORMAT RESCAN - THE SECOND GROUP OF/38H EACH SET SHH0084580 1OULD AGREE WITH THE FIRST //15H 1 22 333/15H 4 55 666/H0084590 115H 7 88 999/1H ) H0084600 WRITE(NUVI,7147) H0084610 7148 FORMAT(I4,I5,I6) H0084620 WRITE(NUVI,7148) I2I(1,1),I2I(2,1),I2I(1,2),I2I(2,2),IAC1I H0084630 C***** INPUT CARDS 39, 40 H0084640 7149 FORMAT(I4, 2(I1,1X,I2)) H0084650 READ( IRVI,7149) I2I, IAC1I H0084660 7150 FORMAT(/21H 2 ** 4 $$ 6 ((/7H 8 $$/1H ) H0084670 WRITE( NUVI,7150) H0084680 7151 FORMAT (I4,3H **,1(I4,3H $$,(I4,3H (())) H0084690 WRITE( NUVI,7151) I2I(2,1),I2I(2,2),IAC1I(2),IAC1I(4) H0084700 C***** END OF TEST SEGMENT 008 H0084710 C***** WHEN EXECUTING ONLY SEGMENT 008 , THE STOP AND END CARDS H0084720 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= IN COLUMNS H0084730 C***** 1 AND 2 REMOVED H0084740 C= STOP H0084750 C= END H0084760 C***********************************************************************H0090010 C***** H0090020 C***** AFRMT - (009) H0090030 C***** H0090040 C***********************************************************************H0090050 C***** GENERAL PURPOSE ASA REFSH0090060 C***** TO TEST SIMPLE FORMAT AND FORMATTED I/O STATEMENTS 7.1.3.2.2H0090070 C***** WHICH USE A-CONVERSION SO THAT THIS FEATURE MAY 7.1.3.2.2H0090080 C***** BE USED IN OTHER SEGMENTS 7.1.3.2.3H0090090 C***** 7.2.3 H0090100 C***** 7.2.3.8 H0090110 C***** RESTRICTIONS OBSERVED H0090120 C***** * ALL FORMAT STATEMENTS ARE LABELED 7.2.3 /57H0090130 C***** * H AND X DESCRIPTORS ARE NEVER REPEATED 7.2.3.3/54H0090140 C***** * FIELD WIDTH IS NEVER ZERO 7.2.3 /18H0090150 C***** * IF THERE IS AN I/O LIST, THE FORMAT STATEMENT 7.2.3.4/22H0090160 C***** CONTAINS AT LEAST ONE FIELD DESCRIPTOR (OTHER H0090170 C***** THAN H OR X) H0090180 C***** * ITEMS IN I/O LIST CORRESPOND TO FORMAT DESCRIPTORS 7.2.3.4/36H0090190 C***** * FIELD WIDTH NEVER EXCEEDED BY OUTPUT 7.2.3.6/01H0090200 C***** H0090210 C***** READ AND WRITE STATEMENTS FOR ENTIRE SEGMENT FOLLOW H0090220 C***** H0090230 C***** FORMATTED READ AND WRITE STATEMENTS WITH ALL 7.1.3.2.1/25H0090240 C***** TYPES OF FIELDS. ONLY A (HOLLERITH) CONVERSION 7.2.3.8 /16H0090250 C***** IS USED IN THE FORMAT STATEMENTS. SOME A FORMAT 7.2.3.3 /01H0090260 C***** DESCRIPTORS ARE REPEATED H0090270 C INPUT DATA TO THIS SEG. CONSISTS OF 3 DATA CARD IMAGES IN COLS. 1 - 55H0090280 COL. 1-----------------------------31---------------------55 H0090290 CARD 1 B=EF-*JKL/()012TUVW+,.$X YZACDGHIPQRSMNO678(C)B2$9+A345 H0090300 CARD 2 QZ1*A H0090310 CARD 3 ABCDEFGHIJKLMNOPQRSTUVWXYZ H0090320 C***** H0090330 C***** S P E C I F I C A T I O N S SEGMENT 009 H0090340 C***** H0010240 C***** WHEN EXECUTING ONLY SEGMENT 009, THE SPECIFICATION STATEMENTS H0010245 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= H0010250 C***** IN COLUMNS 1 AND 2 REMOVED. H0010255 C***** H0010260 C= DIMENSION A1S(5),A3S(3,3,3),EP1S(33),IAC2I(2,7),AC2S(5,6) H0010265 C= 1,MCA1I(5),CMA1S(5) H0010270 C= INTEGER BVI,MAVI,LAVI,MCA3I(2,3,3) H0010275 C= REAL MVS,CVS,BCVS H0010280 C= LOGICAL MCA1B(7), A1B(2), A2B(2,2),A3B(2,2,2),AVB,EVB H0010285 C***** H0010290 C***** I N P U T - O U T P U T T A P E ASSIGNMENT STATEMENTS H0090350 C***** H0070135 C***** WHEN EXECUTING ONLY SEGMENT 009, THE FOLLOWING TWO STATEMENTS H0070140 C***** NUVI = 6 AND IRVI = 5 MUST HAVE H0070145 C***** THE C= IN COL 1 AND 2 REMOVED. H0070150 C= NUVI = 6 H0070155 C= IRVI = 5 H0070160 C***** H0070165 WRITE (NUVI,0090) H0090360 READ (IRVI,0091) MVS, IAC2I(2,2),MAVI ,AC2S(4,2),MCA1I(1),LAVI, H0090370 1 A2B(1,2),A1B(2), BCVS, MCA1B(2), BVI, CVS, EVB,A1S(2),EP1S(9), H0090380 2A3S(1,1,1),A3B(2,2,1),MCA3I(1,2,3), MCA3I(2,1,2), MCA3I(1,1,3) H0090390 WRITE (NUVI,0092) BVI, MVS, CVS, MAVI, EVB, MCA1I(1), EP1S(9), H0090400 1 A1S(2), A1B(2), MCA1B(2), IAC2I(2,2), AC2S(4,2), H0090410 2 LAVI, BCVS, A2B(1,2), MCA3I(1,1,3), A3S(1,1,1), H0090420 3 MCA3I(2,1,2), MCA3I(1,2,3), A3B(2,2,1) H0090430 C***** FORMATTED READ AND WRITE TO TEST HOLLERITH FIELDS 7.2.3.8/22H0090440 C***** WHERE FIELD WIDTH IS LESS THAN THE WORD LENGTH 7.2.3.8/28H0090450 C***** CAPACITY OF THE MACHINE H0090460 WRITE (NUVI,0093) H0090470 READ (IRVI,0094) CMA1S(2), CMA1S(1), LCCVI, AVB, BVI H0090480 WRITE (NUVI,0095) BVI, AVB, CMA1S(2), LCCVI, CMA1S(1) H0090490 C***** FORMATTED READ AND WRITE TO TEST HOLLERITH FIELDS 7.2.3.8/20H0090500 C***** WHERE FIELD WIDTH IS GREATER THAN THE WORD LENGTH 7.2.3.8/25H0090510 C***** CAPACITY OF THE MACHINE H0090520 WRITE (NUVI,0096) H0090530 READ (IRVI,0097) MRRVI H0090540 WRITE (NUVI,0098) MRRVI H0090550 C***** H0090560 C***** H0090570 C***** FORMAT STATEMENTS FOR THE ENTRIRE SEGMENT FOLLOW H0090580 C***** FORMATS TO TEST A CONVERSION. FIELD WIDTH IS 7.2.3.8/16H0090590 C***** FROM 1 TO 4 CHARACTERS. SOME A DESCRIPTORS ARE 7.2.3.3/01H0090600 C***** REPEATED. H0090610 0090 FORMAT (1H1,1X,26HAFRMT - (009) A-CONVERSION//2X, H0090620 117HASA REF - 7.2.3.8//40H EACH PAIR OF LINES SHOULD BE IDENTICAL/H0090630 28X,26HFOR COMPUTERS STORING FOUR/8X,27HOR MORE CHARACTERS PER WORDH0090640 3) H0090650 0091 FORMAT ( 2(A1), 2(A2), 3(A3), 3(A4), A1, A2, A3, A4, 6(A3)) H0090660 0092 FORMAT (// 29H ABCDEFGHIJKLMNOPQRSTUVWX YZ/ 2X, 2(A1), 2(A2), H0090670 1 3(A3), 3(A4)//12H =-*/()+,.$/ 2X, A1, A2, A3, A4 // H0090680 2 20H 0123456789+AB2$(C)/ 2X, 6 A3 ) H0090690 C***** FORMATS TO TEST A CONVERSION WHERE FIELD WIDTH 7.2.3.8/22H0090700 C***** IS LESS THAN THE WORD LENGTH CAPACITY OF MACHINE 7.2.3.8/28H0090710 0093 FORMAT (//35H TEST A CONVERSION - ADDING BLANKS/40H EACH PAIR OFH0090720 1 LINES SHOULD BE IDENTICAL) H0090730 0094 FORMAT ( 5(A1)) H0090740 0095 FORMAT (//4H A / 3X, A3//4H */ 3X, A3 //4H Q/ 3X, A3// H0090750 1 4H 1/3X, A3 //4H Z/ 3X,A3) H0090760 C***** FORMATS TO TEST A CONVERSION WHERE FIELD WIDTH 7.2.3.8/20H0090770 C***** IS GREATER THAN WORD LENGTH CAPACITY OF MACHINE 7.2.3.8/25H0090780 0096 FORMAT(/25H TEST A FIELD TRUNCATION/37H 2ND LINE SHOULD PARTIALLH0090790 1Y MATCH 1ST) H0090800 0097 FORMAT ( A26 ) H0090810 0098 FORMAT (// 28H ABCDEFGHIJKLMNOPQRSTUVWXYZ/ 2X, A26) H0090820 C***** END OF TEST SEGMENT 009 H0090830 C***** WHEN EXECUTING ONLY SEGMENT 009 , THE STOP AND END CARDS H0090840 C***** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= IN COLUMNS H0090850 C***** 1 AND 2 REMOVED H0090860 C= STOP H0090870 C= END H0090880 C***********************************************************************H0100010 C***** H0100020 C***** DATA2 - (010) H0100030 C***** H0100040 C***********************************************************************H0100050 C***** H0100060 C***** GENERAL PURPOSE H0100070 C***** TO TEST CONTENTS OF VARIABLES THAT WERE FORMED BY H0100080 C***** DATA STATEMENTS IN SEG. DATA1 - (003) H0100090 C***** H0100100 C***** O U T P U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H0100110 C***** H0100120 C***** WHEN EXECUTING ONLY SEGMENT 010, THE FOLLOWING STATEMENT H0070170 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0070175 C= NUVI = 6 H0070180 C***** H0070185 WRITE (NUVI,100) H0100130 100 FORMAT (1H1,1X, 32HDATA2 - (010) DATA STATEMENT USE/ H0100140 A /2X,17HASA REFS. - 7.2.2//2X,7HRESULTS) H0100150 WRITE (NUVI,101) H0100160 101 FORMAT(/35H LINE 1 OF EACH GROUP IS HOLLERITH/36H INFORMATION. TH0100170 AEST IS SUCCESSFUL IF/37H EACH GROUP CONTAINS THE SAME VALUES) H0100180 WRITE (NUVI,102) I1I(1), I1I(2), IAC2I(1,5), IAC2I(1,3), H0100190 A MCA3I(1,2,1), MCA3I(2,2,2), I1I(3), I1I(4), H0100200 B IAC2I(2,5), IAC2I(2,6), MCA3I(2,1,1), H0100210 C MCA3I(1,2,2), I1I(5), IAC2I(2,4), MCA3I(1,1,2), H0100220 D AVI H0100230 102 FORMAT ( /25X,1H0/4(I26/)// H0100240 A 24X,2H10/4(I26/)// H0100250 B 23X,3H246/4(I26/)// H0100260 C 22X,4H-750/4(I26/)) H0100270 WRITE (NUVI,103) EP1S(8), EP1S(10), EP1S(13), AC2S(2,6), H0100280 A AC2S(1,6),AC3S(1,1,1),EP1S(11),AC2S(5,3), H0100290 B AC2S(3,6), AC2S(5,2), AC3S(1,1,2), AC2S(4,6), H0100300 C EP1S(12), AC2S(5,5), AC2S(5,6), JVS H0100310 103 FORMAT ( /22X,4H0.00/4(F26.2/)// H0100320 A 20X,6H246.15/4(F26.2/)// H0100330 B 19X,7H3546.74/4(F26.2/), H0100340 C 1H1,18X,7H-750.05/4(F26.2/)) H0100350 WRITE (NUVI,104)ADSVC, LL1C(29), LN3C(9,1,2), LN3C(8,2,1), H0100360 A BCVC, LL1C(30), LM2C(8,4), LN3C(8,2,2), H0100370 B CHEVC, LL1C(31), LM2C(8,3), LN3C(9,1,1), H0100380 C DCVC, LL1C(32), LM2C(8,2), LN3C(8,1,2) H0100390 104 FORMAT ( /9X,17H 11.1 22.22/4(F14.1,F12.2/)// H0100400 A 8X,18H-34.50 -6.78/4(F14.2,F12.2/)// H0100410 B 8X,18H 10.00 -20.00/4(F14.2,F12.2/)// H0100420 C 5X,21H -200.00 4000.00/4(F14.2,F12.2/)) H0100430 WRITE (NUVI,105) AVD, A1D(1), DPA2D(1,1), MCA3D(1,1,1), H0100440 A BVD, A1D(2), DPA2D(2,1), MCA3D(1,1,2), H0100450 B CVD, A1D(3),DPA2D(1,2), MCA3D(1,3,1), H0100460 C DVD, A1D(4), DPA2D(2,2), MCA3D(1,4,1) H0100470 105 FORMAT ( /16X,10H-0.295D+05/4(D26.3/)// H0100480 A 11X,15H0.345678901D+05/4(D26.9/)// H0100490 B 13X,13H0.1122335D-02/4(D26.7/), H0100500 C 1H1,17X,8H0.34D+13/4(D26.2/)) H0100510 WRITE (NUVI,106) MAVB, MCA1B(6), GH2 B(1,1), GI3B(1,1,1), H0100520 A MBVB, MCVB, MCA1B(7), GH2B(1,2), GG1B(1), H0100530 B EP1S(15), GI3B(1,1,2), H0100540 C EP1S(14), AC3S(1,1,3), IAC2I(1,4) H0100550 106 FORMAT (//20X,4H T/ 4(L24/)// H0100560 A 20X,4H F/ 4(L24/)// H0100570 B 22X,2HAD /2(22X,A2/)/ H0100580 C 22X,2HNO / 22X,A2// H0100590 D 22X,2HBC / 22X,A2// H0100600 E 22X,2H*= / 22X,A2// H0100610 F 22X,2H P / 22X,A2) H0100620 C***** END OF SEGMENT 010 H0100630 C***** WHEN EXECUTING ONLY SEGMENTS 003 AND 010, THE STOP AND END H0100640 C***** CARDS WHICH APPEAR AS COMMENTS MUST HAVE THE C= H0100650 C***** IN COLUMNS 1 AND 2 REMOVED H0100660 C= STOP H0100670 C= END H0100680 C***********************************************************************H0110010 C***** H0110020 C***** AASGN - (011) H0110030 C***** H0110040 C***********************************************************************H0110050 C***** GENERAL PURPOSE ASA REF H0110060 C***** * TO TEST VERY SIMPLE ARITHMETIC ASSIGNMENT 7.1.1.1 H0110070 C***** STATEMENTS, SO THAT THIS STATEMENT MAY BE H0110080 C***** USED IN LATER SEGMENTS H0110090 C***** * TO TEST THAT ALL TYPES OF INTEGER AND REAL CONSTANTS 5.1.1H0110100 C***** MAY BE FORMED 5.1.1.1H0110110 C***** 5.1.1.2H0110120 C***** GENERAL COMMENTS H0110130 C***** * ONLY REAL AND INTEGER TYPES ARE INCLUDED IN H0110140 C***** THIS SEGMENT - NO MIXING OF TYPES H0110150 C***** * IN ORDER NOT TO EXCEED THE WORD LENGTH CAPACITY OF H0110160 C***** SOME COMPUTERS, INTEGER CONSTANTS ARE LIMITED TO H0110170 C***** 5 DIGITS AND REAL CONSTANTS TO 7 DIGITS. H0110180 C***** H0110190 C***** S P E C I F I C A T I O N S SEGMENT 011 H0110200 C***** H0010295 C***** WHEN EXECUTING ONLY SEGMENT 011, THE SPECIFICATION STATEMENT H0010300 C***** WHICH APPEARS AS A COMMENT MUST HAVE THE C= REMOVED H0010305 C= DIMENSION IAC1I(5),IAC2I(2,7),AC1S(25),AC2S(5,6),A2S(2,2) H0010310 C***** H0010315 C***** O U T P U T T A P E ASSIGNMENT - NO INPUT DATA H0110210 C***** H0070190 C***** WHEN EXECUTING ONLY SEGMENT 011, THE FOLLOWING STATEMENT H0070195 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0070200 C***** H0070205 C= NUVI = 6 H0070210 C***** H0070215 WRITE (NUVI,110) H0110220 110 FORMAT (1H1,1X, 37HAASGN - (011) SIMPLE REAL AND INTEGER/10X,32HARH0110230 1ITHMETIC ASSIGNMENT STATEMENTS/2X,16HASA REF. - 7.1.1//34H LINE 1H0110240 2 OF EACH PAIR IS HOLLERITH/13H INFORMATION//17H INTEGER RESULTS)H0110250 C***** HEADER FOR SEGMENT 011 WRITTEN H0110260 C***** TEST ASSIGNMENT OF UNSIGNED INTEGER CONSTANTS 7.1.1.1/40H0110270 C***** TO VARIABLES 5.1.1.1/15H0110280 MRRVI = 1 H0110290 JACVI = 12345 H0110300 KBCVI = 000 H0110310 C***** TEST ASSIGNMENT OF SIGNED INTEGER CONSTANTS TO 7.1.1.1/40H0110320 C***** VARIABLES 5.1.1/11H0110330 MCAVI = +2 H0110340 LCCVI = -3 H0110350 MDCVI = - 8765 H0110360 NECVI = + 6912 H0110370 C***** TEST ASSIGNMENT OF UNSIGNED INTEGER CONSTANTS 7.1.1.1/40H0110380 C***** TO ARRAYS 5.1.1.1/15H0110390 IAC1I(1) = 0 H0110400 IAC2I(2,1) = 02468 H0110410 IAC2I(2,2) = 00 H0110420 IAC1I(3) = 4444 H0110430 C***** TEST ASSIGNMENT OF SIGNED INTEGER CONSTANTS 7.1.1.1/40H0110440 C***** TO ARRAYS 5.1.1/11H0110450 IAC2I(1,1) = +45 H0110460 IAC1I(4) = + 4321 H0110470 IAC1I(2) = -23 H0110480 IAC2I(1,2) = - 3123 H0110490 C***** TEST ASSIGNMENT OF UNSIGNED REAL CONSTANTS 7.1.1.1/40H0110500 C***** TO VARIABLES (BASIC REAL CONSTANTS) 5.1.1.2/18H0110510 ACVS = 1.0 H0110520 BCVS = 358.6724 H0110530 C***** TEST ASSIGNMENT OF SIGNED REAL CONSTANTS 7.1.1.1/40H0110540 C***** TO VARIABLES (BASIC REAL CONSTANTS) 5.1.1.2/18H0110550 C***** 5.1.1/11H0110560 CCVS = -2.0 H0110570 DCVS = +3.0 H0110580 ECVS = -2714.250 H0110590 FCVS = +29.30542 H0110600 C***** TEST ASSIGNMENT OF UNSIGNED REAL CONSTANTS 7.1.1.1/40H0110610 C***** TO ARRAYS (BASIC REAL CONSTANTS) 5.1.1.2/18H0110620 C***** 5.1.1/11H0110630 AC1S(2) = 86.27 H0110640 AC2S(1,2) = 1034.2 H0110650 AC1S(1) = 0.0 H0110660 AC2S(1,1) = 0.00000 H0110670 C***** TEST ASSIGNMENT OF SIGNED REAL CONSTANTS 7.1.1.1/40H0110680 C***** TO ARRAYS (BASIC REAL CONSTANTS) 5.1.1.2/18H0110690 C***** 5.1.1/11H0110700 AC2S(2,2) = +345.678 H0110710 AC1S(3) = -2.5 H0110720 AC2S(2,1) = -5.66 H0110730 AC1S(4) = +1.111111 H0110740 C***** TEST ASSIGNMENT OF UNSIGNED AND SIGNED REAL 5.1.1.2/22H0110750 C***** CONSTANTS WITH NO DECIMAL DIGITS TO BOTH H0110760 C***** VARIABLES AND ARRAYS H0110770 GCVS = 1. H0110780 HCVS = -2. H0110790 AADVS = +3. H0110800 AC2S(3,1) = 4. H0110810 AC2S(1,3) = +5. H0110820 AC1S(5) = -6. H0110830 C***** TEST ASSIGNMENT OF UNSIGNED AND SIGNED REAL 5.1.1.2/22H0110840 C***** CONSTANTS WITH NO INTEGER PART TO BOTH H0110850 C***** VARIABLES AND ARRAYS H0110860 BBDVS = .0 H0110870 CCDVS = +.23 H0110880 DDDVS = -.716 H0110890 AC1S(6) = -.7 H0110900 AC2S(4,1) = .81 H0110910 AC1S(7) = +.9 H0110920 C***** TEST ASSIGNMENT OF UNSIGNED AND SIGNED REAL 5.1.1.2/25H0110930 C***** CONSTANTS WITH UNSIGNED AND SIGNED DECIMAL 5.1.1.2/32H0110940 C***** EXPONENTS TO BOTH VARIABLES AND ARRAYS H0110950 EEDVS = 1.05E02 H0110960 FFDVS = -7.6E1 H0110970 GGDVS = +332.4E0 H0110980 HHDVS = 51.32E-1 H0110990 OODVS = +5.34E-3 H0111000 PPDVS = -14.19E-2 H0111010 QQDVS = -9.9E+2 H0111020 RRDVS = +10.5210E+3 H0111030 SSDVS = 4.56E+1 H0111040 AC2S(1,4) = 665.2E0 H0111050 AC1S(11) =-52.9E01 H0111060 AC1S(9) = +78.564E2 H0111070 AC2S(5,1) = -3.4567E+3 H0111080 AC2S(1,5) = 61.62E+2 H0111090 AC1S(10) = +0.023E+1 H0111100 AC1S(8) = 94.333E-1 H0111110 AC1S(12) = +0.3524E-2 H0111120 AC2S(3,2) = -743.2E-3 H0111130 C***** TEST ASSIGNMENT OF UNSIGNED AND SIGNED REAL 5.1.1.2/22H0111140 C***** CONSTANTS (NO DECIMAL PART) WITH DECIMAL 5.1.1.2/26H0111150 C***** EXPONENTS TO BOTH VARIABLES AND ARRAYS H0111160 TTDVS = 1.E0 H0111170 UUDVS = +123.E2 H0111180 VVDVS = -11.E3 H0111190 WWDVS = 144.E-1 H0111200 XXDVS = -12.E-2 H0111210 YYDVS = +3645.E-3 H0111220 ZZDVS = 1.E+4 H0111230 CMAVS = -200.E+1 H0111240 CMBVS = +99.E+2 H0111250 AC1S(13) = +0.E00 H0111260 AC2S(2,5) = -1512.E2 H0111270 AC2S(4,3) = 214.E3 H0111280 AC1S(15) = 34.E-1 H0111290 AC1S(14) = -4.E-2 H0111300 AC2S(3,4) = +53214.E-4 H0111310 AC2S(4,4) = +6.E+3 H0111320 AC2S(2,3) = 72.E+4 H0111330 AC1S(16) = -813.E+1 H0111340 C***** TEST ASSIGNMENT OF UNSIGNED AND SIGNED REAL 5.1.1.2/22H0111350 C***** CONSTANTS (NO INTEGER PART) WITH DECIMAL 5.1.1.2/26H0111360 C***** EXPONENTS TO BOTH VARIABLES AND ARRAYS H0111370 CMCVS = .234E0 H0111380 CMDVS = -.3E2 H0111390 CMEVS = +.44E1 H0111400 CMFVS = .36E-3 H0111410 CMGVS = +.9E-4 H0111420 CMHVS = -.10E-2 H0111430 CMOVS = .777E+1 H0111440 CMPVS = -.29E+3 H0111450 CMQVS = +.04E+2 H0111460 AC1S(17) = .90E1 H0111470 AC2S(4,2) = +.810E0 H0111480 AC1S(19) = -.7E3 H0111490 AC2S(3,3) = .62E+3 H0111500 AC1S(21) = +.5310E+1 H0111510 A2S(1,2) = -.442E+2 H0111520 AC1S(18) = .3E-4 H0111530 AC2S(2,4) = +.25E-03 H0111540 A2S(2,1) = -.163E-2 H0111550 C***** TEST ASSIGNMENT OF UNSIGNED AND SIGNED REAL 5.1.1.2/34H0111560 C***** CONSTANTS (FORMED BY PLACING DECIMAL EXPONENT H0111570 C***** AFTER INTEGER CONSTANT) TO BOTH VARIABLES AND H0111580 C***** ARRAYS H0111590 AVS = 709E3 H0111600 BVS = +81842E0 H0111610 CVS = -9E5 H0111620 DVS = 627E+2 H0111630 EVS = +53E+3 H0111640 FVS = -4E+04 H0111650 GVS = 1463E-2 H0111660 HVS = +2E-3 H0111670 PVS = -355E-1 H0111680 AC1S(24) = 29E5 H0111690 AC1S(20) = +4072E3 H0111700 AC2S(5,4) = -61835E2 H0111710 AC2S(3,5) = 829E+1 H0111720 AC1S(22) = +03E+2 H0111730 AC1S(25) = -1E+3 H0111740 AC2S(4,5) = 3404E-4 H0111750 A2S(2,2) = +55E-5 H0111760 AC1S(23) = -761E-1 H0111770 C***** VERIFY CORRECTNESS OF ASSIGNMENT BY WRITING H0111780 C***** THE INFORMATION H0111790 WRITE (NUVI,111) MRRVI, JACVI, KBCVI, MCAVI, LCCVI, MDCVI, NECVI, H0111800 1 (IAC1I(IVI),IVI=1,4),((IAC2I(IVI,JVI),IVI=1,2),JVI=1,2) H0111810 WRITE (NUVI,112) H0111820 WRITE (NUVI,113) ACVS, BCVS, CCVS, DCVS, ECVS, FCVS, AC1S(2), H0111830 1 AC2S(1,2), AC1S(1), AC2S(1,1), AC2S(2,2), H0111840 2 AC1S(3), AC2S(2,1), AC1S(4), GCVS, HCVS, H0111850 3 AADVS, AC2S(3,1) H0111860 WRITE (NUVI,114) AC2S(1,3), AC1S(5), BBDVS, CCDVS, DDDVS, AC1S(6),H0111870 1 AC2S(4,1), AC1S(7), EEDVS, FFDVS, GGDVS, HHDVS, H0111880 2 OODVS, PPDVS, QQDVS, RRDVS, SSDVS H0111890 WRITE (NUVI,115) AC2S(1,4), AC1S(11), AC1S(9), AC2S(5,1), H0111900 1 AC2S(1,5), AC1S(10), AC1S(8), AC1S(12), H0111910 2 AC2S(3,2), TTDVS, UUDVS, VVDVS, WWDVS, XXDVS, H0111920 3 YYDVS H0111930 WRITE (NUVI,116) CMAVS, CMBVS, AC1S(13), AC2S(2,5), AC2S(4,3), H0111940 1 AC1S(15), AC1S(14), AC2S(3,4), AC2S(4,4), H0111950 2 AC2S(2,3), AC1S(16), CMCVS, CMDVS, CMEVS,ZZDVS H0111960 WRITE (NUVI,117) CMFVS, CMGVS, CMHVS, CMOVS, CMPVS, CMQVS, H0111970 1 AC1S(17), AC2S(4,2), AC1S(19), AC2S(3,3), H0111980 1 AC1S(21),A2S(1,2),AC1S(18), AC2S(2,4),A2S(2,1) H0111990 WRITE (NUVI,118) AVS, BVS, CVS, DVS, EVS, FVS, GVS, HVS, PVS, H0112000 1 AC1S(24), AC1S(20), AC2S(5,4), AC2S(3,5), H0112010 2 AC1S(22),AC1S(25),AC2S(4,5),A2S(2,2) , H0112020 3 AC1S(23) H0112030 111 FORMAT(/7X,1H1,7X,5H12345,13X,1H0/1X,I7,5X,I7,7X,I7// H0112040 1 7X, 1H2, 10X, 2H-3,8X, 6H -8765/1X, I7, 5X, I7, 7X, I7// H0112050 2 3X, 5H 6912, 11X, 1H0, 11X, 3H-23/ 1X, I7, 5X, I7, 7X,I7// H0112060 3 4X, 4H4444, 7X, 5H 4321, 12X, 2H45/ 1X, I7, 5X, I7, 7X, I7// H0112070 4 4X, 4H2468, 6X, 6H -3123, 13X, 1H0/ 1X, I7, 5X, I7, 7X, I7) H0112080 112 FORMAT (/14H REAL RESULTS) H0112090 113 FORMAT(/3X,3H1.0, 10X, 8H358.6724, 6X, 4H-2.0/1X,F5.1,6X,F12.4,2X,H0112100 1 F8.1//3X,3H3.0,8X,9H-2714.250,7X,8H29.30542/1X,F5.1,6X,F11.3,3X, H0112110 2 F12.5//2X,5H86.27,8X,6H1034.2,10X,3H0.0/1X,F6.2,5X,F9.1,5X,F8.1//H0112120 3 3X, 3H0.0, 10X,7H345.678,7X, 4H-2.5/1X,F5.1,6X,F11.3,3X,F8.1// H0112130 4 2X,5H-5.66,11X,8H1.111111,5X,3H1.0/1X,F6.2,5X,F14.6,F8.1// H0112140 5 2X,4H-2.0,12X,3H3.0,10X,3H4.0/1X,F5.1,6X,F9.1,5X,F8.1) H0112150 114 FORMAT(/3X,3H5.0,11X,4H-6.0,10X,3H0.0/1X,F5.1,6X,F9.1,5X,F8.1// H0112160 1 3X,4H0.23,10X,6H-0.716,7X,4H-0.7/1X,F6.2,5X,F11.3,3X,F8.1// H0112170 2 3X,4H0.81,11X,3H0.9/1X,F6.2,5X,F9.1/1H1,2X,9H0.105E+03,3X, H0112180 3 9H-0.76E+02,5X,10H0.3324E+03/E12.3,E12.2,E15.4// H0112190 4 3X,10H0.5132E+01,3X,9H0.534E-02,3X,11H-0.1419E+00/E13.4,E12.3, H0112200 5 E14.4//2X,9H-0.99E+03,5X,12H0.105210E+05,10H 0.456E+02/E11.2, H0112210 6 E17.6,E10.3) H0112220 115 FORMAT(/3X,10H0.6652E+03,2X,10H-0.529E+03,4X,11H0.78564E+04/E13.4,H0112230 1 E12.3,E15.5//2X,12H-0.34567E+04,2X,10H0.6162E+04,3X,8H0.23E+00/ H0112240 2 E14.5,E12.4,E11.2//3X,11H0.94333E+01,2X,10H0.3524E-02,2X, H0112250 3 11H-0.7432E+00/E14.5,E12.4,E13.4//3X,7H0.1E+01,6X,9H0.123E+05, H0112260 4 3X,9H-0.11E+05/E10.1,E15.3,E12.2//3X,9H0.144E+02,3X,9H-0.12E+00, H0112270 5 5X,10H0.3645E+01/E12.3,E12.2,E15.4) H0112280 116 FORMAT(/12H -0.200E+04,4X,8H0.99E+04,5X,7H0.0E+00/E12.3,E12.2, H0112290 1 E12.1//2X,11H-0.1512E+06,3X,9H0.214E+06,4X,8H0.34E+01/E13.4, H0112300 2 E12.3,E12.2//2X,8H-0.4E-01,6X,11H0.53214E+01,2X,7H0.6E+04/E10.1, H0112310 3 E17.5,E9.1//3X,8H0.72E+06,4X,10H-0.813E+04,4X,9H0.234E+00/E11.2, H0112320 4 E14.3,E13.3//2X,8H-0.3E+02,6X,8H0.44E+01,5X,7H0.1E+05/E10.1, H0112330 5 E14.2,E12.1) H0112340 117 FORMAT(/3X,8H0.36E-03,5X,7H0.9E-04,5X,9H-0.10E-02/E11.2,E12.1, H0112350 1 E14.2//3X,9H0.777E+01,3X,9H-0.29E+03,5X,7H0.4E+01/E12.3,E12.2, H0112360 2 E12.1//3X,8H0.90E+01,5X,9H0.810E+00,3X,8H-0.7E+03/E11.2,E14.3, H0112370 3 E11.1//3X,8H0.62E+03,5X,10H0.5310E+01,2X,10H-0.442E+02/E11.2, H0112380 4 E15.4,E12.3//3X,7H0.3E-04,6X,8H0.25E-03,4X,10H-0.163E-02/E10.1, H0112390 5 E14.2,E14.3/1H1) H0112400 118 FORMAT(3X,9H0.709E+06,4X,11H0.81842E+05,1X,8H-0.9E+06/E12.3,E15.5,H0112410 1 E9.1//3X,9H0.627E+05,4X,8H0.53E+05,4X,8H-0.4E+05/E12.3,E12.2, H0112420 2 E12.1//3X,10H0.1463E+02,3X,7H0.2E-02,5X,10H-0.355E+02/E13.4, H0112430 3 E10.1,E15.3//3X,8H0.29E+07,5X,10H0.4072E+07,2X,12H-0.61835E+07/ H0112440 4 E11.2,E15.4,E14.5//3X,9H0.829E+04,4X,7H0.3E+03,5X,8H-0.1E+04/ H0112450 5 E12.3,E11.1,E13.1//3X,10H0.3404E+00,3X,8H0.55E-03,4X,10H-0.761E+0H0112460 62/E13.4,E11.2,E14.3) H0112470 C***** END OF TEST SEGMENT 011 H0112480 C***** WHEN EXECUTING ONLY SEGMENT 011, THE STOP AND END CARDS H0112490 C**** WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C= H0112500 C***** IN COLUMNS 1 AND 2 REMOVED H0112510 C= STOP H0112520 C= END H0112530 STOP H9999995 END H9999999