C*****    PART9    *****************************************************H0003700
C*****                                                                  H0003705
C*****    ANSI FORTRAN   (X3.9-1966)     TEST PROGRAMS                  H0003710
C*****                                                                  H0003715
C*****    PREPARED BY THE NATIONAL BUREAU OF STANDARDS      VERSION 3   H0003720
C*****                                                                  H0003725
C*****    JUNE 1974                                                     H0003730
C*****                                                                  H0003735
C*****    PART 9  OF 14 PARTS                                           H0003740
C*****                                                                  H0003745
C*****    SEGMENTS INCLUDED                                             H0003750
C*****                                                                  H0003755
C*****      CPXAD - 140 ADDITION AND SUBTRACTION OF COMPLEX NUMBERS     H0003760
C*****                                                                  H0003765
C*****      CPXMU - 141 MULTIPLICATION OF COMPLEX NUMBERS               H0003770
C*****                                                                  H0003775
C*****      CPXDV - 142 DIVISION OF COMPLEX NUMBERS                     H0003780
C*****                                                                  H0003785
C*****      CPXEX - 143 EXPONENTIATION OF COMPLEX NUMBERS               H0003790
C*****                                                                  H0003795
C*****      CPXOP - 144 ARITHMETIC OPERATIONS ON COMPLEX NUMBERS        H0003800
C*****                                                                  H0003805
C*****      CREAD - 145 ADDITION, SUBTRACTION OF COMPLEX, REAL NUMBERS  H0003810
C*****                                                                  H0003815
C*****      CREMU - 146 MULTIPLICATION OF COMPLEX BY REAL NUMBERS       H0003820
C*****                                                                  H0003825
C*****      CREDV - 147 DIVISION OF REAL, COMPLEX BY COMPLEX, REAL NOS. H0003830
C*****                                                                  H0003835
C*****      CREOP - 148 COMBINED OPERATIONS ON COMPLEX AND REAL NOS.    H0003840
C*****                                                                  H0003845
C*****      MISC3 - 149 BLANKS IN AND CONT. OF STATEMENT TO MAX. LINES  H0003850
C*****                                                                  H0003855
C*****      MISC4 - 150 SPECIAL CHARACTERS FOR CONTINUATIONS            H0003860
C*****                                                                  H0013700
C*****  THE FOLLOWING SPECIFICATIONS ARE TO BE USED ONLY WHEN           H0013705
C*****  SEGMENTS 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150  H0013710
C*****  ARE RUN AS ONE MAIN PROGRAM.                                    H0013715
C*****                                                                  H0013720
      DIMENSION A1S(5), A2S(2,2)                                        H0013725
      INTEGER AVI, I1I(5), I2I(2,2)                                     H0013730
      COMPLEX AVC, BVC, CVC, DVC, EVC, FVC, GVC, HVC, IVC, JVC,         H0013735
     1   PVC, RVC, SVC, TVC, UVC,                                       H0013740
     2   AAVC, ABVC, BAVC, BCVC, CAVC, CCVC, CDVC, DAVC, DCVC, ASVC,    H0013745
     3   BSVC, CSVC, DSVC, DBVC, DDVC, MAVC, MBVC, MCVC, MDVC, BBVC,    H0013750
     4   AAAVC, ABAVC, ACAVC, ADAVC, AASVC, ABSVC, ACSVC, ADSVC         H0013755
      COMPLEX NUMVC, DENVC, QAVC, QBVC, QCVC, QDVC                      H0013760
C*****                                                                  H0013765
C*****                                                                  H0013770
C*****  END OF SPECIFICATIONS FOR SEGMENTS                              H0013775
C*****  140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150           H0013780
C***********************************************************************H1400010
C*****                                                                  H1400020
C*****                            CPXAD - (140)                         H1400030
C*****                                                                  H1400040
C***********************************************************************H1400050
C*****                       GENERAL PURPOSE                            H1400060
C*****     TO TEST ADDITION AND SUBTRACTION OF COMPLEX NUMBERS   ASA REFH1400070
C*****     INCLUDES OPERATIONS WITH UP TO 9 TERMS                 6.1   H1400080
C*****     DOES NOT TEST FOR ACCURACY                                   H1400090
C*****                                                                  H1400100
C*****ADDITION AND SUBTRACTION OF 2 TERMS                               H1400110
C*****                                                                  H1400120
C*****  S P E C I F I C A T I O N S  SEGMENT 140                        H1400130
C*****                                                                  H0013785
C*****  WHEN EXECUTING ONLY SEGMENT 140, REMOVE THE PRECEDING           H0013790
C*****  SPECIFICATIONS.  THE FOLLOWING SPECIFICATIONS WHICH APPEAR      H0013795
C*****  AS COMMENTS MUST HAVE THE C= IN COLUMNS 1  AND 2  REMOVED.      H0013800
C*****                                                                  H0013805
C=    COMPLEX  AVC, BVC, CVC, DVC, EVC, FVC, GVC, HVC, IVC, JVC, AAVC,  H0013810
C=   1 ABVC,BAVC,BBVC,CCVC,CDVC,BCVC,DCVC                               H0013815
C*****                                                                  H0013820
C*****  I N P U T - O U T P U T  T A P E  ASSIGNMENT STATEMENTS         H1400140
      IRVI = 5                                                          H0073700
      NUVI = 6                                                          H0073705
C*****  IDENTIFY THE SOURCE OF THE TEST PROGRAMS                        H0073710
      WRITE(NUVI,0071)                                                  H0073715
