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
