C***** PART2 *****************************************************H0000400 C***** H0000405 C***** ANSI FORTRAN (X3.9-1966) TEST PROGRAMS H0000410 C***** H0000415 C***** PREPARED BY THE NATIONAL BUREAU OF STANDARDS VERSION 3 H0000420 C***** H0000425 C***** JUNE 1973 H0000430 C***** H0000435 C***** PART 2 OF 14 PARTS H0000440 C***** H0000445 C***** SEGMENTS INCLUDED H0000450 C***** H0000455 C***** DASGN - 013 SIMPLE D.P. ASSIGNMENT STATEMENTS H0000460 C***** H0000465 C***** CASGN - 015 SIMPLE COMPLEX ASSIGNMENT STATEMENTS H0000470 C***** H0010400 C***** THE FOLLOWING SPECIFICATIONS ARE TO BE USED ONLY WHEN H0010405 C***** SEGMENTS 013 AND 015 ARE RUN AS ONE MAIN PROGRAM. H0010410 C***** H0010415 DOUBLE PRECISION MCAVD,MCBVD,MCCVD,MCDVD,MCEVD,MCFVD,MCGVD, H0010420 1MCHVD,MCIVD,EEDVD,ACVD,BCVD,CCVD,DCVD,DDDVD,CCDVD,FFDVD,GGDVD, H0010425 2 HHDVD,EP1D(43),AC1D(10),BC2D(7,4),CC3D(7,2,2),FC2D(5,5) H0010430 DOUBLE PRECISION DPAVD,DPBVD,DPCVD,DPDVD,DPEVD,DPFVD,DPGVD,DPHVD, H0010435 1 DPIVD,DPJVD,DPKVD,DPLVD,DPMVD,DPNVD,DPOVD,DPPVD, H0010440 2 AADVD,BBDVD,PPDVD,RRDVD,SSDVD,TTDVD,UUDVD,VVDVD,WWDVD,XXDVD, H0010445 3 YYDVD,ZZDVD,ECVD,FCVD,GCVD,HCVD,RC3D(3,3,3),MCJVD,MCKVD H0010450 COMPLEX QEVC,QFVC,QGVC,QHVC,QIVC,QJVC,QKVC,QLVC,QMVC,QNVC,QOVC, H0010455 1 QPVC,QRVC,QSVC,QTVC,QUVC,QVVC,KVC,LVC,MVC,NVC,OVC,PVC,QVC,VVC, H0010460 2 MEVC,MFVC,MGVC,MHVC,MIVC,QQVC,MJVC,MKVC,MLVC, MNVC,MOVC, H0010465 3 MPVC,MQVC,MRVC,MSVC,MTVC,MUVC,MVVC,BCVC,DCVC,DDVC H0010470 COMPLEX AVC,BVC,CVC,DVC,EVC,FVC,GVC,HVC,IVC,JVC,AAVC, H0010475 1 ABVC,BAVC,BBVC,CCVC,CDVC,CAVC,DAVC,ASVC,BSVC,CSVC, H0010480 2 DSVC,AAAVC,ABAVC,ACAVC,ADAVC,CHCVC H0010485 COMPLEX NUMVC, QAVC,QBVC,QCVC,QDVC,RVC,SVC,TVC,UVC H0010490 1 , MAVC,MBVC,MCVC,MDVC,B1C(8),B2C(4,2),B3C(2,2,2) H0010495 COMPLEX LL1C(32),LM2C(8,4),LN3C(9,2,2),A1C(12),A2C(2,2),A3C(2,2,1)H0010500 C***** END OF SPECIFICATIONS FOR SEGMENTS 013, 015 H0010505 C***** H0010510 C***********************************************************************H0130010 C***** H0130020 C***** DASGN - (013) H0130030 C***** H0130040 C***********************************************************************H0130050 C***** GENERAL PURPOSE ASA REF H0130060 C***** * TO TEST ALL POSSIBLE METHODS OF FORMING DOUBLE 5.1.1 THRUH0130070 C***** PRECISION CONSTANTS H0130080 C***** * TO TEST THAT D.P. VARIABLES AND ARRAY 5.1.2 /5 H0130090 C***** ELEMENTS MAY BE REFERENCED 5.1.3.1/16H0130100 C***** * TO TEST VERY SIMPLE ARITHMETIC ASSIGNMENT 7.1.1.1 H0130110 C***** STATEMENTS, SO THAT THIS FEATURE CAN BE USED TABLE 1 H0130120 C***** FOR INITIALIZATION IN LATER SEGMENTS H0130130 C***** S P E C I F I C A T I O N S SEGMENT 013 H0130140 C***** H0010515 C***** WHEN EXECUTING ONLY SEGMENT 013, REMOVE THE PRECEDING H0010520 C***** SPECIFICATIONS. THE FOLLOWING SPECIFICATIONS WHICH APPEAR H0010525 C***** AS COMMENTS MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0010530 C***** H0010535 C= DOUBLE PRECISION MCAVD,MCBVD,MCCVD,MCDVD,MCEVD,MCFVD,MCGVD, H0010540 C= 1MCHVD,MCIVD,EEDVD,ACVD,BCVD,CCVD,DCVD,DDDVD,CCDVD,FFDVD,GGDVD, H0010545 C= 2 HHDVD,EP1D(43),AC1D(10),BC2D(7,4),CC3D(7,2,2),FC2D(5,5) H0010550 C= DOUBLE PRECISION DPAVD,DPBVD,DPCVD,DPDVD,DPEVD,DPFVD,DPGVD,DPHVD, H0010555 C= 1 DPIVD,DPJVD,DPKVD,DPLVD,DPMVD,DPNVD,DPOVD,DPPVD, H0010560 C= 2 AADVD,BBDVD,PPDVD,RRDVD,SSDVD,TTDVD,UUDVD,VVDVD,WWDVD,XXDVD, H0010565 C= 3 YYDVD,ZZDVD,ECVD,FCVD,GCVD,HCVD,RC3D(3,3,3),MCJVD,MCKVD H0010570 C***** H0010575 C***** I N P U T - O U T P U T T A P E ASSIGNMENT STATEMENTS H0130150 C***** H0130160 IRVI = 5 H0070400 NUVI = 6 H0070405 C***** IDENTIFY THE SOURCE OF THE TEST PROGRAMS H0070410 WRITE(NUVI,0071) H0070415 0071 FORMAT (41H1 F O R T R A N T E S T P R O G R A M S// H0070420 1 42H PREPARED BY NATIONAL BUREAU OF STANDARDS// H0070425 3 37H FOR USE ON LARGE FORTRAN PROCESSORS // H0070430 4 42H IN ACCORDANCE WITH ASA FORTRAN X3.9-1966// H0070435 5 23H VERSION 3 PART 2 ///) H0070440 C***** 3 OF 6 INPUT CARDS IDENTIFY THE USERS SYSTEM AND COMPILER H0070445 C PREPARED BY USER H0070450 C PREPARED BY USER H0070455 C READ, NO LIST H0070460 C PREPARED BY USER H0070465 C READ, NO LIST H0070470 C READ(IRVI,0070) H0070475 C READ(IRVI,0072) H0070480 C READ(IRVI,0073) H0070485 0070 FORMAT(40H BASED ON ASA FO-TRAN X3.9-1966 /) H0070490 0072 FORMAT(40H TEST PROGRAMS /) H0070495 0073 FORMAT(40H FORTRAN COMPILER /) H0070500 WRITE(NUVI,0070) H0070505 WRITE(NUVI,0072) H0070510 WRITE(NUVI,0073) H0070515 WRITE (NUVI,130) H0130170 WRITE(NUVI,131) H0130180 130 FORMAT(1H1,1X,36HDASGN - (013) SIMPLE D.P. ARITHMETIC/ H0130190 1 16X,18HASSIGNMENT STMNTS./2X,28HASA REFS. - 7.1.1.1 5.1.1.3// H0130200 2 2X,7HRESULTS) H0130210 131 FORMAT(/2X,23HLINE 1 OF EACH GROUP IS/ H0130220 A 2X,21HHOLLERITH INFORMATION) H0130230 C***** HEADER FOR THIS SEGMENT WRITTEN H0130240 C***** TEST ASSIGNMENT OF UNSIGNED DP CONSTANTS WITH 7.1.1.1/41H0130250 C***** UNSIGNED EXPONENTS TO VARIABLES AND ARRAY ELEMENTS 5.1.1.3/40H0130260 C***** 5.1.1 /14H0130270 C***** 5.1.1.3/36H0130280 C***** 5.1.1.2/26H0130290 MCAVD = 3.4D1 H0130300 MCBVD = 123456.7891011D02 H0130310 AC1D(1) = 3.4D1 H0130320 AC1D(2) = 123456.7891011D02 H0130330 BC2D(1,1) = 3.4D1 H0130340 BC2D(2,1) = 123456.7891011D02 H0130350 CC3D(1,1,1) = 3.4D1 H0130360 CC3D(2,1,1) = 123456.7891011D2 H0130370 C***** ASSIGNMENT OF UNSIGNED DP CONSTANTS WITH 5.1.1.3/36H0130380 C***** SIGNED EXPONENTS TO VARIABLES AND ARRAY ELEMENTS 5.1.1.2/26H0130390 MCCVD = 29.8765234D-3 H0130400 MCDVD = 345.10000555D+4 H0130410 AC1D(3) = 29.8765234D-3 H0130420 AC1D(4) = 345.10000555D+4 H0130430 BC2D(3,1) = 29.8765234D-3 H0130440 BC2D(4,1) = 345.10000555D+4 H0130450 CC3D(3,1,1) = 29.8765234D-3 H0130460 CC3D(4,1,1) = 345.10000555D+4 H0130470 C***** ASSIGNMENT OF UNSIGNED DP CONSTANTS (NO DECIMAL 5.1.1.2/22H0130480 C***** PART) WITH UNSIGNED EXPONENTS TO VARIABLES H0130490 C***** AND ARRAY ELEMENTS H0130500 MCEVD = 22232425.D00 H0130510 AC1D(5) = 22232425.D00 H0130520 BC2D(5,1) = 22232425.D00 H0130530 CC3D(5,1,1) = 22232425.D00 H0130540 C***** ASSIGNMENT OF UNSIGNED DP CONSTANTS (NO 5.1.1.2/22H0130550 C***** INTEGER PART) WITH UNSIGNED EXPONENTS TO H0130560 C***** VARIABLES AND ARRAY ELEMENTS H0130570 MCFVD = .281420D5 H0130580 AC1D(6) = .281420D5 H0130590 BC2D(6,1) = .281420D5 H0130600 CC3D(6,1,1) = .281420D5 H0130610 C***** ASSIGNMENT OF UNSIGNED DP CONSTANTS (NO DECIMAL H0130620 C***** PART) WITH SIGNED EXPONENTS TO VARIABLES AND H0130630 C***** ARRAY ELEMENTS H0130640 MCGVD = 4455667788.D+6 H0130650 MCHVD = 35692483569248.D-02 H0130660 AC1D(7) = 4455667788.D+6 H0130670 AC1D(8) = 35692483569248.D-02 H0130680 BC2D(7,1) = 4455667788.D+6 H0130690 BC2D(1,2) = 35692483569248.D-02 H0130700 CC3D(7,1,1) = 4455667788.D+6 H0130710 CC3D(1,2,1) = 35692483569248.D-2 H0130720 C***** ASSIGNMENT OF UNSIGNED DP CONSTANTS (NO H0130730 C***** INTEGER PART) WITH SIGNED EXPONENTS TO H0130740 C***** VARIABLES AND ARRAY ELEMENTS H0130750 ACVD = .6549876D-3 H0130760 BCVD = .78D+10 H0130770 AC1D(9) = .6549876D-3 H0130780 AC1D(10) = .78D+10 H0130790 BC2D(2,2) = .6549876D-3 H0130800 BC2D(3,2) = .78D+10 H0130810 CC3D(2,2,1) = .6549876D-3 H0130820 CC3D(3,2,1) = .78D+10 H0130830 C***** ASSIGNMENT OF SIGNED DP CONSTANTS WITH 5.1.1 /12H0130840 C***** UNSIGNED EXPONENTS TO VARIABLES AND ARRAY H0130850 C***** ELEMENTS H0130860 CCVD = +0.0D0 H0130870 DCVD = -17263544.5D3 H0130880 EP1D(1) = +0.0D0 H0130890 EP1D(2) = -17263544.5D3 H0130900 BC2D(4,2) = +0.0D00 H0130910 BC2D(5,2) = -17263544.5D3 H0130920 CC3D(4,2,1) = +0.0D0 H0130930 CC3D(5,2,1) = -17263544.5D3 H0130940 C***** ASSIGNMENT OF SIGNED DP CONSTANTS WITH H0130950 C***** SIGNED EXPONENTS TO VARIABLES AND ARRAY H0130960 C***** ELEMENTS H0130970 ECVD = +1987.62D+1 H0130980 FCVD = -2.54396621D+2 H0130990 GCVD = +34.786529910234D-7 H0131000 HCVD = -44.4D-10 H0131010 EP1D(3) = +1987.62D+1 H0131020 EP1D(4) = -2.54396621D+2 H0131030 EP1D(5) = +34.786529910234D-7 H0131040 EP1D(6) = -44.4D-10 H0131050 BC2D(6,2) = +1987.62D+1 H0131060 BC2D(7,2) = -2.54396621D+2 H0131070 BC2D(1,3) = +34.786529910234D-7 H0131080 BC2D(2,3) = -44.4D-10 H0131090 CC3D(6,2,1) = +1987.62D+1 H0131100 CC3D(7,2,1) = -2.54396621D+2 H0131110 CC3D(1,1,2) = +34.786529910234D-07 H0131120 CC3D(2,1,2) = -44.4D-10 H0131130 C***** ASSIGNMENT OF SIGNED DP CONSTANTS (NO DECIMAL H0131140 C***** PART) WITH SIGNED EXPONENT TO VARIABLES AND H0131150 C***** ARRAY ELEMENTS H0131160 AADVD = +0.D+1 H0131170 BBDVD = -123.D+17 H0131180 CCDVD = +3692468.D-8 H0131190 DDDVD = -147937824967.D-5 H0131200 EP1D(7) = +0.D+1 H0131210 EP1D(8) = -123.D+17 H0131220 EP1D(9) = +3692468.D-8 H0131230 EP1D(10) = -147937824967.D-5 H0131240 BC2D(3,3) = +0.D+1 H0131250 BC2D(4,3) = -123.D+17 H0131260 BC2D(5,3) = +3692468.D-8 H0131270 BC2D(6,3) = -147937824967.D-5 H0131280 CC3D(3,1,2) = +0.D+1 H0131290 CC3D(4,1,2) = -123.D+17 H0131300 CC3D(5,1,2) = +3692468.D-8 H0131310 CC3D(6,1,2) = -147937824967.D-5 H0131320 C***** ASSIGNMENT OF SIGNED DP CONSTANTS (NO INTEGER H0131330 C***** PART) WITH SIGNED EXPONENTS TO VARIABLES AND H0131340 C***** ARRAY ELEMENTS H0131350 EEDVD = +.927786174985D+2 H0131360 FFDVD = -.59354914223619D+0 H0131370 GGDVD = +.98663271D-03 H0131380 HHDVD = -.1D-15 H0131390 EP1D(11) = +.927786174985D+2 H0131400 EP1D(12) = -.59354914223619D+0 H0131410 EP1D(13) = +.98663271D-03 H0131420 EP1D(14) = -.1D-15 H0131430 BC2D(7,3) = +.927786174985D+2 H0131440 BC2D(1,4) = -.59354914223619D+0 H0131450 BC2D(2,4) = +.98663271D-03 H0131460 BC2D(3,4) = -.1D-15 H0131470 CC3D(7,1,2) = +.927786174985D+2 H0131480 CC3D(1,2,2) = -.59354914223619D+0 H0131490 CC3D(2,2,2) = +.98663271D-3 H0131500 CC3D(3,2,2) = -.1D-15 H0131510 C***** ASSIGNMENT OF SIGNED DP CONSTANTS (NO DECIMAL H0131520 C***** PART) WITH UNSIGNED EXPONENTS TO VARIABLES H0131530 C***** AND ARRAY ELEMENTS H0131540 PPDVD = +3261294675.D12 H0131550 RRDVD = -969492909.D4 H0131560 EP1D(15) = +3261294675.D12 H0131570 EP1D(16) = -969492909.D4 H0131580 BC2D(4,4) = +3261294675.D12 H0131590 BC2D(5,4) = -969492909.D4 H0131600 CC3D(4,2,2) = +3261294675.D12 H0131610 CC3D(5,2,2) = -969492909.D4 H0131620 C***** ASSIGNMENT OF SIGNED DP CONSTANTS (NO INTEGER H0131630 C***** PART) WITH UNSIGNED EXPONENTS TO VARIABLES H0131640 C***** AND ARRAY ELEMENTS H0131650 SSDVD = +.001246085D3 H0131660 TTDVD = -.59D2 H0131670 EP1D(17) = +.001246085D3 H0131680 EP1D(18) = -.59D2 H0131690 BC2D(6,4) = +.001246085D3 H0131700 BC2D(7,4) = -.59D2 H0131710 CC3D(6,2,2) = +.001246085D3 H0131720 CC3D(7,2,2) = -.59D2 H0131730 C***** ASSIGNMENT OF DP CONSTANTS FORMED BY ADDING 5.1.1.3/42H0131740 C***** UNSIGNED EXPONENTS TO UNSIGNED INTEGERS H0131750 UUDVD = 798281392253D0 H0131760 EP1D(19) = 798281392253D0 H0131770 FC2D(1,1) = 798281392253D0 H0131780 RC3D(1,1,1) = 798281392253D0 H0131790 C***** ASSIGNMENT OF DP CONSTANTS FORMED BY ADDING H0131800 C***** SIGNED EXPONENTS TO UNSIGNED INTEGERS H0131810 VVDVD = 42921D+6 H0131820 WWDVD = 793685443D-4 H0131830 EP1D(20) = 42921D+6 H0131840 EP1D(21) = 793685443D-4 H0131850 FC2D(2,1) = 42921D+6 H0131860 FC2D(3,1) = 793685443D-4 H0131870 RC3D(2,1,1) = 42921D+6 H0131880 RC3D(3,1,1) = 793685443D-4 H0131890 C***** ASSIGNMENT OF DP CONSTANTS FORMED BY ADDING H0131900 C***** UNSIGNED EXPONENTS TO SIGNED INTEGERS H0131910 XXDVD = +33344455566D2 H0131920 YYDVD = -222333444D1 H0131930 EP1D(22) = +33344455566D2 H0131940 EP1D(23) = -222333444D1 H0131950 FC2D(4,1) = +33344455566D2 H0131960 FC2D(5,1) = -222333444D1 H0131970 RC3D(1,2,1) = +33344455566D2 H0131980 RC3D(2,2,1) = -222333444D1 H0131990 C***** ASSIGNMENT OF DP CONSTANTS FORMED BY ADDING H0132000 C***** SIGNED EXPONENTS TO SIGNED INTEGERS H0132010 ZZDVD = +1D+1 H0132020 MCIVD = -2D+2 H0132030 MCJVD = +33333333333333D-3 H0132040 MCKVD = -444444444D-4 H0132050 EP1D(24) = +1D+1 H0132060 EP1D(25) = -2D+2 H0132070 EP1D(26) = +33333333333333D-3 H0132080 EP1D(27) = -444444444D-4 H0132090 FC2D(1,2) = +1D+1 H0132100 FC2D(2,2) = -2D+2 H0132110 FC2D(3,2) = +33333333333333D-3 H0132120 FC2D(4,2) = -444444444D-4 H0132130 RC3D(3,2,1) = +1D+1 H0132140 RC3D(1,3,1) = -2D+2 H0132150 RC3D(2,3,1) = +33333333333333D-3 H0132160 RC3D(3,3,1) = -444444444D-4 H0132170 C***** ASSIGNMENT OF UNSIGNED DP VARIABLES AND ARRAY 7.1.1.1/41H0132180 C***** ELEMENTS TO DP VARIABLES AND ARRAY ELEMENTS H0132190 C***** (BOTH PLUS AND MINUS VALUES ARE ASSIGNED IN THIS H0132200 C***** WAY) H0132210 DPAVD = MCAVD H0132220 DPBVD = DCVD H0132230 DPCVD = EP1D(1) H0132240 DPDVD = EP1D(2) H0132250 DPEVD = BC2D(2,2) H0132260 DPFVD = BC2D(4,2) H0132270 DPGVD = CC3D(3,1,1) H0132280 DPHVD = CC3D(7,2,1) H0132290 EP1D(28) = DPAVD H0132300 EP1D(29) = DPBVD H0132310 EP1D(30) = EP1D(1) H0132320 EP1D(31) = EP1D(2) H0132330 EP1D(32) = BC2D(2,2) H0132340 EP1D(33) = BC2D(4,2) H0132350 EP1D(34) = CC3D(3,1,1) H0132360 EP1D(35) = CC3D(7,2,1) H0132370 FC2D(5,2) = DPAVD H0132380 FC2D(1,3) = DPBVD H0132390 FC2D(2,3) = EP1D(1) H0132400 FC2D(3,3) = EP1D(2) H0132410 FC2D(4,3) = BC2D(2,2) H0132420 FC2D(5,3) = BC2D(4,2) H0132430 FC2D(1,4) = CC3D(3,1,1) H0132440 FC2D(2,4) = CC3D(7,2,1) H0132450 RC3D(1,1,2) = MCAVD H0132460 RC3D(2,1,2) = DCVD H0132470 RC3D(3,1,2) = EP1D(1) H0132480 RC3D(1,2,2) = EP1D(2) H0132490 RC3D(2,2,2) = BC2D(2,2) H0132500 RC3D(3,2,2) = BC2D(4,2) H0132510 RC3D(1,3,2) = CC3D(3,1,1) H0132520 RC3D(2,3,2) = CC3D(7,2,1) H0132530 C***** ASSIGNMENT OF SIGNED DP VARIABLES AND ARRAY H0132540 C***** ELEMENTS TO DP VARIABLES AND ARRAY ELEMENTS H0132550 C***** (UNARY MINUS USED TO REVERSE BOTH PLUS AND 6.4 /44H0132560 C***** MINUS VALUES) H0132570 DPIVD = -GCVD H0132580 DPJVD = -DDDVD H0132590 DPKVD = -AC1D(3) H0132600 DPLVD = -EP1D(10) H0132610 DPMVD = -BC2D(3,1) H0132620 DPNVD = -BC2D(2,4) H0132630 DPOVD = -CC3D(2,1,1) H0132640 DPPVD = -CC3D(2,1,2) H0132650 EP1D(36) = -GCVD H0132660 EP1D(37) = -DDDVD H0132670 EP1D(38) = -AC1D(3) H0132680 EP1D(39) = -EP1D(10) H0132690 EP1D(40) = -BC2D(3,1) H0132700 EP1D(41) = -BC2D(2,4) H0132710 EP1D(42) = -CC3D(2,1,1) H0132720 EP1D(43) = -CC3D(2,1,2) H0132730 FC2D(3,4) = -GCVD H0132740 FC2D(4,4) = -DDDVD H0132750 FC2D(5,4) = -AC1D(3) H0132760 FC2D(1,5) = -EP1D(10) H0132770 FC2D(2,5) = -BC2D(3,1) H0132780 FC2D(3,5) = -BC2D(2,4) H0132790 FC2D(4,5) = -CC3D(2,1,1) H0132800 FC2D(5,5) = -CC3D(2,1,2) H0132810 RC3D(3,3,2) = -GCVD H0132820 RC3D(1,1,3) = -DDDVD H0132830 RC3D(2,1,3) = -AC1D(3) H0132840 RC3D(3,1,3) = -EP1D(10) H0132850 RC3D(1,2,3) = -BC2D(3,1) H0132860 RC3D(2,2,3) = -BC2D(2,4) H0132870 RC3D(3,2,3) = -CC3D(2,1,1) H0132880 RC3D(1,3,3) = -CC3D(2,1,2) H0132890 C***** WRITE RESULTS FOR THIS SEGMENT H0132900 WRITE (NUVI,132) MCAVD, AC1D(1), BC2D(1,1), CC3D(1,1,1), MCBVD, H0132910 A AC1D(2), BC2D(2,1), CC3D(2,1,1), MCCVD, AC1D(3), BC2D(3,1), H0132920 B CC3D(3,1,1), MCDVD, AC1D(4), BC2D(4,1), CC3D(4,1,1), MCEVD, H0132930 C AC1D(5), BC2D(5,1), CC3D(5,1,1), MCFVD, AC1D(6), BC2D(6,1), H0132940 D CC3D(6,1,1), MCGVD, AC1D(7), BC2D(7,1), CC3D(7,1,1), MCHVD, H0132950 E AC1D(8), BC2D(1,2), CC3D(1,2,1), ACVD, AC1D(9), BC2D(2,2), H0132960 F CC3D(2,2,1), BCVD, AC1D(10), BC2D(3,2), CC3D(3,2,1), CCVD, H0132970 G EP1D(1) , BC2D(4,2), CC3D(4,2,1), DCVD, EP1D(2) , BC2D(5,2), H0132980 H CC3D(5,2,1), ECVD, EP1D(3) , BC2D(6,2), CC3D(6,2,1), FCVD, H0132990 I EP1D(4) , BC2D(7,2), CC3D(7,2,1), GCVD, EP1D(5) , BC2D(1,3), H0133000 J CC3D(1,1,2), HCVD, EP1D(6) , BC2D(2,3), CC3D(2,1,2), AADVD, H0133010 K EP1D(7) , BC2D(3,3), CC3D(3,1,2), BBDVD, EP1D(8) , BC2D(4,3), H0133020 L CC3D(4,1,2), CCDVD, EP1D(9) , BC2D(5,3), CC3D(5,1,2), DDDVD, H0133030 M EP1D(10), BC2D(6,3), CC3D(6,1,2) H0133040 WRITE (NUVI,133) EEDVD, EP1D(11), BC2D(7,3), CC3D(7,1,2), FFDVD, H0133050 1 EP1D(12), BC2D(1,4), CC3D(1,2,2),GGDVD, EP1D(13), BC2D(2,4), H0133060 2 CC3D(2,2,2), HHDVD, EP1D(14), BC2D(3,4), CC3D(3,2,2), PPDVD, H0133070 3 EP1D(15), BC2D(4,4), CC3D(4,2,2), RRDVD, EP1D(16),BC2D( 5,4),H0133080 4 CC3D(5,2,2),SSDVD, EP1D(17), BC2D(6,4), CC3D(6,2,2), TTDVD, H0133090 5 EP1D(18), BC2D(7,4), CC3D(7,2,2) H0133100 WRITE (NUVI,134) UUDVD, EP1D(19), FC2D(1,1), RC3D(1,1,1), VVDVD, H0133110 1 EP1D(20), FC2D(2,1), RC3D(2,1,1), WWDVD, EP1D(21), FC2D(3,1), H0133120 2 RC3D(3,1,1), XXDVD, EP1D(22), FC2D(4,1), RC3D(1,2,1), YYDVD, H0133130 3 EP1D(23), FC2D(5,1), RC3D(2,2,1), ZZDVD, EP1D(24), FC2D(1,2), H0133140 4 RC3D(3,2,1), MCIVD, EP1D(25), FC2D(2,2), RC3D(1,3,1), MCJVD, H0133150 5 EP1D(26), FC2D(3,2), RC3D(2,3,1), MCKVD, EP1D(27), FC2D(4,2), H0133160 6 RC3D(3,3,1) H0133170 WRITE (NUVI,135) MCAVD, DPAVD, EP1D(28), FC2D(5,2), RC3D(1,1,2), H0133180 A DCVD, DPBVD, EP1D(29), FC2D(1,3), RC3D(2,1,2), EP1D(1), H0133190 B DPCVD, EP1D(30), FC2D(2,3), RC3D(3,1,2), EP1D(2), DPDVD, H0133200 C EP1D(31), FC2D(3,3), RC3D(1,2,2), BC2D(2,2), DPEVD, EP1D(32), H0133210 D FC2D(4,3), RC3D(2,2,2), BC2D(4,2), DPFVD, EP1D(33), FC2D(5,3),H0133220 E RC3D(3,2,2), CC3D(3,1,1), DPGVD, EP1D(34), FC2D(1,4), H0133230 F RC3D(1,3,2), CC3D(7,2,1), DPHVD, EP1D(35), FC2D(2,4), H0133240 G RC3D(2,3,2), GCVD, DPIVD, EP1D(36), FC2D(3,4), RC3D(3,3,2), H0133250 H DDDVD, DPJVD, EP1D(37), FC2D(4,4), RC3D(1,1,3), AC1D(3), H0133260 I DPKVD, EP1D(38), FC2D(5,4), RC3D(2,1,3), EP1D(10), DPLVD, H0133270 J EP1D(39), FC2D(1,5), RC3D(3,1,3), BC2D(3,1), DPMVD, EP1D(40), H0133280 K FC2D(2,5), RC3D(1,2,3), BC2D(2,4), DPNVD, EP1D(41), FC2D(3,5),H0133290 L RC3D(2,2,3), CC3D(2,1,1), DPOVD, EP1D(42), FC2D(4,5), H0133300 M RC3D(3,2,3), CC3D(2,1,2), DPPVD, EP1D(43), FC2D(5,5), H0133310 N RC3D(1,3,3) H0133320 132 FORMAT (/ 6X,8H0.34D+02/4(D14.2/)/ H0133330 A 6X,19H0.1234567891011D+08/4(D25.13/)/ H0133340 B 6X,15H0.298765234D-01/4(D21.9/)/ H0133350 C 6X,17H0.34510000555D+07/4(D23.11/)/ H0133360 D 6X,14H0.22232425D+08/4(D20.8/)/ H0133370 E 6X,12H0.281420D+05/4(D18.6/)/ H0133380 F 6X,16H0.4455667788D+16/4(D22.10/), H0133390 G 1H1,5X,20H0.35692483569248D+12/4(D26.14/)/ H0133400 H 6X,13H0.6549876D-03/4(D19.7/)/ H0133410 I 6X,8H0.78D+10/4(D14.2/)/ H0133420 J 6X,7H0.0D+00/4(D13.1/)/ H0133430 K 5X,16H-0.172635445D+11/4(D21.9/)/ H0133440 L 6X,12H0.198762D+05/4(D18.6/)/ H0133450 M 5X,16H-0.254396621D+03/4(D21.9/)/ H0133460 N 6X,20H0.34786529910234D-05/4(D26.14/)/ H0133470 O 5X,10H-0.444D-08/4(D15.3/), H0133480 P 1H1,5X,7H0.0D+00/4(D13.1/)/ H0133490 Q 5X,10H-0.123D+20/4(D15.3/)/ H0133500 R 6X,13H0.3692468D-01/4(D19.7/)/ H0133510 S 5X,19H-0.147937824967D+07/4(D24.12/),1H ) H0133520 133 FORMAT ( 6X,18H0.927786174985D+02/4(D24.12/)/ H0133530 T 5X,21H-0.59354914223619D+00/4(D26.14/)/ H0133540 U 6X,14H0.98663271D-03/4(D20.8/)/ H0133550 V 5X,8H-0.1D-15/4(D13.1/)/ H0133560 W 6X,16H0.3261294675D+22/4(D22.10/), H0133570 X 1H1,4X,16H-0.969492909D+13/4(D21.9/)/ H0133580 Y 6X,13H0.1246085D+01/4(D19.7/)/ H0133590 Z 5X,9H-0.59D+02/4(D14.2/),1H ) H0133600 134 FORMAT ( 6X,18H0.798281392253D+12/4(D24.12/)/ H0133610 1 6X,11H0.42921D+11/4(D17.5/)/ H0133620 2 6X,15H0.793685443D+05/4(D21.9/)/ H0133630 3 6X,17H0.33344455566D+13/4(D23.11/)/ H0133640 4 5X,16H-0.222333444D+10/4(D21.9/)/ H0133650 5 6X,7H0.1D+02/4(D13.1/), H0133660 6 1H1,4X,8H-0.2D+03/4(D13.1/)/ H0133670 7 6X,20H0.33333333333333D+11/4(D26.14/)/ H0133680 8 5X,16H-0.444444444D+05/4(D21.9/),1H ) H0133690 135 FORMAT( 6X,20H0.34000000000000D+02/5(D26.14/)/ H0133700 1 5X,21H-0.17263544500000D+11/5(D26.14/)/ H0133710 2 6X,20H0.00000000000000D+00/5(D26.14/)/ H0133720 3 5X,21H-0.17263544500000D+11/5(D26.14/)/ H0133730 4 6X,20H0.65498760000000D-03/5(D26.14/), H0133740 5 1H1,5X,20H0.00000000000000D+00/5(D26.14/)/ H0133750 6 6X,20H0.29876523400000D-01/5(D26.14/)/ H0133760 7 5X,21H-0.25439662100000D+03/5(D26.14/), H0133770 8 39H1 EACH GROUP SHOULD BE IDENTICAL EXCEPT/ H0133780 9 38H FOR THE SIGNS OF THE FIRST TWO LINES// H0133790 A 6X,20H0.34786529910234D-05/5(D26.14/)/ H0133800 B 5X,21H-0.14793782496700D+07/5(D26.14/)/ H0133810 C 6X,20H0.29876523400000D-01/5(D26.14/)/ H0133820 D 5X,21H-0.14793782496700D+07/5(D26.14/)/ H0133830 E 6X,20H0.29876523400000D-01/5(D26.14/)/ H0133840 F 6X,20H0.98663271000000D-03/5(D26.14/)/ H0133850 G 6X,20H0.12345678910110D+08/5(D26.14/), H0133860 H 1H1,4X,21H-0.44400000000000D-08/5(D26.14/)) H0133870 C***** END OF SEGMENT 013 H0133880 C***** WHEN EXECUTING ONLY SEGMENT 013, THE STOP AND END CARDS H0133890 C***** WHICH APPEAR AS COMMENTS MUST HAVE THE C= H0133900 C***** IN COLUMNS 1 AND 2 REMOVED H0133910 C= STOP H0133920 C= END H0133930 C***********************************************************************H0150010 C***** H0150020 C***** CASGN - (015) H0150030 C***** H0150040 C***********************************************************************H0150050 C***** GENERAL PURPOSE ASA REF H0150060 C***** * TO TEST METHODS OF FORMING COMPLEX CONSTANTS 5.1.1 H0150070 C***** * TO TEST THAT COMPLEX VARIABLES AND ARRAY 5.1.2 /5 H0150080 C***** ELEMENTS MAY BE REFERENCED. 5.1.3 /16 H0150090 C***** * TO TEST SIMPLE ARITHMETIC ASSIGNMENT STATEMENTS 7.1.1.1 H0150100 C***** SO THAT THIS FEATURE CAN BE USED FOR INITIALIZATION TABLE 1 H0150110 C***** IN LATER SEGMENTS H0150120 C***** S P E C I F I C A T I O N S SEGMENT 015 H0150130 C***** H0010580 C***** WHEN EXECUTING ONLY SEGMENT 015, THE SPECIFICATION STATEMENTS H0010585 C***** WHICH APPEAR AS COMMENTS MUST HAVE THE C= IN COLUMNS H0010590 C***** 1 AND 2 REMOVED. H0010595 C***** H0010600 C= COMPLEX QEVC,QFVC,QGVC,QHVC,QIVC,QJVC,QKVC,QLVC,QMVC,QNVC,QOVC, H0010605 C= 1 QPVC,QRVC,QSVC,QTVC,QUVC,QVVC,KVC,LVC,MVC,NVC,OVC,PVC,QVC,VVC, H0010610 C= 2 MEVC,MFVC,MGVC,MHVC,MIVC,QQVC,MJVC,MKVC,MLVC, MNVC,MOVC, H0010615 C= 3 MPVC,MQVC,MRVC,MSVC,MTVC,MUVC,MVVC,BCVC,DCVC,DDVC H0010620 C= COMPLEX AVC,BVC,CVC,DVC,EVC,FVC,GVC,HVC,IVC,JVC,AAVC, H0010625 C= 1 ABVC,BAVC,BBVC,CCVC,CDVC,CAVC,DAVC,ASVC,BSVC,CSVC, H0010630 C= 2 DSVC,AAAVC,ABAVC,ACAVC,ADAVC,CHCVC H0010635 C= COMPLEX NUMVC, QAVC,QBVC,QCVC,QDVC,RVC,SVC,TVC,UVC H0010640 C= 1 , MAVC,MBVC,MCVC,MDVC,B1C(8),B2C(4,2),B3C(2,2,2) H0010645 C= COMPLEX LL1C(32),LM2C(8,4),LN3C(9,2,2),A1C(12),A2C(2,2),A3C(2,2,1)H0010650 C***** H0010655 C***** O U T P U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. H0150140 C***** H0070520 C***** WHEN EXECUTING ONLY SEGMENT 015, THE FOLLOWING STATEMENT H0070525 C***** NUVI = 6 MUST HAVE THE C= IN COLUMNS 1 AND 2 REMOVED. H0070530 C***** H0070535 C= NUVI = 6 H0070540 C***** H0070545 WRITE (NUVI,150) H0150150 WRITE (NUVI,151) H0150160 150 FORMAT(1H1,1X,32HCASGN - (015) COMPLEX ASSIGNMENT/ H0150170 1 16X, 10HSTATEMENTS/2X,28HASA REFS. - 5.1.1.4 7.1.1.1// H0150180 2 2X, 7HRESULTS//2X,23HLINE 1 OF EACH GROUP IS/ H0150190 3 2X,21HHOLLERITH INFORMATION/) H0150200 151 FORMAT(2X,36HVALUES IN A GROUP SHOULD BE THE SAME) H0150210 C***** HEADER FOR SEGMENT 015 WRITTEN H0150220 C***** BEGINNING OF TEST OF COMPLEX CONSTANT ASSIGNMENTS. IN H0150230 C***** THE FOLLOWING 22 BLOCKS, BOTH PARTS OF THE CONSTANT H0150240 C***** HAVE THE SAME METHOD OF FORMATION H0150250 C***** TEST ASSIGNMENT OF COMPLEX CONSTANTS FORMED FROM H0150260 C***** UNSIGNED BASIC REAL CONSTANTS H0150270 QAVC = (22.2,33.33) H0150280 LL1C(1) = (22.2,33.33) H0150290 LM2C(1,1) = (22.2,33.33) H0150300 LN3C(1,1,1) = (22.2,33.33) H0150310 C***** TEST ASSIGNMENT OF COMPLEX CONSTANTS FORMED FROM H0150320 C***** SIGNED BASIC REAL CONSTANTS H0150330 QBVC = (+395.6,+4106.7) H0150340 QCVC = (-12345.67,-1234.567) H0150350 QDVC = (+8.9,-9.1) H0150360 QEVC = (-2635.12,+46.21) H0150370 LL1C(2) = (+395.6,+4106.7) H0150380 LL1C(3) = (-12345.67,-1234.567) H0150390 LL1C(4) = (+8.9,-9.1) H0150400 LL1C(5) = (-2635.12,+46.21) H0150410 LM2C(2,1) = (+395.6,+4106.7) H0150420 LM2C(3,1) = (-12345.67,-1234.567) H0150430 LM2C(4,1) = (+8.9,-9.1) H0150440 LM2C(5,1) = (-2635.12,+46.21) H0150450 LN3C(2,1,1) = (+395.6,+4106.7) H0150460 LN3C(3,1,1) = (-12345.67,-1234.567) H0150470 LN3C(4,1,1) = (+8.9,-9.1) H0150480 LN3C(5,1,1) = (-2635.12,+46.21) H0150490 C***** TEST ASSIGNMENT OF COMPLEX CONSTANTS FORMED FROM H0150500 C***** UNSIGNED AND SIGNED REAL CONSTANTS (INTEGER PART H0150510 C***** ONLY) H0150520 QFVC = (10.,20.) H0150530 QGVC = (+300.,+4000.) H0150540 QHVC = (-50.,-600.) H0150550 QIVC = (+71.,-92.) H0150560 QJVC = (-883.,+1414.) H0150570 QKVC = (10.,+562.) H0150580 QLVC = (2002.,-983.) H0150590 QMVC = (+461.,-165.) H0150600 QNVC = (-21.,+122.) H0150610 LL1C(6) = (10.,20.) H0150620 LM2C(6,1) = (+300.,+4000.) H0150630 LN3C(6,1,1) = (-50.,-600.) H0150640 LL1C(7) = (+71.,-92.) H0150650 LM2C(7,1) = (-883.,+1414.) H0150660 LN3C(7,1,1) = (10.,+562.) H0150670 LL1C(8) = (2002.,-983.) H0150680 LM2C(8,1) = (+461.,-165.) H0150690 LN3C(8,1,1) = (-21.,+122.) H0150700 C***** TEST ASSIGNMENT OF COMPLEX CONSTANTS FORMED FROM H0150710 C***** UNSIGNED AND SIGNED REAL CONSTANTS (DECIMAL PART H0150720 C***** ONLY H0150730 QOVC = (.001,.00200) H0150740 QPVC = (+.562,+.562) H0150750 QQVC = (-.3,-.3333333) H0150760 QRVC = (+.4,-.445) H0150770 QSVC = (-.95,+.95) H0150780 QTVC = (.0164239,+.36) H0150790 QUVC = (.21,-.3963) H0150800 QVVC = (+.3398,.3398) H0150810 NUMVC = (-.6,.6) H0150820 LL1C(9) = (.001,.00200) H0150830 LM2C(1,2) = (+.562,+.562) H0150840 LN3C(1,2,1) = (-.3,-.3333333) H0150850 LL1C(10) = (+.4,-.445) H0150860 LM2C (2,2) = (-.95, +.95) H0150870 LN3C(2,2,1) = (.0164239,+.36) H0150880 LL1C(11) = (.21,-.3963) H0150890 LM2C(3,2) = (+.3398,.3398) H0150900 LN3C(3,2,1) = (-.6,.6) H0150910 C***** TEST ASSIGNMENT OF COMPLEX CONSTANTS FORMED FROM H0150920 C***** UNSIGNED REAL CONSTANTS WITH UNSIGNED EXPONENTS H0150930 AVC = (0.0E0,1.0E0) H0150940 LL1C(12) = (456231.1E1,789.453E3) H0150950 LM2C(4,2) = (44.9E4,2.5E3) H0150960 LN3C(4,2,1) = (2222.3E3,333.2E2) H0150970 C***** TEST ASSIGNMENT OF COMPLEX CONSTANTS FORMED FROM H0150980 C***** UNSIGNED REAL CONSTANTS WITH SIGNED EXPONENTS H0150990 BVC = (3.0E+0,3.0E+0) H0151000 CVC = (987654.3E-1,876543.2E-2) H0151010 DVC = (4.444E+3,55.555E-4) H0151020 EVC = (6.0E-5,7.7E+6) H0151030 LL1C(13) = (3.0E+0,3.0E+0) H0151040 LM2C(5,2) = (987654.3E-1,876543.2E-2) H0151050 LN3C(5,2,1) = (4.444E+3,55.555E-4) H0151060 LL1C(14) = (6.0E-5,7.7E+6) H0151070 C***** TEST ASSIGNMENT OF COMPLEX CONSTANTS FORMED FROM H0151080 C***** SIGNED REAL CONSTANTS WITH UNSIGNED EXPONENTS H0151090 FVC = (+14.2E1,+26.67E0) H0151100 GVC = (-36.923E4,-0.234E03) H0151110 HVC = (+2.1E2,-2.1E2) H0151120 IVC = (-595.9E00,+4.967E2) H0151130 LM2C(6,2) = (+14.2E1,+26.67E0) H0151140 LN3C(6,2,1) = (-36.923E4,-0.234E03) H0151150 LL1C(15) = (+2.1E2,-2.1E2) H0151160 LM2C(7,2) = (-595.9E00,+4.967E2) H0151170 C***** TEST ASSIGNMENT OF COMPLEX CONSTANTS FORMED FROM H0151180 C***** SIGNED REAL CONSTANTS WITH SIGNED EXPONENTS H0151190 JVC = (+1.0E+0,+1.0E+0) H0151200 KVC = (-2.0E-0,-2.0E-0) H0151210 LVC = (+49.2E-1,-65.27E+2) H0151220 MVC = (-737.1E+3,+99.8E-3) H0151230 NVC = (+4774.47E+03,-9362.4E-4) H0151240 OVC = (-846.2E-5,+13.33E+1) H0151250 LN3C(7,2,1) = (+1.0E+0,+1.0E+0) H0151260 LL1C(16) = (-2.0E-0,-2.0E-0) H0151270 LM2C(1,3) = (+49.2E-1,-65.27E+2) H0151280 LN3C(1,1,2) = (-737.1E+3,+99.8E-3) H0151290 LL1C(17) = (+4774.47E+03,-9362.4E-4) H0151300 LM2C(2,3) = (-846.2E-5,+13.33E+1) H0151310 C***** TEST ASSIGNMENT OF COMPLEX CONSTANTS FORMED FROM H0151320 C***** UNSIGNED REAL CONSTANTS (NO DECIMAL PART) WITH H0151330 C***** UNSIGNED EXPONENTS H0151340 PVC = (77.E7,816248.E2) H0151350 LL1C(18) = (77.E7,816248.E2) H0151360 LM2C(3,3) = (1334.E01,379.E03) H0151370 LN3C(2,1,2) = (1334.E01,379.E03) H0151380 C***** TEST ASSIGNMENT OF COMPLEX CONSTANTS FORMED FROM H0151390 C***** UNSIGNED REAL CONSTANTS (NO DECIMAL PART) WITH H0151400 C***** SIGNED EXPONENTS H0151410 QVC = (3.E+5,3.E+05) H0151420 RVC = (299.E-4,299.E-1) H0151430 SVC = (1419.E+2,1419.E-2) H0151440 TVC = (76.E-3,987.E+0) H0151450 LL1C(19) = (3.E+05,3.E+5) H0151460 LM2C(4,3) = (299.E-4,299.E-1) H0151470 LN3C(3,1,2) = (1419.E+2,1419.E-2) H0151480 LL1C(20) = (76.E-3, 987.E+0) H0151490 C***** TEST ASSIGNMENT OF COMPLEX CONSTANTS FORMED FROM H0151500 C***** SIGNED REAL CONSTANTS (NO DECIMAL PART) WITH H0151510 C***** UNSIGNED EXPONENTS H0151520 UVC = (+31.E0,+4659.E1) H0151530 VVC = (-728.E2,-93296.E3) H0151540 MAVC = (+6.E6,-6.E6) H0151550 MBVC = (-7914.E3,+16.E5) H0151560 LM2C(5,3) = (+31.E0,+4659.E1) H0151570 LN3C(4,1,2) = (-728.E2,-93296.E3) H0151580 LL1C(21) = (+6.E6,-6.E6) H0151590 LM2C(6,3) = (-7914.E3,+16.E5) H0151600 C***** TEST ASSIGNMENT OF COMPLEX CONSTANTS FORMED FROM H0151610 C***** SIGNED REAL CONSTANTS (NO DECIMAL PART) WITH H0151620 C***** SIGNED EXPONENTS H0151630 MCVC = (+1.E+1,+1.E+1) H0151640 MDVC = (-2.E-2,-2.E-2) H0151650 MEVC = (+3.E-3,-3.E+3) H0151660 MFVC = (-4.E+4,+4.E-4) H0151670 MGVC = (+5.E+5,-5.E-5) H0151680 MHVC = (-6.E-6,+6.E+6) H0151690 LN3C(5,1,2) = (+1.E+1,+1.E+1) H0151700 LL1C(22) = (-2.E-2,-2.E-2) H0151710 LM2C(7,3) = (+3.E-3,-3.E+3) H0151720 LN3C(6,1,2) = (-4.E+4,+4.E-4) H0151730 LL1C(23) = (+5.E+5,-5.E-5) H0151740 LM2C(1,4) = (-6.E-6,+6.E+6) H0151750 C***** TEST ASSIGNMENT OF COMPLEX CONSTANTS FORMED FROM H0151760 C***** UNSIGNED REAL CONSTANTS (NO INTEGER PART) WITH H0151770 C***** UNSIGNED EXPONENTS H0151780 MIVC = (.39393E01,.62E04) H0151790 LL1C(24) = (.39393E01,.62E04) H0151800 LM2C(2,4) = (.009E2,.765765E3) H0151810 LN3C(7,1,2) = (.009E2,.765765E3) H0151820 C***** TEST ASSIGNMENT OF COMPLEX CONSTANTS FORMED FROM H0151830 C***** UNSIGNED REAL CONSTANTS (NO INTEGER PART) WITH H0151840 C***** SIGNED EXPONENTS H0151850 MJVC =(.352E+09,.352E+3) H0151860 MKVC =(.147626E+0,.891E-14) H0151870 MLVC =(.9E-7,.9999E+8) H0151880 MNVC =(.13E-04,.13E-04) H0151890 LL1C(25) =(.352E+09,.352E+3) H0151900 LM2C(3,4) =(.147626E+0,.891E-14) H0151910 LN3C(1,2,2) =(.9E-7,.9999E+8) H0151920 LN3C(2,2,2) =(.13E-4,.13E-4) H0151930 C***** TEST ASSIGNMENT OF COMPLEX CONSTANTS FORMED FROM H0151940 C***** SIGNED REAL CONSTANTS (NO INTEGER PART) WITH H0151950 C***** UNSIGNED EXPONENTS H0151960 MOVC =(+.77E00,+.77E00) H0151970 MPVC =(+.878E1,-.878E1) H0151980 MQVC =(-.9797E2,+.9797E2) H0151990 MRVC =(-.10101E15,-.10101E15) H0152000 LL1C(26) =(+.77E00,+.77E00) H0152010 LM2C(4,4) =(+.878E1,-.878E1) H0152020 LN3C(3,2,2) =(-.9797E2,+.9797E2) H0152030 LN3C(4,2,2) =(-.10101E15,-.10101E15) H0152040 C***** TEST ASSIGNMENT OF COMPLEX CONSTANTS FORMED FROM H0152050 C***** SIGNED REAL CONSTANTS (NO INTEGER PART) WITH H0152060 C***** SIGNED EXPONENTS H0152070 MSVC =(+.68E+12,+.357628E+0) H0152080 MTVC =(+.798E-3,+.76444E-00) H0152090 MUVC =(-.3247E+20,-.2594E+5) H0152100 MVVC =(-.43599E-19,-.12E-4) H0152110 AAVC =(-.6E-9,-.6E+9) H0152120 ABVC =(-.9119E+6,+.9119E-6) H0152130 BAVC =(+.39426E+2,-.39426E-2) H0152140 BBVC =(+.45E-12,+.45E+12) H0152150 LL1C(27) =(+.68E+12,+.357628E+0) H0152160 LM2C(5,4) =(+.798E-3,+.76444E-00) H0152170 LN3C(5,2,2) =(-.3247E+20,-.2594E+5) H0152180 LL1C(28) =(-.43599E-19,-.12E-4) H0152190 LM2C(6,4) =(-.6E-9,-.6E+9) H0152200 LN3C(6,2,2) =(-.9119E+6,+.9119E-6) H0152210 LM2C(7,4) =(+.39426E+2,-.39426E-2) H0152220 LN3C(7,2,2) =(+.45E-12,+.45E+12) H0152230 C***** ASSIGNMENT OF COMPLEX CONSTANTS FORMED FROM SIGNED AND UNSIGNED H0152240 C***** INTEGER CONSTANTS WITH SIGNED AND UNSIGNED EXPONENTS H0152250 BCVC = (+4793E+2,3479E2) H0152260 DDVC = (3682E-3,8236E-2) H0152270 DCVC = (-2571E5,+1752E+5) H0152280 CHCVC = (+1460E-4,-1064E+01) H0152290 A1C(5) = (4793E2,3479E+2) H0152300 A1C(6) = (3682E-03,+8236E-02) H0152310 A1C(7) = (-2571E+5,1752E+05) H0152320 A1C(8) = (1460E-4,-1064E1) H0152330 LM2C(8,2) = (4793E+2,+3479E+2) H0152340 LN3C(8,2,1) = (+3682E-3,8236E-02) H0152350 LN3C(8,2,2) = (-2571E+05,1752E5) H0152360 LN3C(8,1,2) = (1460E-04,-1064E+1) H0152370 C***** ASSIGNMENT OF COMPLEX VARIABLES AND ARRAY ELEMENTS H0152380 C***** TO COMPLEX VARIABLES AND ARRAY ELEMENTS H0152390 CCVC = QTVC H0152400 CDVC = LL1C(12) H0152410 CAVC = LM2C(1,4) H0152420 DAVC = LN3C(6,2,2) H0152430 A1C(1) = CCVC H0152440 A1C(2) = LL1C(12) H0152450 A1C(3) = LM2C(1,4) H0152460 A1C(4) = LN3C(6,2,2) H0152470 A2C(1,1) = QTVC H0152480 A2C(2,1) = LL1C(12) H0152490 A2C(1,2) = LM2C(1,4) H0152500 A2C(2,2) = LN3C(6,2,2) H0152510 A3C(1,1,1) = CCVC H0152520 A3C(2,1,1) = LL1C(12) H0152530 A3C(1,2,1) = LM2C(1,4) H0152540 A3C(2,2,1) = LN3C(6,2,2) H0152550 C***** ASSIGNMENT OF COMPLEX VARIABLES AND ARRAY ELEMENTS H0152560 C***** TO COMPLEX VARIABLES AND ARRAY ELEMENTS (UNARY 6.4/44H0152570 C***** MINUS USED TO REVERSE BOTH PLUS AND MINUS VALUES) H0152580 ASVC = - QGVC H0152590 BSVC = - QHVC H0152600 CSVC = - LL1C(26) H0152610 DSVC = - LL1C(23) H0152620 AAAVC = - LM2C(1,3) H0152630 AAAVC = - LM2C(1,3) H0152640 ABAVC = - LM2C(1,4) H0152650 ACAVC = - LN3C(5,2,1) H0152660 ADAVC = - LN3C(6,2,1) H0152670 B1C(1) = - QGVC H0152680 B1C(2) = - QHVC H0152690 B1C(3) = - LL1C(26) H0152700 B1C(4) = - LL1C(23) H0152710 B1C(5) = - LM2C(1,3) H0152720 B1C(6) = - LM2C(1,4) H0152730 B1C(7) = - LN3C(5,2,1) H0152740 B1C(8) = - LN3C(6,2,1) H0152750 B2C(1,1) = - QGVC H0152760 B2C(2,1) = - QHVC H0152770 B2C(3,1) = - LL1C(26) H0152780 B2C(4,1) = - LL1C(23) H0152790 B2C(1,2) = - LM2C(1,3) H0152800 B2C(2,2) = - LM2C(1,4) H0152810 B2C(3,2) = - LN3C(5,2,1) H0152820 B2C(4,2) = - LN3C(6,2,1) H0152830 B3C(1,1,1) = - QGVC H0152840 B3C(2,1,1) = - QHVC H0152850 B3C(1,2,1) = - LL1C(26) H0152860 B3C(2,2,1) = - LL1C(23) H0152870 B3C(1,1,2) = - LM2C(1,3) H0152880 B3C(2,1,2) = - LM2C(1,4) H0152890 B3C(1,2,2) = - LN3C(5,2,1) H0152900 B3C(2,2,2) = - LN3C(6,2,1) H0152910 C***** WRITE RESULTS FOR THIS TEST SEGMENT H0152920 WRITE (NUVI, 152) QAVC, LL1C(1), LM2C(1,1), LN3C(1,1,1), QBVC, H0152930 1 LL1C(2), LM2C(2,1), LN3C(2,1,1), QCVC, LL1C(3), LM2C(3,1), H0152940 2 LN3C(3,1,1), QDVC, LL1C(4), LM2C(4,1), LN3C(4,1,1), QEVC, H0152950 3 LL1C(5), LM2C(5,1), LN3C(5,1,1), QFVC, LL1C(6), QGVC, H0152960 4 LM2C(6,1), QHVC, LN3C(6,1,1), QIVC, LL1C(7), QJVC, LM2C(7,1), H0152970 5 QKVC, LN3C(7,1,1), QLVC, LL1C(8), QMVC, LM2C(8,1), QNVC, H0152980 6 LN3C(8,1,1), QOVC, LL1C(9), QPVC, LM2C(1,2), QQVC, H0152990 7 LN3C(1,2,1), QRVC, LL1C(10), QSVC, LM2C(2,2), QTVC, H0153000 8 LN3C(2,2,1) H0153010 WRITE (NUVI,153) QUVC, LL1C(11), QVVC, LM2C(3,2), NUMVC, H0153020 1 LN3C(3,2,1), AVC, LL1C(12), LM2C(4,2), LN3C(4,2,1), BVC, H0153030 2 LL1C(13), CVC, LM2C(5,2), DVC, LN3C(5,2,1), EVC, LL1C(14), H0153040 3 FVC, LM2C(6,2), GVC, LN3C(6,2,1), HVC, LL1C(15), IVC, H0153050 4 LM2C(7,2), JVC, LN3C(7,2,1), KVC, LL1C(16), LVC, LM2C(1,3), H0153060 5 MVC, LN3C(1,1,2), NVC, LL1C(17) H0153070 WRITE(NUVI,8873) OVC, LM2C(2,3), PVC, H0153080 1 LL1C(18), LM2C(3,3), LN3C(2,1,2), QVC, LL1C(19) H0153090 WRITE (NUVI,154) RVC, LM2C(4,3), SVC, LN3C(3,1,2), TVC, H0153100 1 LL1C(20), UVC, LM2C(5,3), VVC, LN3C(4,1,2), MAVC, LL1C(21), H0153110 2 MBVC, LM2C(6,3), MCVC, LN3C(5,1,2), MDVC, LL1C(22), MEVC, H0153120 3 LM2C(7,3), MFVC, LN3C(6,1,2), MGVC, LL1C(23), MHVC, H0153130 4 LM2C(1,4), MIVC, LL1C(24), LM2C(2,4), LN3C(7,1,2) H0153140 WRITE (NUVI,8870) MJVC, LL1C(25), MKVC, LM2C(3,4), MLVC, H0153150 - LN3C(1,2,2), MNVC, LN3C(2,2,2), MOVC, LL1C(26), H0153160 + MPVC, LM2C(4,4), MQVC, LN3C(3,2,2), MRVC, H0153170 = LN3C(4,2,2), MSVC, LL1C(27), MTVC, LM2C(5,4), H0153180 $ MUVC, LN3C(5,2,2), MVVC, LL1C(28), AAVC, H0153190 . LM2C(6,4), ABVC, LN3C(6,2,2), BAVC, LM2C(7,4), H0153200 + BBVC, LN3C(7,2,2) H0153210 WRITE(NUVI,8872) BCVC,A1C(5),LM2C(8,2),DDVC, A1C(6),LN3C(8,2,1), H0153220 1 DCVC,A1C(7),LN3C(8,2,2),CHCVC,A1C(8),LN3C(8,1,2) H0153230 0WRITE (NUVI,8871) QTVC, CCVC, A1C(1), A2C(1,1), A3C(1,1,1), H0153240 1 LL1C(12), CDVC, A1C(2), A2C(2,1), A3C(2,1,1), LM2C(1,4), H0153250 2 CAVC, A1C(3), A2C(1,2), A3C(1,2,1), LN3C(6,2,2), DAVC, H0153260 3 A1C(4), A2C(2,2), A3C(2,2,1), QGVC, ASVC, B1C(1), B2C(1,1), H0153270 4 B3C(1,1,1), QHVC, BSVC, B1C(2), B2C(2,1), B3C(2,1,1), H0153280 5 LL1C(26), CSVC, B1C(3), B2C(3,1), B3C(1,2,1), LL1C(23), H0153290 6 DSVC, B1C(4), B2C(4,1), B3C(2,2,1), LM2C(1,3), AAAVC, B1C(5), H0153300 7 B2C(1,2), B3C(1,1,2), LM2C(1,4), ABAVC, B1C(6), B2C(2,2), H0153310 8 B3C(2,1,2), LN3C(5,2,1), ACAVC, B1C(7), B2C(3,2), B3C(1,2,2), H0153320 9 LN3C(6,2,1), ADAVC, B1C(8), B2C(4,2), B3C(2,2,2) H0153330 C***** FORMAT STATEMENTS FOR THIS SEGMENT H0153340 152 FORMAT (/ 6X,9H0.222E+02,9X,10H0.3333E+02/4(E15.3,E19.4/)/ H0153350 A 6X,10H0.3956E+03,8X,11H0.41067E+04/4(E16.4,E19.5/)/ H0153360 B 5X,14H-0.1234567E+05,4X,14H-0.1234567E+04/4(E19.7,E18.7/)/ H0153370 C 6X,8H0.89E+01,9X,9H-0.91E+01/4(E14.2,E18.2/)/ H0153380 D 5X,13H-0.263512E+04,6X,10H0.4621E+02/4(E18.6,E16.4/)/ H0153390 E 6X,7H0.1E+02,11X,7H0.2E+02/2(E13.1,E18.1/)/ H0153400 F 6X,7H0.3E+03,11X,7H0.4E+04/2(E13.1,E18.1/)/ H0153410 G 5X,8H-0.5E+02,10X,8H-0.6E+03/2(E13.1,E18.1/)/ H0153420 H 6X,8H0.71E+02,9X,9H-0.92E+02/2(E14.2,E18.2/)/ H0153430 I1H1,4X,10H-0.883E+03,9X,10H0.1414E+04/2(E15.3,E19.4/)/ H0153440 J 6X,7H0.1E+02,11X,9H0.562E+03/2(E13.1,E20.3/)/ H0153450 K 6X,10H0.2002E+04,7X,10H-0.983E+03/2(E16.4,E17.3/)/ H0153460 L 6X,9H0.461E+03,8X,10H-0.165E+03/2(E15.3,E18.3/)/ H0153470 M 5X,9H-0.21E+02,10X,9H0.122E+03/2(E14.2,E19.3/)/ H0153480 N 6X,7H0.1E-02,11X,7H0.2E-02/2(E13.1,E18.1/)/ H0153490 O 6X,9H0.562E+00,9X,9H0.562E+00/2(E15.3,E18.3/)/ H0153500 P 5X,8H-0.3E+00,10X,14H-0.3333333E+00/2(E13.1,E24.7/)/ H0153510 Q 6X,7H0.4E+00,10X,10H-0.445E+00/2(E13.1,E20.3/)/ H0153520 R 5X,9H-0.95E+00,10X,8H0.95E+00/2(E14.2,E18.2/)/ H0153530 S 6X,12H0.164239E-01,6X,8H0.36E+00/2(E18.6,E14.2/),1H ) H0153540 153 FORMAT ( 6X,8H0.21E+00,9X,11H-0.3963E+00/2(E14.2,E20.4/)/ H0153550 A 6X,10H0.3398E+00,8X,10H0.3398E+00/2(E16.4,E18.4/)/ H0153560 B 5X,8H-0.6E+00,11X,7H0.6E+00/2(E13.1,E18.1/)/ H0153570 C1H1,5X,7H0.0E+00,11X,7H0.1E+01/E13.1,E18.1// H0153580 D 6X,13H0.4562311E+07,5X,12H0.789453E+06/E19.7,E17.6// H0153590 E 6X,9H0.449E+06,9X,8H0.25E+04/E15.3,E17.2// H0153600 F 6X,11H0.22223E+07,7X,10H0.3332E+05/E17.5,E17.4// H0153610 G 6X,7H0.3E+01,11X,7H0.3E+01/2(E13.1,E18.1/)/ H0153620 H 6X,13H0.9876543E+05,5X,13H0.8765432E+04/2(E19.7,E18.7/)/ H0153630 I 6X,10H0.4444E+04,8X,11H0.55555E-02/2(E16.4,E19.5/)/ H0153640 J 6X,7H0.6E-04,11X,8H0.77E+07/2(E13.1,E19.2/)/ H0153650 K 6X,9H0.142E+03,9X,10H0.2667E+02/2(E15.3,E19.4/)/ H0153660 L 5X,12H-0.36923E+06,6X,10H-0.234E+03/2(E17.5,E16.3/)/ H0153670 M 6X,8H0.21E+03,9X,9H-0.21E+03/2(E14.2,E18.2/)/ H0153680 N 5X,11H-0.5959E+03,8X,10H0.4967E+03/2(E16.4,E18.4/)/ H0153690 O 6X,7H0.1E+01,11X,7H0.1E+01/2(E13.1,E18.1/)/ H0153700 P 5X,8H-0.2E+01,10X,8H-0.2E+01/2(E13.1,E18.1/)/ H0153710 Q 6X,9H0.492E+01,8X,11H-0.6527E+04/2(E15.3,E19.4/), H0153720 R1H1,4X,11H-0.7371E+06,8X,9H0.998E-01/2(E16.4,E17.3/)/ H0153730 S 6X,12H0.477447E+07,5X,12H-0.93624E+00/2(E18.6,E17.5/),1H ) H0153740 8873 FORMAT(5X,13H-0.846200E-02,6X,11H0.13330E+03/2(E18.6,E17.5/)/ H0153750 U 6X,12H0.770000E+09,6X,11H0.81625E+08/2(E18.6,E17.5/)/ H0153760 V 6X,12H0.133400E+05,6X,11H0.37900E+06/2(E18.6,E17.5/)/ H0153770 W 6X,12H0.300000E+06,6X,11H0.30000E+06/2(E18.6,E17.5/),1H ) H0153780 154 FORMAT ( 6X,9H0.299E-01,9X,9H0.299E+02/2(E15.3,E18.3/)/ H0153790 A 6X,10H0.1419E+06,8X,10H0.1419E+02/2(E16.4,E18.4/)/ H0153800 B 6X,8H0.76E-01,10X,9H0.987E+03/2(E14.2,E19.3/)/ H0153810 C 6X,8H0.31E+02,10X,10H0.4659E+05/2(E14.2,E20.4/)/ H0153820 D 5X,10H-0.728E+05,8X,12H-0.93296E+08/2(E15.3,E20.5/)/ H0153830 E 6X,7H0.6E+07,10X,8H-0.6E+07/2(E13.1,E18.1/)/ H0153840 F 5X,11H-0.7914E+07,8X,8H0.16E+07/2(E16.4,E16.2/)/ H0153850 G 6X,7H0.1E+02,11X,7H0.1E+02/2(E13.1,E18.1/), H0153860 H1H1,4X,8H-0.2E-01,10X,8H-0.2E-01/2(E13.1,E18.1/)/ H0153870 I 6X,7H0.3E-02,10X,8H-0.3E+04/2(E13.1,E18.1/)/ H0153880 J 5X,8H-0.4E+05,11X,7H0.4E-03/2(E13.1,E18.1/)/ H0153890 K 6X,7H0.5E+06,10X,8H-0.5E-04/2(E13.1,E18.1/)/ H0153900 L 5X,8H-0.6E-05,11X,7H0.6E+07/2(E13.1,E18.1/)/ H0153910 M 6X,11H0.39393E+01,7X,8H0.62E+04/2(E17.5,E15.2/)/ H0153920 N 6X,7H0.9E+00,11X,12H0.765765E+03/2(E13.1,E23.6/),1H ) H0153930 8870 FORMAT ( 6X,9H0.352E+09,9X,8H0.35E+03/2(E15.3,E17.2/)/ H0153940 ( 6X,12H0.147626E+00,6X,9H0.891E-14/2(E18.6,E15.3/)/ H0153950 * 6X,7H0.9E-07,11X,10H0.9999E+08/2(E13.1,E21.4/)/ H0153960 ) 6X,8H0.13E-04,10X,8H0.13E-04/2(E14.2,E18.2/)/ H0153970 / 6X,8H0.77E+00,10X,8H0.77E+00/2(E14.2,E18.2/)/ H0153980 / 6X,9H0.878E+01,8X,10H-0.878E+01/2(E15.3,E18.3/)/ H0153990 A 5X,11H-0.9797E+02,8X,10H0.9797E+02/2(E16.4,E18.4/), H0154000 . 1H1,4X,12H-0.10101E+15,6X,12H-0.10101E+15/2(E17.5,E18.5/)/ H0154010 , 6X,8H0.68E+12,10X,12H0.357628E+00/2(E14.2,E22.6/)/ H0154020 - 6X,9H0.798E-03,9X,11H0.76444E+00/2(E15.3,E20.5/)/ H0154030 + 5X,11H-0.3247E+20,7X,11H-0.2594E+05/2(E16.4,E18.4/)/ H0154040 1 5X,12H-0.43599E-19,6X,9H-0.12E-04/2(E17.5,E15.2/)/ H0154050 2 5X,8H-0.6E-09,10X,8H-0.6E+09/2(E13.1,E18.1/)/ H0154060 3 5X,11H-0.9119E+06,8X,10H0.9119E-06/2(E16.4,E18.4/)/ H0154070 4 6X,11H0.39426E+02,6X,12H-0.39426E-02/2(E17.5,E18.5/)/ H0154080 5 6X,8H0.45E-12,10X,8H0.45E+12/2(E14.2,E18.2/),1H ) H0154090 8872 FORMAT( H0154100 6 6X,10H0.4793E+06,8X,10H0.3479E+06/3(E16.4,E18.4/)/ H0154110 7 6X,10H0.3682E+01,8X,10H0.8236E+02/3(E16.4,E18.4/)/ H0154120 8 5X,11H-0.2571E+09,8X,10H0.1752E+09/3(E16.4,E18.4/)/ H0154130 9 6X,10H0.1460E+00,7X,11H-0.1064E+05/3(E16.4,E18.4/)) H0154140 8871 FORMAT(1H1,5X,13H0.1642390E-01,5X,13H0.3600000E+00/5(E19.7,E18.7/)H0154150 1 /6X,13H0.4562311E+07,5X,13H0.7894530E+06/5(E19.7,E18.7/)/ H0154160 2 5X,14H-0.6000000E-05,5X,13H0.6000000E+07/5(E19.7,E18.7/)/ H0154170 3 5X,14H-0.9119000E+06,5X,13H0.9119000E-06/5(E19.7,E18.7/), H0154180 4 39H1 EACH GROUP SHOULD BE IDENTICAL EXCEPT/ H0154190 5 38H FOR THE SIGN OF THE FIRST TWO LINES// H0154200 6 6X,13H0.3000000E+03,5X,13H0.4000000E+04/5(E19.7,E18.7/)/ H0154210 7 5X,14H-0.5000000E+02,4X,14H-0.6000000E+03/5(E19.7,E18.7/)/ H0154220 8 6X,13H0.7700000E+00,5X,13H0.7700000E+00/5(E19.7,E18.7/)/ H0154230 9 6X, 13H0.5000000E+06,4X,14H-0.5000000E-04/5(E19.7,E18.7/)/ H0154240 A 6X,13H0.4920000E+01,4X,14H-0.6527000E+04/5(E19.7,E18.7/)/ H0154250 B 5X,14H-0.6000000E-05,5X,13H0.6000000E+07/5(E19.7,E18.7/)/ H0154260 C 6X,13H0.4444000E+04,5X,13H0.5555500E-02/5(E19.7,E18.7/)/ H0154270 D 1H1,4X,14H-0.3692300E+06,4X,14H-0.2340000E+03/5(E19.7,E18.7/)) H0154280 C***** END OF TEST SEGMENT 015 H0154290 C***** WHEN EXECUTING ONLY SEGMENT 015, THE STOP AND END CARDS H0154300 C***** WHICH APPEAR AS COMMENTS MUST HAVE THE C= IN COLUMNS H0154310 C***** 1 AND 2 REMOVED. H0154320 C= STOP H0154330 C= END H0154340 STOP H9999995 END H9999999