0071  FORMAT (41H1 F O R T R A N  T E S T  P R O G R A M S//            H0073720
     1 42H  PREPARED BY NATIONAL BUREAU OF STANDARDS//                  H0073725
     3 37H  FOR USE ON LARGE FORTRAN PROCESSORS  //                     H0073730
     4 42H  IN ACCORDANCE WITH ASA FORTRAN X3.9-1966//                  H0073735
     5 23H  VERSION 3     PART 9 ///)                                   H0073740
C*****  3 OF 6 INPUT CARDS IDENTIFY THE USERS SYSTEM AND COMPILER       H0073745
C       PREPARED BY USER                                                H0073750
C       READ, NO LIST                                                   H0073755
C       PREPARED BY USER                                                H0073760
C       READ, NO LIST                                                   H0073765
C       PREPARED BY USER                                                H0073770
C       READ, NO LIST                                                   H0073775
C     READ(IRVI,0070)                                                   H0073780
C     READ(IRVI,0072)                                                   H0073785
C     READ(IRVI,0073)                                                   H0073790
0070  FORMAT(40H   BASED ON ASA FORTRAN X3.9-1966       /)              H0073795
0072  FORMAT(40H   TEST PROGRAMS                        /)              H0073800
0073  FORMAT(40H   FORTRAN COMPILER                     /)              H0073805
      WRITE(NUVI,0070)                                                  H0073810
      WRITE(NUVI,0072)                                                  H0073815
      WRITE(NUVI,0073)                                                  H0073820
      WRITE (NUVI, 1401)                                                H1400150
1401  FORMAT(1H1,1X,34HCPXAD - (140) COMPLEX ADDITION AND/16X,          H1400160
     111HSUBTRACTION//2X,14HASA REF. - 6.1//2X,7HRESULTS//)             H1400170
      AVC=(1.467,2.560)                                                 H1400180
      BVC=(3.568,7.480)                                                 H1400190
      CVC=AVC+BVC                                                       H1400200
      DVC=AVC+(3.568,7.480)                                             H1400210
      EVC=(1.9467,2.9560)+BVC                                           H1400220
      FVC=(1.467,2.560)+(3.568,7.480)                                   H1400230
      GVC=AVC-BVC                                                       H1400240
      HVC = (.1467E+1,.2560E1) - BVC                                    H1400250
      IVC = AVC - (3568E-3,.7480E+1)                                    H1400260
      JVC=(1.467,2.560)-(3.568,7.480)                                   H1400270
C*****ADDITION AND SUBTRACTION OF 3 TERMS                               H1400280
      AAVC=AVC+BVC-CVC                                                  H1400290
      ABVC=AVC+(3.568,7.480)-DVC                                        H1400300
      BAVC=(1.467,2.560)+BVC-CVC                                        H1400310
      BBVC=(1.467,2.560)+(3.568,7.480)-FVC                              H1400320
      BCVC=AVC-BVC-GVC                                                  H1400330
      CCVC=(1.467,2.560)-BVC-HVC                                        H1400340
      CDVC=AVC-(3.568,7.480)-IVC                                        H1400350
      DCVC=(1.467,2.560)-(3.568,7.480)-JVC                              H1400360
      WRITE(NUVI,1402) AAVC,ABVC,BAVC,BBVC,BCVC,CCVC,CDVC,DCVC          H1400370
C*****ADDITION AND SUBTRACTION OF 5 TERMS                               H1400380
      AAVC=AVC-(1.89,6.48)-AAVC-BVC+(0.0,9.830)                         H1400390
      ABVC=AVC-(1.89,6.48)-AAVC-BVC+(0.0,9.830)                         H1400400
      WRITE(NUVI,1402)ABVC                                              H1400410
 1402 FORMAT(2X,2F8.4)                                                  H1400420
      AAVC=AVC-(1.89,6.48)-BVC+(0.0,9.83)+CVC                           H1400430
C*****ADDITION AND SUBTRACTION OF 6 TERMS                               H1400440
      ABVC=AVC-(1.89,6.48)-BVC+(0.0,9.83)+CVC-AAVC                      H1400450
      WRITE(NUVI,1402) ABVC                                             H1400460
C*****ADDITION AND SUBTRACTION OF 8 TERMS                               H1400470
      AAVC=AVC+BVC-CVC+(0.34,6.45)-(4.54,6.85)+DVC+(1.0,0.0)-EVC        H1400480
C*****ADDITION AND SUBTRACTION OF 9 TERMS                               H1400490
      ABVC=AVC+BVC-CVC+(0.34,6.45)-(4.54,6.85)+DVC+(1.0,0.0)-EVC-AAVC   H1400500
      WRITE (NUVI,1403) ABVC                                            H1400510
 1403 FORMAT(2X,2F8.4//2X,35HTEST IS POSITIVE IF NUMBERS PRINTED/2X ,   H1400520
     117HABOVE ARE 0.0,0.0)                                             H1400530
C*****    END OF TEST SEGMENT 140                                       H1400540
C*****  WHEN EXECUTING ONLY SEGMENT 140, THE  STOP  AND  END  CARDS     H1400550
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE C=                  H1400560
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H1400570
C=    STOP                                                              H1400580
C=    END                                                               H1400590
C***********************************************************************H1410010
C*****                                                                  H1410020
C*****                   CPXMU - (141)                                  H1410030
C***********************************************************************H1410040
C*****                  GENERAL PURPOSE                                 H1410050
C*****    TO TEST MULTIPLICATION OF COMPLEX NUMBERS              ASA REFH1410060
C*****    INCLUDES OPERATIONS WITH UP TO 10 TERMS                6.1    H1410070
C*****    DOES NOT TEST FOR ACCURACY                                    H1410080
C*****                                                                  H1410090
C*****                                                                  H1410100
C*****  S P E C I F I C A T I O N S   SEGMENT 141                       H1410110
C*****                                                                  H0013825
C*****  WHEN EXECUTING ONLY SEGMENT 141, THE SPECIFICATION STATEMENTS   H0013830
C*****  WHICH APPEAR AS COMMENTS MUST HAVE THE  C=                      H0013835
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H0013840
C*****                                                                  H0013845
C=    COMPLEX AVC, BVC, CVC, DVC, EVC, FVC, GVC, HVC, IVC, JVC          H0013850
C=   1   ,AAVC, ABVC, BAVC, BBVC                                        H0013855
C*****                                                                  H0013860
C*****  O U T O U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H1410120
C*****                                                                  H0073825
C*****  WHEN EXECUTING ONLY SEGMENT 141, THE FOLLOWING STATEMENT        H0073830
C*****  NUVI = 6  MUST HAVE THE C=  IN COLUMNS  1  AND  2  REMOVED.     H0073835
C*****                                                                  H0073840
C=    NUVI = 6                                                          H0073845
C*****                                                                  H0073850
      WRITE (NUVI, 1411)                                                H1410130
1411  FORMAT (1H1,1 X,36HCPXMU - (141) COMPLEX MULTIPLICATION//2X,      H1410140
     114HASA REF. - 6.1//2X,7HRESULTS//)                                H1410150
C*****MULTIPLICATION OF TWO TERMS                                       H1410160
      AVC = (-0.5,0.86602)                                              H1410170
      BVC = (-0.5,-0.86602)                                             H1410180
      AAVC = (AVC * BVC )                                               H1410190
      ABVC =  AVC * (-0.5,-0.86602)                                     H1410200
      BAVC = (-0.5,0.86602) * BVC                                       H1410210
      BBVC = (-0.5,0.86602)*(-0.5,-0.86602)                             H1410220
      WRITE(NUVI,1412) AAVC,ABVC,BAVC,BBVC                              H1410230
C*****MULTIPLICATION OF 3 TERMS                                         H1410240
      AVC=(0.0,1.0)                                                     H1410250
      BVC=(1.0,0.0)                                                     H1410260
      CVC=(0.0,-1.0)                                                    H1410270
      AAVC=AVC*BVC*CVC                                                  H1410280
      ABVC=(0.0,1.0)*BVC*(0.0,-1.0)                                     H1410290
      WRITE(NUVI,1412) AAVC,ABVC                                        H1410300
 1412  FORMAT(2X,2F8.3)                                                 H1410310
C*****MULTIPLICATION OF 4 TERMS                                         H1410320
      AVC=(0.30901,0.95105)                                             H1410330
      BVC=(-0.80901,0.58778)                                            H1410340
      CVC=(-0.80901,-0.58778)                                           H1410350
      DVC=(0.30901,-0.95105)                                            H1410360
      AAVC=AVC*BVC*CVC*DVC                                              H1410370
      ABVC=AVC*(-0.80901,0.58778)*CVC*(0.30901,-0.95105)                H1410380
      WRITE(NUVI,1412) AAVC,ABVC                                        H1410390
C*****MULTIPLICATION OF 5 TERMS                                         H1410400
      AVC=(0.5,0.86602)                                                 H1410410
      BVC=(-0.5,0.86602)                                                H1410420
      CVC = (1.0,0.0)                                                   H1410430
      DVC=(-0.5,-0.86602)                                               H1410440
      EVC=(0.5,-0.86602)                                                H1410450
      AAVC=AVC*BVC*CVC*DVC*EVC                                          H1410460
      ABVC=AVC*(-0.5,0.86602)*CVC*(-0.5,-0.86602)*EVC                   H1410470
      WRITE(NUVI,1412) AAVC,ABVC                                        H1410480
C*****MULTIPLICATION OF 6 TERMS                                         H1410490
      AVC = (0.98480,0.17364)                                           H1410500
      BVC=(-0.17364,0.98480)                                            H1410510
      CVC=(-0.86602,0.5)                                                H1410520
      DVC=(-0.93969,-0.34202)                                           H1410530
      EVC=(0.34202,-0.93969)                                            H1410540
      FVC=(0.86602,-0.5)                                                H1410550
      AAVC=AVC*BVC*CVC*DVC*EVC*FVC                                      H1410560
      ABVC=AVC*(-0.17364,0.98480)*CVC*(-0.93969,-0.34202)*EVC*(0.86602, H1410570
     1-0.5)                                                             H1410580
      WRITE(NUVI,1412) AAVC,ABVC                                        H1410590
C*****MULTIPLICATION OF 7 TERMS                                         H1410600
      AVC=(0.70710,0.70710)                                             H1410610
      BVC=(0.0,1.0)                                                     H1410620
      CVC=(-0.70710,0.70710)                                            H1410630
      DVC=(1.0,0.0)                                                     H1410640
      EVC=(-0.70710,-0.70710)                                           H1410650
      FVC=(0.0,-1.0)                                                    H1410660
      GVC=(0.70710,-0.70710)                                            H1410670
      AAVC=AVC*BVC*CVC*DVC*EVC*FVC*GVC                                  H1410680
      ABVC=AVC*(0.0,1.0)*CVC*( 1.0,0.0)*EVC*(0.0,-1.0)*GVC              H1410690
      WRITE(NUVI,1412) AAVC,ABVC                                        H1410700
C*****MULTIPLICATION OF 8 TERMS                                         H1410710
      AVC=(0.76604,0.64278)                                             H1410720
      BVC=(0.17364,0.98480)                                             H1410730
      CVC=(-0.5,0.86602)                                                H1410740
      DVC=(-0.93969,0.34202)                                            H1410750
      EVC=(-0.93969,-0.34202)                                           H1410760
      FVC=(-0.5,-0.86602)                                               H1410770
      GVC=(0.17364,-0.98480)                                            H1410780
      HVC=(0.76604,-0.64278)                                            H1410790
      AAVC=AVC*BVC*CVC*DVC*EVC*FVC*GVC*HVC                              H1410800
      ABVC=AVC*(0.17364,0.98480)*CVC*DVC*(-0.93969,-0.34202)*FVC*GVC*HVCH1410810
      WRITE(NUVI,1412) AAVC,ABVC                                        H1410820
C*****MULTIPLICATION OF 9 TERMS                                         H1410830
      AVC=(0.80901,0.58778)                                             H1410840
      BVC=(0.30901,0.95105)                                             H1410850
      CVC=(-0.94832,0.31730)                                            H1410860
      DVC=(-0.80901,0.58778)                                            H1410870
      EVC = (1.0,0.0)                                                   H1410880
      FVC=(-0.80901,-0.58778)                                           H1410890
      GVC=(-0.94832,-0.31730)                                           H1410900
      HVC=(0.30901,-0.95105)                                            H1410910
      IVC=(0.80901,-0.58778)                                            H1410920
      AAVC=AVC*BVC*CVC*DVC*EVC*FVC*GVC*HVC*IVC                          H1410930
      ABVC=AVC*(0.30901,0.95105)*CVC*(-0.80901,0.58778)*( 1.0,0.0)*FVC* H1410940
     1GVC*HVC*IVC                                                       H1410950
      WRITE(NUVI,1412) AAVC,ABVC                                        H1410960
C*****MULTIPLICATION OF 10 TERMS                                        H1410970
      AVC=(0.86602,0.5)                                                 H1410980
      BVC=(0.5,0.86602)                                                 H1410990
      CVC=(0.0,1.0)                                                     H1411000
      DVC=(-0.5,0.86602)                                                H1411010
      EVC=(-0.86602,0.5)                                                H1411020
      FVC=(-1.0,0.0)                                                    H1411030
      GVC=(-0.86602,-0.5)                                               H1411040
      HVC=(-0.5,-0.86602)                                               H1411050
      IVC=(0.0,-1.0)                                                    H1411060
      JVC=(0.0,1.0)                                                     H1411070
      AAVC=AVC*BVC*CVC*DVC*EVC*FVC*GVC*HVC*IVC*JVC                      H1411080
      ABVC=AVC*(0.5,0.86602)*CVC*(-0.5,0.86602)*EVC*FVC*GVC*HVC*(0.0,-1.H1411090
     10)*JVC                                                            H1411100
      WRITE(NUVI,1412) AAVC,ABVC                                        H1411110
      WRITE(NUVI,1413)                                                  H1411120
1413  FORMAT (1H0,35HTEST IS POSITIVE IF NUMBERS PRINTED/1X,            H1411130
     117HABOVE ARE 1.0,0.0)                                             H1411140
      WRITE(NUVI, 1414)                                                 H1411150
1414  FORMAT (//39H  ERROR SHOULD NOT EXCEED + OR - .001  )             H1411160
C*****    END OF TEST SEGMENT 141                                       H1411170
C*****  WHEN EXECUTING ONLY SEGMENT 141, THE STOP AND END CARDS         H1411180
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=                 H1411190
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H1411200
C=    STOP                                                              H1411210
C=    END                                                               H1411220
C***********************************************************************H1420010
C*****                                                                  H1420020
C*****                         CPXDV-(142)                              H1420030
C*****                                                                  H1420040
C***********************************************************************H1420050
C*****                GENERAL PURPOSE                                   H1420060
C*****      TO TEST DIVISION OF COMPLEX NUMBERS                  ASA REFH1420070
C*****                                                            6.1   H1420080
C*****                                                                  H1420090
C*****  S P E C I F I C A T I O N S   SEGMENT 142                       H1420100
C*****                                                                  H0013865
C*****  WHEN EXECUTING ONLY SEGMENT 142, THE SPECIFICATION STATEMENTS   H0013870
C*****  WHICH APPEAR AS COMMENTS MUST HAVE THE  C=                      H0013875
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H0013880
C*****                                                                  H0013885
C=    COMPLEX NUMVC,DENVC,QAVC,QBVC,QCVC,QDVC                           H0013890
C*****                                                                  H0013895
C*****  O U T O U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H1420110
C*****                                                                  H0073855
C*****  WHEN EXECUTING ONLY SEGMENT 142, THE FOLLOWING STATEMENT        H0073860
C*****  NUVI = 6  MUST HAVE THE C=  IN COLUMNS  1  AND  2  REMOVED.     H0073865
C*****                                                                  H0073870
C=    NUVI = 6                                                          H0073875
C*****                                                                  H0073880
      WRITE (NUVI, 1421)                                                H1420120
1421  FORMAT(1H1,1X,25HCPXDV - (142) DIVISION OF/16X,                   H1420130
     115HCOMPLEX NUMBERS//15H  ASA REF.- 6.1//2X,7HRESULTS//)           H1420140
C***** TEST NUMBER 1                                                    H1420150
      NUMVC=(0.36602,1.36602)                                           H1420160
      DENVC=(0.86602,0.5)                                               H1420170
      QAVC=NUMVC/DENVC                                                  H1420180
      QBVC=(0.36602,1.3660) /DENVC                                      H1420190
      QCVC=NUMVC/(0.86602,0.5)                                          H1420200
      QDVC=(0.36602,1.36602)/(0.86602,0.5)                              H1420210
      WRITE(NUVI,1422)  QAVC,QBVC,QCVC,QDVC                             H1420220
C*****TEST NUMBER 2                                                     H1420230
      NUMVC=(0.0,1.41420)                                               H1420240
      DENVC=(0.70710,0.70710)                                           H1420250
      QAVC=NUMVC/DENVC                                                  H1420260
      QBVC=(0.0,1.41420)/DENVC                                          H1420270
      QCVC=NUMVC/(0.70710,0.70710)                                      H1420280
      QDVC=(0.0,1.41420)/(0.70710,0.70710)                              H1420290
      WRITE(NUVI,1422) QAVC,QBVC,QCVC,QDVC                              H1420300
 1422 FORMAT(2X,2F8.4)                                                  H1420310
C*****TEST NUMBER 3                                                     H1420320
      NUMVC=(-0.36602,1.36602)                                          H1420330
      DENVC=(0.5,0.86602)                                               H1420340
      QAVC=NUMVC/DENVC                                                  H1420350
      QBVC=(-0.36602,1.36602)/DENVC                                     H1420360
      QCVC=NUMVC/(0.5,0.86602)                                          H1420370
      QDVC=(-0.36602,1.36602)/(0.5,0.86602)                             H1420380
      WRITE(NUVI,1422) QAVC,QBVC,QCVC,QDVC                              H1420390
C*****TEST NUMBER 4                                                     H1420400
      NUMVC=(0.73204,2.73204)                                           H1420410
      DENVC=(1.73204,1.0)                                               H1420420
      QAVC=NUMVC/DENVC                                                  H1420430
      QBVC=(0.73204,2.73204)/DENVC                                      H1420440
      QCVC=NUMVC/(1.73204,1.0)                                          H1420450
      QDVC=(0.73204,2.73204)/(1.73204,1.0)                              H1420460
      WRITE(NUVI,1422) QAVC,QBVC,QCVC,QDVC                              H1420470
C***** TEST NUMBER 5                                                    H1420480
      NUMVC=(0.0,2.82840)                                               H1420490
      DENVC=(1.41420,1.41420)                                           H1420500
      QAVC=NUMVC/DENVC                                                  H1420510
      QBVC=(0.0,2.82840)/DENVC                                          H1420520
      QCVC=NUMVC/(1.41420,1.41420)                                      H1420530
      QDVC=(0.0,2.82840)/(1.41420,1.41420)                              H1420540
      WRITE(NUVI,1422) QAVC,QBVC,QCVC,QDVC                              H1420550
      WRITE(NUVI,1423)                                                  H1420560
1423  FORMAT (//2X,35HTEST IS POSITIVE IF NUMBERS PRINTED/2X,           H1420570
     117HABOVE ARE 1.0,1.0)                                             H1420580
      WRITE (NUVI, 1424)                                                H1420590
1424  FORMAT (//39H  ERROR SHOULD NOT EXCEED + OR - .0001 )             H1420600
C*****    END OF TEST SEGMENT 142                                       H1420610
C*****  WHEN EXECUTING ONLY SEGMENT 142, THE STOP AND END CARDS         H1420620
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=                 H1420630
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H1420640
C=    STOP                                                              H1420650
C=    END                                                               H1420660
C***********************************************************************H1430010
C*****                                                                  H1430020
C*****                   CPXEX(143)                                     H1430030
C*****                                                                  H1430040
C***********************************************************************H1430050
C*****                 GENERAL PURPOSE                                  H1430060
C*****    TO TEST EXPONENTIATION OF COMPLEX NUMBERS              ASA REFH1430070
C*****    BY INTEGERS                                               6.1 H1430080
C*****    EXPONENT VALUES VARY FROM 3 TO 100                            H1430090
C*****                                                                  H1430100
C*****  S P E C I F I C A T I O N S   SEGMENT 143                       H1430110
C*****                                                                  H0013900
C*****  WHEN EXECUTING ONLY SEGMENT 143, THE SPECIFICATION STATEMENTS   H0013905
C*****  WHICH APPEAR AS COMMENTS MUST HAVE THE  C=                      H0013910
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H0013915
C=    INTEGER AVI                                                       H0013920
C=    COMPLEX AVC,BVC,CVC,DVC,EVC                                       H0013925
C*****                                                                  H0013930
C*****  O U T O U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H1430120
C*****                                                                  H0073885
C*****  WHEN EXECUTING ONLY SEGMENT 143, THE FOLLOWING STATEMENT        H0073890
C*****  NUVI = 6  MUST HAVE THE C=  IN COLUMNS  1  AND  2  REMOVED.     H0073895
C*****                                                                  H0073900
C=    NUVI = 6                                                          H0073905
C*****                                                                  H0073910
      WRITE (NUVI, 1431)                                                H1430130
1431  FORMAT(1H1,1 X,36HCPXEX - (143) COMPLEX EXPONENTIATION//          H1430140
     1 2X,11HASA.REF.6.1//2X,29HRESULTS BASED ON THE FUNCTION//         H1430150
     2 2X,25H1.0 = SIN**2(X)+COS**2(X)//)                               H1430160
C***** EXPONENT=3                                                       H1430170
      AVC   = (-0.5,0.8660254)                                          H1430180
      AVI=3                                                             H1430190
      BVC=AVC**3                                                        H1430200
      CVC   = (-0.5,0.8660254) ** 3                                     H1430210
      DVC   = (-0.5,0.8660254) ** AVI                                   H1430220
      EVC=AVC**AVI                                                      H1430230
      WRITE(NUVI,1432) BVC,CVC,DVC,EVC                                  H1430240
C***** EXPONENT=4                                                       H1430250
      AVC=(0.0,1.0)                                                     H1430260
      AVI=4                                                             H1430270
      BVC=AVC**4                                                        H1430280
      CVC=(0.0,1.0)**4                                                  H1430290
      DVC=(0.0,1.0)**AVI                                                H1430300
      EVC=AVC**AVI                                                      H1430310
      WRITE(NUVI,1432)  BVC,CVC,DVC,EVC                                 H1430320
 1432 FORMAT (2X,2F8.4)                                                 H1430330
C***** EXPONENT=6                                                       H1430340
      AVC   = ( 0.5,0.8660254)                                          H1430350
      AVI=6                                                             H1430360
      BVC=AVC**6                                                        H1430370
      CVC   = ( 0.5,0.8660254) ** 6                                     H1430380
      DVC   = ( 0.5,0.8660254) ** AVI                                   H1430390
      EVC= AVC**AVI                                                     H1430400
      WRITE(NUVI,1432)  BVC,CVC,DVC,EVC                                 H1430410
C***** EXPONENT=8                                                       H1430420
      AVC   = (0.7071068,0.7071068)                                     H1430430
      AVI=8                                                             H1430440
      BVC=AVC**8                                                        H1430450
      CVC   = (0.7071068,0.7071068) ** 8                                H1430460
      DVC   = (0.7071068,0.7071068) ** AVI                              H1430470
      EVC=AVC**AVI                                                      H1430480
      WRITE(NUVI,1432)  BVC,CVC,DVC,EVC                                 H1430490
C***** EXPONENT=10                                                      H1430500
      AVC   = (0.8090170,0.5877853)                                     H1430510
      AVI=10                                                            H1430520
      BVC=AVC**10                                                       H1430530
      CVC   = (0.8090170,0.5877853) ** 10                               H1430540
      DVC   = (0.8090170,0.5877853) ** AVI                              H1430550
      EVC=AVC**AVI                                                      H1430560
      WRITE(NUVI,1432)  BVC,CVC,DVC,EVC                                 H1430570
C*****EXPONENT=20                                                       H1430580
      AVC   = (0.9510565,0.3090170)                                     H1430590
      AVI=20                                                            H1430600
      BVC=AVC**20                                                       H1430610
      CVC   = (0.9510565,0.3090170) ** 20                               H1430620
      DVC   = (0.9510565,0.3090170) ** AVI                              H1430630
      EVC=AVC**AVI                                                      H1430640
      WRITE(NUVI,1432)  BVC,CVC,DVC,EVC                                 H1430650
C***** EXPONENT=40                                                      H1430660
      AVC   = (0.9876883,0.1564345)                                     H1430670
      AVI=40                                                            H1430680
      BVC=AVC**40                                                       H1430690
      CVC   = (0.9876883,0.1564345) ** 40                               H1430700
      DVC   = (0.9876883,0.1564345) ** AVI                              H1430710
      EVC=AVC**AVI                                                      H1430720
      WRITE(NUVI,1432)  BVC,CVC,DVC,EVC                                 H1430730
C***** EXPONENT=60                                                      H1430740
      AVC   = (0.9945219,0.1045285)                                     H1430750
      AVI=60                                                            H1430760
      BVC=AVC**60                                                       H1430770
      CVC   = (0.9945219,0.1045285) ** 60                               H1430780
      DVC   = (0.9945219,0.1045285) ** AVI                              H1430790
      EVC=AVC**AVI                                                      H1430800
      WRITE(NUVI,1432)  BVC,CVC,DVC,EVC                                 H1430810
C*****EXPONENT=80                                                       H1430820
      AVI = 80                                                          H1430830
      AVC   = (0.9969173,0.0784591)                                     H1430840
      BVC=AVC**80                                                       H1430850
      CVC   = (0.9969173,0.0784591) ** 80                               H1430860
      DVC   = (0.9969173,0.0784591) ** AVI                              H1430870
      EVC=AVC**AVI                                                      H1430880
      WRITE(NUVI,1432)  BVC,CVC,DVC,EVC                                 H1430890
C***** EXPONENT=100                                                     H1430900
      AVC   = (0.9980267,0.0627905)                                     H1430910
      AVI=100                                                           H1430920
      BVC=AVC**100                                                      H1430930
      CVC   = (0.9980267,0.0627905) ** 100                              H1430940
      DVC   = (0.9980267,0.0627905) ** AVI                              H1430950
      EVC=AVC**AVI                                                      H1430960
      WRITE(NUVI,1432)  BVC,CVC,DVC,EVC                                 H1430970
      WRITE (NUVI,1433)                                                 H1430980
 1433 FORMAT (//  37H  TEST IS POSITIVE IF NUMBERS PRINTED/2X,          H1430990
     1  26HABOVE ARE CLOSE TO 1.0,0.0)                                  H1431000
      WRITE (NUVI, 1434)                                                H1431010
1434  FORMAT(// 39H  ERROR SHOULD NOT EXCEED + OR - .0001 )             H1431020
C*****    END OF TEST SEGMENT 143                                       H1431030
C*****  WHEN EXECUTING ONLY SEGMENT 143, THE STOP AND END CARDS         H1431040
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=                 H1431050
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H1431060
C=    STOP                                                              H1431070
C=    END                                                               H1431080
C***********************************************************************H1440010
C*****                                                                  H1440020
C*****                       CPXOP - (144)                              H1440030
C*****                                                                  H1440040
C***********************************************************************H1440050
C*****             GENERAL PURPOSE                              ASA REF H1440060
C*****  TO TEST ARITHMETIC OPERATIONS ON COMPLEX NUMBERS.       6.1     H1440070
C*****  OPERATIONS INCLUDE ALL BASIC OPERATORS (+,-,*,**) ACTING        H1440080
C*****  ON COMPLEX NUMBERS                                              H1440090
C*****                                                                  H1440100
C*****  S P E C I F I C A T I O N S   SEGMENT 144                       H1440110
C*****                                                                  H0013935
C*****  WHEN EXECUTING ONLY SEGMENT 144, THE SPECIFICATION STATEMENTS   H0013940
C*****  WHICH APPEAR AS COMMENTS MUST HAVE THE  C=                      H0013945
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H0013950
C*****                                                                  H0013955
C=    INTEGER AVI                                                       H0013960
C=    COMPLEX  AVC, BVC, CVC, DVC, EVC, FVC, GVC,HVC,PVC,RVC,SVC,TVC,UVCH0013965
C*****                                                                  H0013970
C*****  O U T O U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H1440120
C*****                                                                  H0073915
C*****  WHEN EXECUTING ONLY SEGMENT 144, THE FOLLOWING STATEMENT        H0073920
C*****  NUVI = 6  MUST HAVE THE C=  IN COLUMNS  1  AND  2  REMOVED.     H0073925
C*****                                                                  H0073930
C=    NUVI = 6                                                          H0073935
C*****                                                                  H0073940
      WRITE (NUVI, 1441)                                                H1440130
 1441  FORMAT(1H1,1X,32HCPXOP - (144) COMPLEX OPERATIONS//2X,           H1440140
     111HASA REF 6.1//2X,7HRESULTS//)                                   H1440150
      AVC = (0.9396926,0.3420201)                                       H1440160
      BVC = (1.2817127,0.5976725)                                       H1440170
      CVC = (0.0, 1.4142136)                                            H1440180
      DVC = (0.7071068, 0.7071068)                                      H1440190
      EVC = (1.0986841, 0.4550899)                                      H1440200
      AVI = 2                                                           H1440210
      RVC=(AVC*BVC+(0.9396926,0.3420201)*BVC+AVC*(1.2817127,0.5976725)- H1440220
     1(0.9396926,0.3420201)*(1.2817127,0.5976725)+CVC/DVC+(0.0,1.4142136H1440230
     2)/DVC+CVC/(0.7071068,0.7071068)-(0.0,1.4142136)/(0.7071068,       H1440240
     3 0.7071068)+EVC**2-EVC**AVI+(1.0986841,0.4550899)**2+(1.0986841,  H1440250
     4 0.4550899)**AVI)**2/(0.0, 72.0)                                  H1440260
      FVC=(0.0,4.0)                                                     H1440270
      GVC=(0.43301,0.3)                                                 H1440280
      HVC=(0.43301,0.2)                                                 H1440290
      PVC=(1.73204,1.0)                                                 H1440300
      SVC=FVC/((GVC+HVC)*(PVC**2))                                      H1440310
      TVC=(0.0,4.0)/(((0.43301,0.3)+(0.43301,0.2))*((1.73204,1.0)**2))  H1440320
      UVC=FVC/((GVC+(0.43301,0.2))*(PVC**2))                            H1440330
      WRITE (NUVI,1442) RVC,SVC,TVC,UVC                                 H1440340
1442  FORMAT ( 4(2X,2F8.4/) /37H  TEST IS POSITIVE IF NUMBERS PRINTED / H1440350
     12X, 17HABOVE ARE 1.0,0.0 )                                        H1440360
      WRITE (NUVI, 1443)                                                H1440370
1443  FORMAT(// 39H  ERROR SHOULD NOT EXCEED + OR - .0001 )             H1440380
C*****    END OF TEST SEGMENT 144                                       H1440390
C*****  WHEN EXECUTING ONLY SEGMENT 144, THE STOP AND END CARDS         H1440400
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=                 H1440410
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H1440420
C=    STOP                                                              H1440430
C=    END                                                               H1440440
C***********************************************************************H1450010
C*****                                                                  H1450020
C*****                      CREAD-(145)                                 H1450030
C*****                                                                  H1450040
C***********************************************************************H1450050
C*****  GENERAL PURPOSE                                         ASA REF H1450060
C*****  TO TEST ADDITION AND SUBTRACTION OF COMPLEX               6.1   H1450070
C*****  AND REAL NUMBERS                                                H1450080
C*****                                                                  H1450090
C*****  S P E C I F I C A T I O N S   SEGMENT 145                       H1450100
C*****                                                                  H0013975
C*****  WHEN EXECUTING ONLY SEGMENT 145, THE SPECIFICATION STATEMENTS   H0013980
C*****  WHICH APPEAR AS COMMENTS MUST HAVE THE  C=                      H0013985
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H0013990
C*****                                                                  H0013995
C=    COMPLEX AVC,BAVC,CAVC,DAVC,ASVC,BSVC,CSVC,AAVC                    H0014000
C=   2 ,       DSVC,AAAVC,ABAVC,ACAVC,ADAVC,AASVC,ABSVC,ACSVC,ADSVC     H0014005
C*****                                                                  H0014010
C*****  O U T O U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H1450110
C*****                                                                  H0073945
C*****  WHEN EXECUTING ONLY SEGMENT 145, THE FOLLOWING STATEMENT        H0073950
C*****  NUVI = 6  MUST HAVE THE C=  IN COLUMNS  1  AND  2  REMOVED.     H0073955
C*****                                                                  H0073960
C=    NUVI = 6                                                          H0073965
C*****                                                                  H0073970
      WRITE (NUVI, 1450)                                                H1450120
 1450 FORMAT(1H1,1X,38HCREAD - (145) ADDITION AND SUBTRACTION/          H1450130
     1 10X,27HOF COMPLEX AND REAL NUMBERS//2X,                          H1450140
     1 12HASA REF. 6.1//2X,7HRESULTS//)                                 H1450150
      AVC=(5.4,7.5)                                                     H1450160
      AVS=4.2                                                           H1450170
C***** ADDITION AND SUBTRACTION OF 2 NUMBERS                            H1450180
      AAVC=AVC-AVS                                                      H1450190
      BAVC=(5.4,7.5)-AVS                                                H1450200
      CAVC=AVC-4.2                                                      H1450210
      DAVC=(5.4,7.5)-4.2                                                H1450220
      ASVC=AVC+AVS                                                      H1450230
      BSVC=(5.4,7.5)+AVS                                                H1450240
      CSVC=AVC+4.2                                                      H1450250
      DSVC=(5.4,7.5)+4.2                                                H1450260
C***** ADDITION AND SUBTRACTION OF 3 NUMBERS                            H1450270
      AAAVC=AVC-AVS-AAVC                                                H1450280
      ABAVC=(5.4,7.5)-AVS-BAVC                                          H1450290
      ACAVC=AVC-4.2-(1.2,7.5)                                           H1450300
      ADAVC=(5.4,7.5)-4.2-(1.2,7.5)                                     H1450310
      AASVC=AVC+AVS-ASVC                                                H1450320
      ABSVC=(5.4,7.5)+AVS-BSVC                                          H1450330
      ACSVC=AVC+4.2-(9.6,7.5)                                           H1450340
      ADSVC=(5.4,7.5)+4.2-(9.6,7.5)                                     H1450350
      WRITE(NUVI,1451)ABAVC,ACAVC,ADAVC,AASVC,ABSVC,ACSVC,ADSVC,AAAVC   H1450360
1451  FORMAT( 2X, 2F8.4)                                                H1450370
C***** ADDITION AND SUBTRACTION OF 7 NUMBERS                            H1450380
      ADSVC=AVC-(5.4,7.5)+AVS-4.2+ASVC-3.2-(6.4,7.5)                    H1450390
      WRITE(NUVI,1452) ADSVC                                            H1450400
 1452 FORMAT(2X,2F8.4//37H  TEST IS POSITIVE IF NUMBERS PRINTED/2X,     H1450410
     1 17HABOVE ARE 0.0,0.0)                                            H1450420
C*****    END OF TEST SEGMENT 145                                       H1450430
C*****  WHEN EXECUTING ONLY SEGMENT 145, THE STOP AND END CARDS         H1450440
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=                 H1450450
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H1450460
C=    STOP                                                              H1450470
C=    END                                                               H1450480
C***********************************************************************H1460010
C*****                                                                  H1460020
C*****                       CREMU - (146)                              H1460030
C*****                                                                  H1460040
C***********************************************************************H1460050
C*****             GENERAL PURPOSE                              ASA REF H1460060
C*****    TO TEST MULTIPLICATION OF COMPLEX NUMBERS BY            6.1   H1460070
C*****    REAL NUMBERS                                                  H1460080
C*****                                                                  H1460090
C*****  S P E C I F I C A T I O N S   SEGMENT 146                       H1460100
C*****                                                                  H0014015
C*****  WHEN EXECUTING ONLY SEGMENT 146, THE SPECIFICATION STATEMENTS   H0014020
C*****  WHICH APPEAR AS COMMENTS MUST HAVE THE  C=                      H0014025
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H0014030
C*****                                                                  H0014035
C=    COMPLEX AVC,BVC,     MAVC,MBVC,MCVC,MDVC                          H0014040
C*****                                                                  H0014045
C*****  O U T O U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H1460110
C*****                                                                  H0073975
C*****  WHEN EXECUTING ONLY SEGMENT 146, THE FOLLOWING STATEMENT        H0073980
C*****  NUVI = 6  MUST HAVE THE C=  IN COLUMNS  1  AND  2  REMOVED.     H0073985
C*****                                                                  H0073990
C=    NUVI = 6                                                          H0073995
C*****                                                                  H0074000
      WRITE (NUVI, 1461)                                                H1460120
 1461 FORMAT(1H1,1X,39HCREMU - (146) MULTIPLICATION OF COMPLEX/16X,     H1460130
     1 7HBY REAL   //2X,                                                H1460140
     2 11HASA.REF.6.1//2X,7HRESULTS//)                                  H1460150
C*****MULTIPLICATION OF A COMPLEX NUMBER BY A REAL NUMBER               H1460160
      AVC=(1.6,3.2)                                                     H1460170
      AVS=0.625                                                         H1460180
      MAVC=AVC*AVS                                                      H1460190
      MBVC=(1.6,3.2)*AVS                                                H1460200
      MCVC=AVC*0.625                                                    H1460210
      MDVC=(1.6,3.2)*0.625                                              H1460220
      WRITE (NUVI,1463) MAVC,MBVC,MCVC,MDVC                             H1460230
1463  FORMAT(4(2X,2F8.4/)//37H  TEST IS POSITIVE IF NUMBERS PRINTED/,2X,H1460240
     417HABOVE ARE 1.0,2.0 )                                            H1460250
C*****MULTIPLICATION OF 4 TERMS                                         H1460260
      AVS=4.0                                                           H1460270
      BVS=0.25                                                          H1460280
      AVC=(0.93969,0.34202)                                             H1460290
      BVC=(1.28168,0.59764)                                             H1460300
      MAVC=AVS*AVC*BVS*BVC                                              H1460310
      MBVC=4.0*BVS*AVC*BVC                                              H1460320
      MCVC=4.0*BVS*(0.93969,0.34202)*BVC                                H1460330
      MDVC=4.0*0.25*(0.93969,0.34202)*(1.28168,0.59764)                 H1460340
      WRITE (NUVI,1462) MAVC,MBVC,MCVC,MDVC                             H1460350
 1462 FORMAT(//4(2X,2F8.4/)//37H  TEST IS POSITIVE IF NUMBERS PRINTED/  H1460360
     12X,17HABOVE ARE 1.0,1.0)                                          H1460370
      WRITE (NUVI, 1464)                                                H1460380
1464  FORMAT(// 39H  ERROR SHOULD NOT EXCEED + OR - .0001 )             H1460390
C*****    END OF TEST SEGMENT 146                                       H1460400
C*****  WHEN EXECUTING ONLY SEGMENT 146, THE STOP AND END CARDS         H1460410
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=                 H1460420
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H1460430
C=    STOP                                                              H1460440
C=    END                                                               H1460450
C***********************************************************************H1470010
C*****                                                                  H1470020
C*****                       CREDV - (147)                              H1470030
C*****                                                                  H1470040
C***********************************************************************H1470050
C*****             GENERAL PURPOSE                              ASA REF H1470060
C*****  TO TEST DIVISION OF REAL (COMPLEX) NUMBERS BY             6.1   H1470070
C*****  COMPLEX (REAL) NUMBERS                                          H1470080
C*****                                                                  H1470090
C*****  S P E C I F I C A T I O N S   SEGMENT 147                       H1470100
C*****                                                                  H0014050
C*****  WHEN EXECUTING ONLY SEGMENT 147, THE SPECIFICATION STATEMENTS   H0014055
C*****  WHICH APPEAR AS COMMENTS MUST HAVE THE  C=                      H0014060
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H0014065
C*****                                                                  H0014070
C=    COMPLEX AVC,DAVC,DBVC,DCVC,DDVC                                   H0014075
C*****                                                                  H0014080
C*****  O U T O U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H1470110
C*****                                                                  H0074005
C*****  WHEN EXECUTING ONLY SEGMENT 147, THE FOLLOWING STATEMENT        H0074010
C*****  NUVI = 6  MUST HAVE THE C=  IN COLUMNS  1  AND  2  REMOVED.     H0074015
C*****                                                                  H0074020
C=    NUVI = 6                                                          H0074025
C*****                                                                  H0074030
      WRITE (NUVI, 1471)                                                H1470120
1471  FORMAT (1H1,1X,33HCREDV - (147) DIVISION OF COMPLEX/16X,16HAND REAH1470130
     1L NUMBERS//2X,11HASA REF 6.1//2X,7HRESULTS//)                     H1470140
C*****DIVISION OF REAL BY COMPLEX                                       H1470150
      AVS=2.0                                                           H1470160
      AVC=(1.0, -1.0)                                                   H1470170
      DAVC=AVS/AVC                                                      H1470180
      DBVC=2.0/AVC                                                      H1470190
      DCVC=AVS/(1.0, -1.0)                                              H1470200
      DDVC=2.0/(1.0, -1.0)                                              H1470210
      WRITE (NUVI,1473) DAVC,DBVC,DCVC,DDVC                             H1470220
1473  FORMAT( 2X, 2F8.4)                                                H1470230
C*****DIVISION OF COMPLEX BY REAL                                       H1470240
      AVS=2.5463                                                        H1470250
      AVC=(2.5463,2.5463)                                               H1470260
      DAVC=AVC/AVS                                                      H1470270
      DBVC=(2.5463,2.5463)/AVS                                          H1470280
      DCVC=AVC/2.5463                                                   H1470290
      DDVC=(2.5463,2.5463)/2.5463                                       H1470300
      WRITE (NUVI,1472) DAVC,DBVC,DCVC,DDVC                             H1470310
1472  FORMAT (4(2X,2F8.4/)//37H  TEST IS POSITIVE IF NUMBERS PRINTED/   H1470320
     1 2X,17HABOVE ARE 1.0,1.0)                                         H1470330
      WRITE (NUVI, 1474)                                                H1470340
1474  FORMAT(// 39H  ERROR SHOULD NOT EXCEED + OR - .0001 )             H1470350
C*****    END OF TEST SEGMENT 147                                       H1470360
C*****  WHEN EXECUTING ONLY SEGMENT 147, THE STOP AND END CARDS         H1470370
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=                 H1470380
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H1470390
C=    STOP                                                              H1470400
C=    END                                                               H1470410
C***********************************************************************H1480010
C*****                                                                  H1480020
C*****                       CREOP - (148)                              H1480030
C*****                                                                  H1480040
C***********************************************************************H1480050
C*****                GENERAL PURPOSE                           ASA REF H1480060
C*****   TO TEST COMBINED OPERATIONS ON COMPLEX AND REAL NUMBERS    6.1 H1480070
C*****DIVISION OF TWO POLYNOMIALS                                       H1480080
C*****                                                                  H1480090
C*****  S P E C I F I C A T I O N S   SEGMENT 148                       H1480100
C*****                                                                  H0014085
C*****  WHEN EXECUTING ONLY SEGMENT 148, THE SPECIFICATION STATEMENTS   H0014090
C*****  WHICH APPEAR AS COMMENTS MUST HAVE THE  C=                      H0014095
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H0014100
C*****                                                                  H0014105
C=    INTEGER AVI                                                       H0014110
C=    COMPLEX AVC,BVC,CVC,DVC,RVC                                       H0014115
C*****                                                                  H0014120
C*****  O U T O U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H1480110
C*****                                                                  H0074035
C*****  WHEN EXECUTING ONLY SEGMENT 148, THE FOLLOWING STATEMENT        H0074040
C*****  NUVI = 6  MUST HAVE THE C=  IN COLUMNS  1  AND  2  REMOVED.     H0074045
C*****                                                                  H0074050
C=    NUVI = 6                                                          H0074055
C*****                                                                  H0074060
      WRITE (NUVI, 1481)                                                H1480120
 1481 FORMAT(1H1,1X,36HCREOP - (148) OPERATIONS ON REAL AND/16X,15HCOMPLH1480130
     1EX NUMBERS//  2X,12HASA REF. 6.1//2X, 7HRESULTS//)                H1480140
      AVC=(1.0,1.0)                                                     H1480150
      AVS=1.0                                                           H1480160
      BVS = 2.0                                                         H1480170
      BVC=(1.0,-1.0)                                                    H1480180
      RVC = (BVS + AVC *(1.+AVC * (-1.+(1.0,1.0)*(-1. +AVC))))/         H1480190
     1 (4.0+BVC*(2.0+BVC*(-AVS+BVC*(0.5+BVC))))                         H1480200
      WRITE (NUVI,1483) RVC                                             H1480210
1483  FORMAT(             2X,2F8.4//37H  TEST IS POSITIVE IF NUMBERS PRIH1480220
     3NTED/2X,18HABOVE ARE 2.0,-1.0//)                                  H1480230
C*****COMPLEX ARITHMETIC EXPRESSION                                     H1480240
      AVC=(1.60,3.2)                                                    H1480250
      AVS=0.625                                                         H1480260
      BVS=2.0                                                           H1480270
      BVC=(1.0,-1.0)                                                    H1480280
      CVS=2.5                                                           H1480290
      CVC=(2.5,2.5)                                                     H1480300
      DVC = (1.09866,0.45508)                                           H1480310
      AVI = 2                                                           H1480320
      RVC=(AVC*AVS+(1.6,3.2)*AVS-AVC*0.625-(1.6,3.2)*0.625+BVS/BVC      H1480330
     1-BVS/(1.0,-1.0)+2.0/BVC+2.0/(1.0,-1.0)+CVC/CVS-(2.5,2.5)/CVS+     H1480340
     2CVC/2.5+(2.5,2.5)/2.5+DVC**AVI-(1.09866,0.45508)**2+DVC**2+       H1480350
     3(1.09866,0.45508)**AVI)**2/(0.0,72.0)                             H1480360
      WRITE (NUVI,1482) RVC                                             H1480370
 1482 FORMAT(2X,2F8.4//   37H  TEST IS POSITIVE IF NUMBERS PRINTED/2X,  H1480380
     1 17HABOVE ARE 1.0,0.0)                                            H1480390
      WRITE (NUVI, 1484)                                                H1480400
1484  FORMAT(// 39H  ERROR SHOULD NOT EXCEED + OR - .0001 )             H1480410
C*****    END OF TEST SEGMENT 148                                       H1480420
C*****  WHEN EXECUTING ONLY SEGMENT 148, THE STOP AND END CARDS         H1480430
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=                 H1480440
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H1480450
C=    STOP                                                              H1480460
C=    END                                                               H1480470
C***********************************************************************H1490010
C*****                                                                  H1490020
C*****                       MISC3 - (149)                              H1490030
C*****                                                                  H1490040
C***********************************************************************H1490050
C*****                GENERAL PURPOSE                           ASA REF H1490060
C*****   TO TEST EFFECT OF BLANKS WITHIN STATEMENT,             3.1.4.1 H1490070
C*****   CONTINUATION OF STATEMENT TO MAX.NO.OF LINES,         3.2.4,3.3H1490080
C*****   AND USE OF SPECIAL CHARACTERS TO INDICATE CONTINUATION   3.2.4 H1490090
C*****   LINE -                                                         H1490100
C*****   FOR BASIC INTEGERS AND REAL NUMBERS                            H1490110
C*****                                                                  H1490120
C*****  S P E C I F I C A T I O N S   SEGMENT 149                       H1490130
C*****                                                                  H0014125
C*****  WHEN EXECUTING ONLY SEGMENT 149, THE SPECIFICATION STATEMENTS   H0014130
C*****  WHICH APPEAR AS COMMENTS MUST HAVE THE  C=                      H0014135
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H0014140
C*****                                                                  H0014145
C=    DIMENSION A1S(5),A2S(2,2)                                         H0014150
C=    INTEGER I1I(5),I2I(2,2)                                           H0014155
C*****                                                                  H0014160
C*****  O U T O U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H1490140
C*****                                                                  H0074065
C*****  WHEN EXECUTING ONLY SEGMENT 149, THE FOLLOWING STATEMENT        H0074070
C*****  NUVI = 6  MUST HAVE THE C=  IN COLUMNS  1  AND  2  REMOVED.     H0074075
C*****                                                                  H0074080
C=    NUVI = 6                                                          H0074085
C*****                                                                  H0074090
      WRITE (NUVI,1490)                                                 H1490150
1490  FORMAT(1H1,1X,37HMISC3 - (149) EFFECT OF BLANKS WITHIN/16X,       H1490160
     122HSTMNT AND CONTINUATION/16X,20HOF STMNT TO 20 LINES//           H1490170
     239H  ASA REFS. - 3.1.4.1  3.2.4.3.3  3.2.4//2X,7HRESULTS  )       H1490180
      J  A  C   V  I        =              1                            H1490190
      I                                                                 H1490200
     =1                                                                 H1490210
     +I                                                                 H1490220
     -(                                                                 H1490230
     *2                                                                 H1490240
     /)                     =2                                          H1490250
      I     2I(   2  ,  1)   =   3                                      H1490260
      A   CV     S    =    -   1  .0   E    0                           H1490270
      A   1   S   (    2)     =     -2     00  .  E   -  2              H1490280
      A   2   S   (   2    ,   1  )    =   -  .0 3    E  +  2           H1490290
      K   B                                                             H1490300
     *        CVI                                                       H1490310
     (                 =                                                H1490320
     )                  J     A                                         H1490330
     $                   C           V                                  H1490340
     .                            I                                     H1490350
     ,                                 +         I                      H1490360
     /                                             1    I               H1490370
     =                                                     (   2        H1490380
     1                                                          )       H1490390
     2                                                                 +H1490400
     3I                                                                 H1490410
     4            2                                                     H1490420
     5                  I                                               H1490430
     6                       (                                          H1490440
     7                                 2                                H1490450
     8   ,                                                              H1490460
     9                                     1                            H1490470
     A                                     )                            H1490480
     B                                                 -         6      H1490490
      C             M                                                   H1490500
     =           A                                                      H1490510
     ,                  V       S                                       H1490520
     (                         =                                        H1490530
     $                             A                                    H1490540
     *                                      C                           H1490550
     .                                                 V                H1490560
     )                                                                 SH1490570
     /+                                                                 H1490580
     1    A            1                                                H1490590
     2                   S                                              H1490600
     3                                                                 (H1490610
     42)                                                               +H1490620
     5            A                                                     H1490630
     6                  2                                               H1490640
     7                            S          (                          H1490650
     8                     2                        ,          1        H1490660
     9)                                                                 H1490670
     A                +                                                 H1490680
     B                           6       .                 0            H1490690
      W     RI  T  E     (NU  VI  , 1 49 1 ) KB CVI  , CMA  VS          H1490700
1 491 F O RM A T (//I10//F11.1// 2 X, 35HTEST IS POSITIVE IF NUMBERS PRIH1490710
     1NTED/  2    X,    1   1HABOVE ARE 0)                              H1490720
C*****    END OF TEST SEGMENT 149                                       H1490730
C*****  WHEN EXECUTING ONLY SEGMENT 149, THE STOP AND END CARDS         H1490740
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=                 H1490750
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H1490760
C=    STOP                                                              H1490770
C=    END                                                               H1490780
C***********************************************************************H1500010
C*****                                                                  H1500020
C*****                       MISC4 - (150)                              H1500030
C*****                                                                  H1500040
C***********************************************************************H1500050
C*****                GENERAL PURPOSE                           ASA REF H1500060
C*****   TO TEST EFFECT OF BLANKS WITHIN STATEMENT,             3.1.4.1 H1500070
C*****   CONTINUATION OF STATEMENT TO 20 LINES,                3.2.4.3.3H1500080
C*****   AND USE OF SPECIAL CHARACTERS TO INDICATE CONTINUATION   3.2.4 H1500090
C*****  CONTINUATION LINE CAN CONTAIN FORTRAN CHARACTERS                H1500100
C*****  (OTHER THAN C IN COLUMN 1) IN COLUMNS 1 THRU 5 (CLARIFICATION 3)H1500110
C*****                                                                  H1500120
C*****  S P E C I F I C A T I O N S   SEGMENT 150                       H1500130
C*****                                                                  H0014165
C*****  WHEN EXECUTING ONLY SEGMENT 150, THE SPECIFICATION STATEMENTS   H0014170
C*****  WHICH APPEAR AS COMMENTS MUST HAVE THE  C=                      H0014175
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H0014180
C*****                                                                  H0014185
C=    INTEGER AVI                                                       H0014190
C=    COMPLEX AVC,BVC,CVC,DVC,RVC                                       H0014195
C*****                                                                  H0014200
C*****  O U T O U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H1500140
C*****                                                                  H0074095
C*****  WHEN EXECUTING ONLY SEGMENT 150, THE FOLLOWING STATEMENT        H0074100
C*****  NUVI = 6  MUST HAVE THE C=  IN COLUMNS  1  AND  2  REMOVED.     H0074105
C*****                                                                  H0074110
C=    NUVI = 6                                                          H0074115
C*****                                                                  H0074120
      WRITE (NUVI, 1500)                                                H1500150
1 500 F  O  RM  A   T(  1   H1  ,   1   X   ,  13   HMISC4 - (150)      H1500160
     X,1X,  2 3  HEFFECT OF BLANKS WITHIN    /   16X,   22HSTMNT AND CONH1500170
     YTINUATION/ 16X,  20HOF STMNT TO 20 LINES//                        H1500180
     I39H  ASA REFS. - 3.1.4.1  3.2.4.3.3  3.2.4//2X,7HRESULTS//)       H1500190
      AVC = (1   .0   ,  1    .0)                                       H1500200
      AVS = 1.      0                                                   H1500210
      B V S      =                2 .                    0              H1500220
      BVC=   (1 .0   ,-  1 .0)                                          H1500230
      RVC = (B VS +A  V   C*(  1 . +A VC *(  - 1.+    (1    .0,   1     H1500240
     T.  0   )   *(    -     1  .0+   A  V     C )   ))  )   /(         H1500250
     U4  .0   +     BV    C   *     (2    .   0    +    BVC     *       H1500260
     V(   -    A   V      S   + B  V  C   *(     0   .  5   +  B        H1500270
     WV   C  )     )    )   )                                           H1500280
      RVC       =            RV     C      +(-2.0,      +1     .0)      H1500290
      W   RI   T E      (N  UV   I ,  15  02   )     R    VC            H1500300
1502  FORMAT( 2X, 2F8.4)                                                H1500310
C*****COMPLEX ARITHMETIC EXPRESSION                                     H1500320
C*****  STATEMENT LABEL NOT REFERENCED                              3.4 H1500330
1503  A                                                                 H1500340
     +VNPL                                                                 H1500350
     -C                                                                 H1500360
     *    =                                                             H1500370
     /     (                                                            H1500380
     (1                                                                 H1500390
     ).                                                                 H1500400
     ,6                                                                 H1500410
     .0                                                                 H1500420
     I,                                                                 H1500430
     J3                                                                 H1500440
     K.                                                                 H1500450
     L2                                                                 H1500460
     M                         )                                        H1500470
C*****  CONTINUE STATEMENT WITH NO LABEL                            3.4 H1500480
      CONTINUE                                                          H1500490
      AVS = 0.625                                                       H1500500
      BVS = 2.0                                                         H1500510
      BVC = (1.0,-1.0)                                                  H1500520
      CVS = 2.5                                                         H1500530
      CVC = (2.5,2.5)                                                   H1500540
      DVC = (1.0986841, 0.4550899)                                      H1500550
      AVI = 2                                                           H1500560
      RVC                       =                                       H1500570
     B(AVC*AVS                                                          H1500580
     C+(1.6,3.2)                                                        H1500590
     D*AVS-AVC                                                          H1500600
     E*0.625                                                            H1500610
     F-(1.6,3.2)                                                        H1500620
     G*0.625                                                            H1500630
     H+BVS/BVC                                                          H1500640
     I-BVS/(1.0,-1.0)                                                   H1500650
     J+2.0/BVC+2.0/                                                     H1500660
     K(1.0,-1.0)+CVC/CVS                                                H1500670
     L-(2.5,2.5)/CVS+CVC/2.5                                            H1500680
     M+(2.5,2.5)/2.5+DVC**AVI                                           H1500690
     N-(1.0986841,0.4550899)**2                                         H1500700
     O+DVC**2                                                           H1500710
     P+                                                                 H1500720
     Q(1.0986841,0.4550899)                                             H1500730
     R**AVI)                                                            H1500740
     S**2/(0.0,72.0)                                                    H1500750
     T       -(1.0,0.0)                                                 H1500760
      W   R    I  T   E   (  N U V I  ,    1  5 0 1) R  V  C            H1500770
15 01 FORM  AT(/          /2     X  ,  2    F      8      .          4  H1500780
     Z/ /  3      7H  TEST IS POSITIVE IF NUMBERS PRINTED/    2X        H1500790
     =,   1   7     HABOVE ARE 0.0,0.0       )                          H1500800
C*****    END OF TEST SEGMENT 150                                       H1500810
C*****  WHEN EXECUTING ONLY SEGMENT 150, THE STOP AND END CARDS         H1500820
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=                 H1500830
C*****  IN COLUMNS  1  AND  2  REMOVED.                                 H1500840
C=    STOP                                                              H1500850
C=    END                                                               H1500860
      STOP                                                              H9999995
      END                                                               H9999999
