C*****    PART4    *****************************************************H0001200
C*****                                                                  H0001205
C*****    ANSI FORTRAN   (X3.9-1966)     TEST PROGRAMS                  H0001210
C*****                                                                  H0001215
C*****    PREPARED BY THE NATIONAL BUREAU OF STANDARDS      VERSION 3   H0001220
C*****                                                                  H0001225
C*****    JUNE 1973                                                     H0001230
C*****                                                                  H0001235
C*****    PART 4  OF 14 PARTS                                           H0001240
C*****                                                                  H0001245
C*****    SEGMENTS INCLUDED                                             H0001250
C*****                                                                  H0001255
C*****      ARFAS - 035 ADDITION AND SUBTRACTION OF DP VALUES           H0001260
C*****                                                                  H0001265
C*****      ARBMI - 036 MULTIPLICATION OF INTEGER VALUES                H0001270
C*****                                                                  H0001275
C*****      ARBMR - 037 MULTIPLICATION OF REAL VALUES                   H0001280
C*****                                                                  H0001285
C*****      ARFMD - 038 MULTIPLICATION OF DOUBLE PRECISION VALUES       H0001290
C*****                                                                  H0001295
C*****      ARBDV - 039 DIVISION OF INTEGER AND REAL VALUES             H0001300
C*****                                                                  H0001305
C*****      ARFDV - 040 DIVISION OF DOUBLE PRECISION VALUES             H0001310
C*****                                                                  H0001315
C*****      ARBEX - 041 EXPONENTIATION OF INTEGER AND REAL VALUES       H0001320
C*****                                                                  H0001325
C*****      ARFEX - 042 EXPONENTIATION OF DOUBLE PRECISION VALUES       H0001330
C*****                                                                  H0001335
C*****      ARBHI - 043 HIERARCHY OF OPERATORS AND PARENTHESES          H0001340
C*****                                                                  H0001345
C*****      SBB67 - 050 SUBSCRIPTS OF INTEGER AND REAL ARRAYS  V,  K    H0001350
C*****                                                                  H0001355
C*****      SBB45 - 051 SUBSCRIPTS OF INT., REAL ARRAYS  V+K, V-K       H0001360
C*****                                                                  H0001365
C*****      SBB13 - 052 SUBSCRIPTS OF INT, REAL ARRAYS C*V, C*V+K, C*V-KH0001370
C*****                                                                  H0001375
C*****      SBF17 - 053 SUBSCRIPTS OF DP ARRAYS V, K, C*V, C*V+K, C*V-K H0001380
C*****                                          V+K, V-K                H0001385
C*****                                                                  H0011200
C*****  THE FOLLOWING SPECIFICATIONS ARE TO BE USED ONLY WHEN SEGMENTS  H0011205
C*****  035, 036, 037, 038, 039, 040, 041, 042, 043, 050, 051, 052, 053 H0011210
C*****  ARE RUN AS ONE MAIN PROGRAM.                                    H0011215
C*****                                                                  H0011220
      INTEGER MCA3I(2,3,3)                                              H0011225
      DOUBLE PRECISION ACVD, BCVD, CCVD, DCVD, CCDVD, DDDVD             H0011230
     1 , EEDVD, FFDVD, GGDVD, HHDVD, AC1D(10), BC2D(7,4), CC3D(7,2,2)   H0011235
     2 , EP1D(43), VTAVD, WTAVD, AADVD                                  H0011240
      DIMENSION A2S(2,2), A3S(3,3,3), AC1S(25), AC2S(5,6)               H0011245
     1 , IAC1I(5), IAC2I(2,7)                                           H0011250
C*****                                                                  H0011255
C*****  END OF SPECIFICATIONS FOR SEGMENTS                              H0011260
C*****  035, 036, 037, 038, 039, 040, 041, 042, 043, 050, 051, 052, 053 H0011265
C***********************************************************************H0350010
C*****                                                                  H0350020
C*****                        ARFAS - (035)                             H0350030
C*****                                                                  H0350040
C***********************************************************************H0350050
C*****  GENERAL PURPOSE                                         ASA REF H0350060
C*****    TEST THAT EXPRESSIONS INVOLVING THE ADDITION AND        6.1   H0350070
C*****    SUBTRACTION (COMBINED) OF DOUBLE PRECISION VALUES             H0350080
C*****    MAY BE FORMED                                                 H0350090
C*****  GENERAL COMMENTS                                                H0350100
C*****    VARIABLES, ARRAY ELEMENTS AND CONSTANTS ARE USED IN A         H0350110
C*****    VARIETY OF COMBINATIONS                                       H0350120
C*****                                                                  H0350130
C*****  S P E C I F I C A T I O N S  SEGMENT 035                        H0350140
C*****                                                                  H0011270
C*****  WHEN EXECUTING ONLY SEGMENT 035, REMOVE THE PRECEDING           H0011275
C*****  SPECIFICATIONS.  THE FOLLOWING SPECIFICATIONS WHICH APPEAR AS   H0011280
C*****  COMMENTS MUST HAVE THE  C=  IN COLUMNS 1 AND 2 REMOVED.         H0011285
C*****                                                                  H0011290
C=    DOUBLE PRECISION ACVD,BCVD,CCVD,DCVD,FFDVD,GGDVD,HHDVD            H0011295
C=   1,AC1D(10),BC2D(7,4),CC3D(7,2,2)                                   H0011300
C*****                                                                  H0011305
C*****  I N P U T - O U T P U T  T A P E  ASSIGNMENT STATEMENTS.        H0350150
      IRVI = 5                                                          H0071200
      NUVI = 6                                                          H0071205
C*****  IDENTIFY THE SOURCE OF THE TEST PROGRAMS                        H0071210
      WRITE(NUVI,0071)                                                  H0071215
0071  FORMAT (41H1 F O R T R A N  T E S T  P R O G R A M S//            H0071220
     1 42H  PREPARED BY NATIONAL BUREAU OF STANDARDS//                  H0071225
     3 37H  FOR USE ON LARGE FORTRAN PROCESSORS  //                     H0071230
     4 42H  IN ACCORDANCE WITH ASA FORTRAN X3.9-1966//                  H0071235
     5 23H  VERSION 3     PART 4 ///)                                   H0071240
C*****  3 OF 6 INPUT CARDS IDENTIFY THE USERS SYSTEM AND COMPILER       H0071245
C       PREPARED BY USER                                                H0071250
C       READ, NO LIST                                                   H0071255
C       PREPARED BY USER                                                H0071260
C       READ, NO LIST                                                   H0071265
C       PREPARED BY USER                                                H0071270
C       READ, NO LIST                                                   H0071275
C     READ(IRVI,0070)                                                   H0071280
C     READ(IRVI,0072)                                                   H0071285
C     READ(IRVI,0073)                                                   H0071290
0070  FORMAT(40H   BASED ON ASA FORTRAN X3.9-1966       /)              H0071295
0072  FORMAT(40H   TEST PROGRAMS                        /)              H0071300
0073  FORMAT(40H   FORTRAN COMPILER                     /)              H0071305
      WRITE(NUVI,0070)                                                  H0071310
      WRITE(NUVI,0072)                                                  H0071315
      WRITE(NUVI,0073)                                                  H0071320
      WRITE (NUVI,350)                                                  H0350160
350   FORMAT (1H1,1X,32HARFAS - (035) D.P. ADD AND SUBTR//2X,           H0350170
     -14HASA REF. - 6.1//2X,7HRESULTS)                                  H0350180
C*****    HEADER FOR SEGMENT 035 WRITTEN                                H0350190
      ACVD = 5.0D0                                                      H0350200
      BCVD = 10.0D-1                                                    H0350210
      CCVD = 10.0D0                                                     H0350220
      DCVD = -0.2D1                                                     H0350230
      AC1D(1)= 300.0D-2                                                 H0350240
      BC2D(6,3) = 400.D-2                                               H0350250
      AC1D(2) = .24816326424816D5                                       H0350260
      BC2D(5,3) = -.12408163212408D5                                    H0350270
      HHDVD = ACVD + BCVD - CCVD + DCVD + 9.0D0 - AC1D(1)               H0350280
      GGDVD = (ACVD + 1.0E0) - 11.0E0 -(DCVD - AC1D(1))                 H0350290
      FFDVD = (6.0D0+(BCVD-(CCVD+DCVD))) + 10.0D-1                      H0350300
      CC3D(6,1,1) = CCVD-DCVD+BC2D(6,3)-ACVD-11.0D0                     H0350310
      CC3D(5,1,2) = AC1D(2) + BC2D(5,3) - 12408.163212408D0             H0350320
      WRITE (NUVI,351) HHDVD, GGDVD, FFDVD, CC3D(6,1,1), CC3D(5,1,2)    H0350330
351   FORMAT (//5(D22.10/)//35H  THE ANSWERS ABOVE SHOULD BE 0 FOR/     H0350340
     1 32H  THIS SEGMENT TO BE SUCCESSFUL./36H  VALUES WITH EXPONENTS LEH0350350
     2SS THAN   /31H  10**(-14) ARE CONSIDERED ZERO)                    H0350360
C*****    END OF TEST SEGMENT 035                                       H0350370
C*****                                                                  H0350380
C*****  WHEN EXECUTING ONLY SEGMENT 035, THE  STOP  AND  END            H0350390
C*****  CARDS, WHICH APPEAR AS COMMENTS, MUST HAVE THE  C=              H0350400
C*****  IN COL  1  AND  2  REMOVED.                                     H0350410
C=    STOP                                                              H0350420
C=    END                                                               H0350430
C***********************************************************************H0360010
C*****                                                                  H0360020
C*****                        ARBMI - (036)                             H0360030
C*****                                                                  H0360040
C***********************************************************************H0360050
C*****  GENERAL PURPOSE                                         ASA REF H0360060
C*****    TEST THAT EXPRESSIONS INVOLVING MULTIPLICATION OF       6.1   H0360070
C*****    INTEGER VALUES MAY BE FORMED.                                 H0360080
C*****  GENERAL COMMENTS                                                H0360090
C*****    INTEGER SUBTRACTION ASSUMED WORKING                           H0360100
C*****  * VARIABLES, ARRAY ELEMENTS AND CONSTANTS ARE USED              H0360110
C*****    IN A VARIETY OF COMBINATIONS.                                 H0360120
C*****                                                                  H0360130
C*****  S P E C I F I C A T I O N S  SEGMENT 036                        H0360140
C*****                                                                  H0011310
C*****  WHEN EXECUTING ONLY SEGMENT 036, THE SPECIFICATION STATEMENTS   H0011315
C*****  WHICH APPEAR AS COMMENTS, MUST HAVE THE  C=  IN COLUMNS         H0011320
C*****  1  AND  2  REMOVED.                                             H0011325
C*****                                                                  H0011330
C=    DIMENSION IAC1I(5), IAC2I(2,7)                                    H0011335
C*****                                                                  H0011340
C*****  O U T P U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H0360150
C*****                                                                  H0071325
C*****  WHEN EXECUTING ONLY SEGMENT 036, THE FOLLOWING STATEMENT        H0071330
C*****  NUVI = 6  MUST HAVE THE  C=  IN COLUMNS 1 AND 2 REMOVED.        H0071335
C*****                                                                  H0071340
C=    NUVI = 6                                                          H0071345
C*****                                                                  H0071350
      WRITE (NUVI,360)                                                  H0360160
360   FORMAT (1H1, 1X,36HARBMI - (036) INTEGER MULTIPLICATION//         H0360170
     116H  ASA REF. - 6.1//2X,7HRESULTS)                                H0360180
C*****    HEADER FOR SEGMENT 036 WRITTEN                                H0360190
      JACVI=1                                                           H0360200
      KBCVI=2                                                           H0360210
      LCCVI=0                                                           H0360220
      MDCVI=-5                                                          H0360230
      IAC1I(2) = -10                                                    H0360240
      IAC2I(1,2) = 3                                                    H0360250
      IHDVI=JACVI*KBCVI                                                 H0360260
      IGDVI=KBCVI*MDCVI*LCCVI                                           H0360270
      IFDVI = MDCVI*JACVI*IAC1I(2)*3                                    H0360280
      IEDVI=-3*JACVI*(-MDCVI)*JACVI*KBCVI                               H0360290
      IDDVI=KBCVI*KBCVI*KBCVI*KBCVI*KBCVI*JACVI                         H0360300
      ICDVI = (-IAC1I(2))*JACVI*KBCVI*JACVI*KBCVI*JACVI*1               H0360310
      IAC2I(1,1)=IAC2I(1,2)*MDCVI*IAC1I(2)*2                            H0360320
      IHDVI = IHDVI - 2                                                 H0360330
      IFDVI = IFDVI - 150                                               H0360340
      IEDVI = IEDVI + 30                                                H0360350
      IDDVI = IDDVI - 32                                                H0360360
      ICDVI = ICDVI - 40                                                H0360370
      IAC2I(1,1) = IAC2I(1,1) - 300                                     H0360380
      WRITE (NUVI,361) IHDVI, IGDVI, IFDVI, IEDVI, IDDVI, ICDVI,        H0360390
     1                 IAC2I(1,1)                                       H0360400
361   FORMAT (//7(I10/)//35H  ALL ABOVE ANSWERS SHOULD BE 0 FOR/        H0360410
     1  31H  THIS SEGMENT TO BE SUCCESSFUL)                             H0360420
C*****    END OF TEST SEGMENT 036                                       H0360430
C*****                                                                  H0360440
C*****  WHEN EXECUTING ONLY SEGMENT 036, THE  STOP  AND  END            H0360450
C*****  CARDS, WHICH APPEAR AS COMMENTS, MUST HAVE THE  C=              H0360460
C*****  IN COL  1  AND  2  REMOVED.                                     H0360470
C=    STOP                                                              H0360480
C=    END                                                               H0360490
C***********************************************************************H0370010
C*****                                                                  H0370020
C*****                        ARBMR - (037)                             H0370030
C*****                                                                  H0370040
C***********************************************************************H0370050
C*****  GENERAL PURPOSE                                         ASA REF H0370060
C*****    TEST THAT EXPRESSIONS INVOLVING MULTIPLICATION OF       6.1   H0370070
C*****    REAL VALUES MAY BE FORMED                                     H0370080
C*****  GENERAL COMMENTS                                                H0370090
C*****    REAL SUBTRACTION ASSUMED WORKING                              H0370100
C*****  * VARIABLES, ARRAY ELEMENTS AND CONSTANTS ARE USED IN A         H0370110
C*****    VARIETY OF COMBINATIONS.                                      H0370120
C*****                                                                  H0370130
C*****  S P E C I F I C A T I O N S  SEGMENT 037                        H0370140
C*****                                                                  H0011345
C*****  WHEN EXECUTING ONLY SEGMENT 037, THE SPECIFICATION STATEMENTS   H0011350
C*****  WHICH APPEAR AS COMMENTS, MUST HAVE THE  C=  IN COLUMNS         H0011355
C*****  1  AND  2  REMOVED.                                             H0011360
C*****                                                                  H0011365
C=    DIMENSION A2S(2,2),AC1S(25)                                       H0011370
C*****                                                                  H0011375
C*****  O U T P U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H0370150
C*****                                                                  H0071355
C*****  WHEN EXECUTING ONLY SEGMENT 037, THE FOLLOWING STATEMENT        H0071360
C*****  NUVI = 6  MUST HAVE THE  C=  IN COLUMNS 1 AND 2 REMOVED.        H0071365
C*****                                                                  H0071370
C=    NUVI = 6                                                          H0071375
C*****                                                                  H0071380
      WRITE (NUVI,370)                                                  H0370160
370   FORMAT (1H1,1X,33HARBMR - (037) REAL MULTIPLICATION//2X,          H0370170
     114HASA REF. - 6.1//2X,7HRESULTS)                                  H0370180
C*****    HEADER FOR SEGMENT 037 WRITTEN                                H0370190
      ACVS = 1.0                                                        H0370200
      BCVS = 0.2E2                                                      H0370210
      CCVS = -1.0                                                       H0370220
      DCVS = 0.0                                                        H0370230
      AC1S(1) = .5E+1                                                   H0370240
      HHDVS=ACVS*BCVS                                                   H0370250
      GGDVS=BCVS*BCVS*1.0                                               H0370260
      FFDVS=2.0*AC1S(1)*ACVS*ACVS                                       H0370270
      EEDVS=ACVS*BCVS*CCVS*DCVS*AC1S(1)                                 H0370280
      DDDVS=AC1S(1)*ACVS*BCVS*1.0E1*ACVS*ACVS                           H0370290
      CCDVS=CCVS*CCVS*CCVS*3.E0*ACVS*ACVS*ACVS                          H0370300
      A2S(1,1) = ACVS*CCVS*2.                                           H0370310
      HHDVS = HHDVS - 20.0                                              H0370320
      GGDVS = GGDVS - 400.0                                             H0370330
      FFDVS = FFDVS - 10.0                                              H0370340
      DDDVS = DDDVS - 1000.0                                            H0370350
      CCDVS = CCDVS + 3.0                                               H0370360
      A2S(1,1) = A2S(1,1) + 2.                                          H0370370
      WRITE (NUVI,371) HHDVS, GGDVS, FFDVS, EEDVS, DDDVS, CCDVS,        H0370380
     1                 A2S(1,1)                                         H0370390
371   FORMAT (//7(F11.1/)//35H  ALL ABOVE ANSWERS SHOULD BE 0 FOR/      H0370400
     1 31H  THIS SEGMENT TO BE SUCCESSFUL)                              H0370410
C*****    END OF TEST SEGMENT 037                                       H0370420
C*****  WHEN EXECUTING ONLY SEGMENT 037, THE STOP AND END CARDS         H0370430
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=  IN COLUMNS     H0370440
C*****  1  AND  2  REMOVED.                                             H0370450
C=    STOP                                                              H0370460
C=    END                                                               H0370470
C***********************************************************************H0380010
C*****                                                                  H0380020
C*****                        ARFMD - (038)                             H0380030
C*****                                                                  H0380040
C***********************************************************************H0380050
C*****  GENERAL PURPOSE                                         ASA REF H0380060
C*****    TEST THAT EXPRESSIONS INVOLVING THE MULTIPLICATION      6.1   H0380070
C*****    OF DOUBLE PRECISION VALUES MAY BE FORMED                      H0380080
C*****  GENERAL COMMENTS                                                H0380090
C*****  * DP ADDITION AND SUBTRACTION ASSUMED WORKING.                  H0380100
C*****  * VARIABLES, ARRAY ELEMENTS AND CONSTANTS ARE USED IN A         H0380110
C*****    VARIETY OF COMBINATIONS.                                      H0380120
C*****                                                                  H0380130
C*****  S P E C I F I C A T I O N S  SEGMENT 038                        H0380140
C*****                                                                  H0011380
C*****  WHEN EXECUTING ONLY SEGMENT 038, THE SPECIFICATION STATEMENTS   H0011385
C*****  WHICH APPEAR AS COMMENTS, MUST HAVE THE  C=  IN COLUMNS         H0011390
C*****  1  AND  2  REMOVED.                                             H0011395
C*****                                                                  H0011400
C=    DOUBLE PRECISION ACVD,BCVD,CCVD,DCVD,EEDVD,DDDVD,CCDVD            H0011405
C=   1,FFDVD, GGDVD,HHDVD,AC1D(10),BC2D(7,4), CC3D(7,2,2)               H0011410
C*****                                                                  H0011415
C*****  O U T P U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H0380150
C*****                                                                  H0071385
C*****  WHEN EXECUTING ONLY SEGMENT 038, THE FOLLOWING STATEMENT        H0071390
C*****  NUVI = 6  MUST HAVE THE  C=  IN COLUMNS 1 AND 2 REMOVED.        H0071395
C*****                                                                  H0071400
C=    NUVI = 6                                                          H0071405
C*****                                                                  H0071410
      WRITE (NUVI,380)                                                  H0380160
380   FORMAT (1H1,1X,33HARFMD - (038) D.P. MULTIPLICATION//  2X,        H0380170
     -15H ASA REF. - 6.1//2X,7HRESULTS)                                 H0380180
C*****    HEADER FOR SEGMENT 038 WRITTEN                                H0380190
      ACVD=1.0D0                                                        H0380200
      BCVD=2.0                                                          H0380210
      CCVD=-30.0D-1                                                     H0380220
      DCVD=1.0D1                                                        H0380230
      AC1D(1) = 1.1D1                                                   H0380240
      CC3D(3,1,2) = .262144D6                                           H0380250
      CC3D(6,1,2) = -2000.D-3                                           H0380260
      CC3D(3,2,2) = 409.6D1                                             H0380270
      HHDVD=ACVD*BCVD                                                   H0380280
      GGDVD=ACVD*0.0D0*CCVD                                             H0380290
      FFDVD = AC1D(1)*ACVD*ACVD*ACVD                                    H0380300
      EEDVD=CCVD*CCVD*ACVD*1.0D0*BCVD                                   H0380310
      DDDVD=ACVD*2.0D1*ACVD*DCVD*1.0E0*CCVD                             H0380320
      CCDVD=ACVD*BCVD*CCVD*CCVD*CCVD*BCVD*ACVD                          H0380330
      BC2D(3,4) = DCVD*(400.D-2)*CC3D(6,1,2)                            H0380340
      BC2D(2,3) = CC3D(3,1,2) * CC3D(3,2,2)                             H0380350
      HHDVD = HHDVD - 2.0D0                                             H0380360
      FFDVD = FFDVD - 11.0D0                                            H0380370
      EEDVD = EEDVD - 18.0D0                                            H0380380
      DDDVD = DDDVD + 600.0D0                                           H0380390
      CCDVD = CCDVD + 108.0D0                                           H0380400
      BC2D(3,4) = BC2D(3,4) -(-80.D0)                                   H0380410
      BC2D(2,3) = BC2D(2,3) - 1.073741824D9                             H0380420
      WRITE (NUVI,381) HHDVD, GGDVD, FFDVD, EEDVD, DDDVD, CCDVD,        H0380430
     1                 BC2D(3,4) , BC2D(2,3)                            H0380440
381   FORMAT (//8(D22.10/)//35H  THE ANSWERS ABOVE SHOULD BE 0 FOR/     H0380450
     1 31H  THIS SEGMENT TO BE SUCCESSFUL)                              H0380460
C*****    END OF TEST SEGMENT 038                                       H0380470
C*****  WHEN EXECUTING ONLY SEGMENT 038, THE STOP AND END CARDS         H0380480
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=  IN COLUMNS     H0380490
C*****  1  AND  2  REMOVED.                                             H0380500
C=    STOP                                                              H0380510
C=    END                                                               H0380520
C***********************************************************************H0390010
C*****                                                                  H0390020
C*****                        ARBDV - (039)                             H0390030
C*****                                                                  H0390040
C***********************************************************************H0390050
C*****                                                                  H0390060
C*****  GENERAL PURPOSE                                         ASA REF H0390070
C*****    TEST BASIC DIVISION,                                  6.1     H0390080
C*****    INTEGER AND REAL (SP) TYPES ONLY                              H0390090
C*****                                                                  H0390100
C*****  S P E C I F I C A T I O N S  SEGMENT 039                        H0390110
C*****                                                                  H0011420
C*****  WHEN EXECUTING ONLY SEGMENT 039, THE SPECIFICATION STATEMENTS   H0011425
C*****  WHICH APPEAR AS COMMENTS, MUST HAVE THE  C=  IN COLUMNS         H0011430
C*****  1  AND  2  REMOVED.                                             H0011435
C*****                                                                  H0011440
C=    DIMENSION A2S(2,2),IAC1I(5),IAC2I(2,7),AC1S(25)                   H0011445
C*****                                                                  H0011450
C*****  O U T P U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H0390120
C*****                                                                  H0071415
C*****  WHEN EXECUTING ONLY SEGMENT 039, THE FOLLOWING STATEMENT        H0071420
C*****  NUVI = 6  MUST HAVE THE  C=  IN COLUMNS 1 AND 2 REMOVED.        H0071425
C*****                                                                  H0071430
C=    NUVI = 6                                                          H0071435
C*****                                                                  H0071440
      WRITE (NUVI,390)                                                  H0390130
390   FORMAT (1H1,1X,30HARBDV - (039) INTEGER AND REAL/15X,             H0390140
     -9H DIVISION//2X,14HASA REF. - 6.1/ /2X,7HRESULTS)                 H0390150
C*****    HEADER FOR SEGMENT 039 WRITTEN                                H0390160
      WRITE (NUVI,391)                                                  H0390170
391   FORMAT   (//2X,22HTEST1 INTEGER DIVISION)                         H0390180
      JACVI=1                                                           H0390190
      KBCVI=2                                                           H0390200
      LCCVI=0                                                           H0390210
      MDCVI=10                                                          H0390220
      IAC1I(2) = 1                                                      H0390230
      IAC2I(1,4) = -8                                                   H0390240
      IHDVI=KBCVI/JACVI                                                 H0390250
      IGDVI=MDCVI/KBCVI/JACVI                                           H0390260
      IFDVI=LCCVI/JACVI/JACVI/1                                         H0390270
      IEDVI = MDCVI/KBCVI/IAC1I(2)/IAC1I(2)/JACVI                       H0390280
      IAC2I(1,2)=IAC2I(1,4)/4/KBCVI                                     H0390290
      IHDVI = IHDVI - 2                                                 H0390300
      IGDVI = IGDVI - 5                                                 H0390310
      IEDVI = IEDVI - 5                                                 H0390320
      IAC2I(1,2) = IAC2I(1,2) + 1                                       H0390330
      WRITE (NUVI,392) IHDVI, IGDVI, IFDVI, IEDVI, IAC2I(1,2)           H0390340
392   FORMAT (//5(I10/))                                                H0390350
      WRITE (NUVI, 393)                                                 H0390360
393   FORMAT  (//2X,19HTEST2 REAL DIVISION)                             H0390370
      ACVS=1.0                                                          H0390380
      BCVS=0.0                                                          H0390390
      CCVS=1.0E1                                                        H0390400
      DCVS=20.0E-1                                                      H0390410
      AC1S(1)=100.0E-2                                                  H0390420
      A2S(1,1) = -200.E-2                                               H0390430
      HHDVS= ACVS/ACVS                                                  H0390440
      GGDVS = CCVS/ACVS/(-ACVS)                                         H0390450
      FFDVS= BCVS/CCVS/DCVS/ACVS                                        H0390460
      EEDVS= CCVS/AC1S(1)/DCVS/(-1.0)/ACVS                              H0390470
      A2S(1,2) = A2S(1,1)/AC1S(1)/ACVS/(-2.0E0)                         H0390480
      HHDVS = HHDVS - 1.0                                               H0390490
      GGDVS = GGDVS + 10.0                                              H0390500
      EEDVS = EEDVS + 5.0                                               H0390510
      A2S(1,2) = A2S(1,2) - 1.                                          H0390520
      WRITE (NUVI,394) HHDVS , GGDVS, FFDVS, EEDVS, A2S(1,2)            H0390530
394   FORMAT (//5(F11.1/)//35H  ALL ABOVE ANSWERS SHOULD BE 0 FOR/      H0390540
     12X,29HTHIS SEGMENT TO BE SUCCESSFUL)                              H0390550
C*****    END OF TEST SEGMENT 039                                       H0390560
C*****  WHEN EXECUTING ONLY SEGMENT 039, THE STOP AND END CARDS         H0390570
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=  IN COLUMNS     H0390580
C*****  1  AND  2  REMOVED.                                             H0390590
C=    STOP                                                              H0390600
C=    END                                                               H0390610
C***********************************************************************H0400010
C*****                                                                  H0400020
C*****                        ARFDV - (040)                             H0400030
C*****                                                                  H0400040
C***********************************************************************H0400050
C*****  GENERAL PURPOSE                                          ASA REFH0400060
C*****    TEST THAT EXPRESSIONS INVOLVING DIVISION OF DOUBLE      6.1   H0400070
C*****    PRECISION VALUES MAY BE FORMED                                H0400080
C*****  GENERAL COMMENTS                                                H0400090
C*****  * DP SUBTRACTION ASSUMED WORKING.                               H0400100
C*****  * VARIABLES, ARRAY ELEMENTS AND CONSTANTS ARE USED IN A         H0400110
C*****    VARIETY OF COMBINATIONS.                                      H0400120
C*****                                                                  H0400130
C*****  S P E C I F I C A T I O N S  SEGMENT 040                        H0400140
C*****                                                                  H0011455
C*****  WHEN EXECUTING ONLY SEGMENT 040, THE SPECIFICATION STATEMENTS   H0011460
C*****  WHICH APPEAR AS COMMENTS, MUST HAVE THE  C=  IN COLUMNS         H0011465
C*****  1  AND  2  REMOVED.                                             H0011470
C*****                                                                  H0011475
C=    DOUBLE PRECISION ACVD,BCVD,CCVD,DCVD,EEDVD,FFDVD,GGDVD,HHDVD      H0011480
C=   1,AC1D(10),BC2D(7,4),CC3D(7,2,2)                                   H0011485
C*****                                                                  H0011490
C*****  O U T P U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H0400150
C*****                                                                  H0071445
C*****  WHEN EXECUTING ONLY SEGMENT 040, THE FOLLOWING STATEMENT        H0071450
C*****  NUVI = 6  MUST HAVE THE  C=  IN COLUMNS 1 AND 2 REMOVED.        H0071455
C*****                                                                  H0071460
C=    NUVI = 6                                                          H0071465
C*****                                                                  H0071470
      WRITE (NUVI,400)                                                  H0400160
  400 FORMAT (1H1,1X,27HARFDV - (040) D.P. DIVISION//                   H0400170
     -16H  ASA REF. - 6.1//2X,7HRESULTS)                                H0400180
C*****    HEADER FOR SEGMENT 040 WRITTEN                                H0400190
      ACVD = 1.0D0                                                      H0400200
      BCVD = 20.0D-1                                                    H0400210
      CCVD = .1D2                                                       H0400220
      DCVD = -10.0                                                      H0400230
      AC1D(1)= 0.0                                                      H0400240
      CC3D(1,2,2) = -.004D3                                             H0400250
      CC3D(1,1,2) = .244140625D-3                                       H0400260
      HHDVD  = BCVD/ACVD                                                H0400270
      CC3D(3,1,2) = .125D0                                              H0400280
      GGDVD  = DCVD/DCVD/ACVD                                           H0400290
      FFDVD  = AC1D(1)/BCVD/ACVD/1.D0/1.D0                              H0400300
      EEDVD = DCVD/BCVD/(-5.0E0)/ACVD/ACVD                              H0400310
      BC2D(4,4) = CC3D(1,2,2)/BCVD/DCVD/.002D2                          H0400320
      BC2D(4,3) = CC3D(1,1,2) / CC3D(3,1,2)                             H0400330
      HHDVD = HHDVD - 2.0D0                                             H0400340
      GGDVD = GGDVD - 1.0D0                                             H0400350
      EEDVD = EEDVD - 1.0D0                                             H0400360
      BC2D(4,4) = BC2D(4,4) - 1.0D0                                     H0400370
      BC2D(4,3) = BC2D(4,3) - 195.3125D-5                               H0400380
      WRITE (NUVI,401) HHDVD,GGDVD,FFDVD,EEDVD,BC2D(4,4) , BC2D(4,3)    H0400390
401   FORMAT (//6(D22.10/)//35H  THE ANSWERS ABOVE SHOULD BE 0 FOR/     H0400400
     1 31H  THIS SEGMENT TO BE SUCCESSFUL)                              H0400410
C*****    END OF TEST SEGMENT 040                                       H0400420
C*****  WHEN EXECUTING ONLY SEGMENT 040, THE STOP AND END CARDS         H0400430
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=  IN COLUMNS     H0400440
C*****  1  AND  2  REMOVED.                                             H0400450
C=    STOP                                                              H0400460
C=    END                                                               H0400470
C***********************************************************************H0410010
C*****                                                                  H0410020
C*****                        ARBEX - (041)                             H0410030
C*****                                                                  H0410040
C***********************************************************************H0410050
C*****                                                                  H0410060
C*****  GENERAL PURPOSE                                         ASA REF H0410070
C*****    TEST THAT EXPRESSIONS INVOLVING INTEGER AND REAL      6.1     H0410080
C*****    EXPONENTIATION MAY BE FORMED                                  H0410090
C*****  GENERAL COMMENTS                                                H0410100
C*****    THE FOLLOWING TESTS ARE MADE -                                H0410110
C*****    INTEGER BY INTEGER GIVING INTEGER                     6.1     H0410120
C*****    REAL (SP) BY INTEGER GIVING REAL (SP)                         H0410130
C*****    REAL (SP) BY REAL (SP) GIVING REAL (SP)                       H0410140
C*****  RESTRICTIONS OBSERVED                                           H0410150
C*****                                                                  H0410160
C*****  S P E C I F I C A T I O N S  SEGMENT 041                        H0410170
C*****                                                                  H0011495
C*****  WHEN EXECUTING ONLY SEGMENT 041, THE SPECIFICATION STATEMENTS   H0011500
C*****  WHICH APPEAR AS COMMENTS, MUST HAVE THE  C=  IN COLUMNS         H0011505
C*****  1  AND  2  REMOVED.                                             H0011510
C*****                                                                  H0011515
C=    DIMENSION A2S(2,2),IAC1I(5),IAC2I(2,7),AC1S(25)                   H0011520
C*****                                                                  H0011525
C*****  O U T P U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H0410180
C*****                                                                  H0071475
C*****  WHEN EXECUTING ONLY SEGMENT 041, THE FOLLOWING STATEMENT        H0071480
C*****  NUVI = 6  MUST HAVE THE  C=  IN COLUMNS 1 AND 2 REMOVED.        H0071485
C*****                                                                  H0071490
C=    NUVI = 6                                                          H0071495
C*****                                                                  H0071500
      WRITE (NUVI,410)                                                  H0410190
410   FORMAT (1H1,1X,34HARBEX - (041) BASIC EXPONENTIATION//            H0410200
     -  2X,15HASA REFS. - 6.1//2X, 7HRESULTS)                           H0410210
C*****    HEADER FOR SEGMENT 041 WRITTEN                                H0410220
      WRITE (NUVI,411)                                                  H0410230
411   FORMAT   (//2X,18HINTEGER BY INTEGER)                             H0410240
      JACVI=1                                                           H0410250
      KBCVI=0                                                           H0410260
      LCCVI=2                                                           H0410270
      MDCVI=-1                                                          H0410280
      IAC1I(2) = 3                                                      H0410290
      IAC2I(1,4) = 3                                                    H0410300
      IHDVI = LCCVI**IAC1I(2)                                           H0410310
      IGDVI=KBCVI**JACVI                                                H0410320
      IFDVI=JACVI**KBCVI                                                H0410330
      IEDVI = MDCVI**IAC1I(2)                                           H0410340
      IDDVI=(LCCVI**LCCVI)**(JACVI**MDCVI)                              H0410350
      IAC2I(1,2) = (LCCVI**IAC2I(1,4))**JACVI                           H0410360
      IHDVI = IHDVI - 8                                                 H0410370
      IFDVI = IFDVI - 1                                                 H0410380
      IEDVI = IEDVI + 1                                                 H0410390
      IDDVI = IDDVI- 4                                                  H0410400
      IAC2I(1,2) = IAC2I(1,2) - 8                                       H0410410
      WRITE (NUVI, 412) IHDVI, IGDVI, IFDVI, IEDVI, IAC2I(1,2)          H0410420
412   FORMAT (//6(I10/))                                                H0410430
      WRITE (NUVI, 413)                                                 H0410440
413   FORMAT  (//2X,25HREAL BY INT, REAL BY REAL)                       H0410450
      ACVS=1.0                                                          H0410460
      BCVS=0.0                                                          H0410470
      CCVS=0.5E0                                                        H0410480
      DCVS = 20.0E-1                                                    H0410490
      AC1S(1)=1.21E0                                                    H0410500
      A2S(1,1) = 300.E-2                                                H0410510
      HHDVS=ACVS**JACVI                                                 H0410520
      GGDVS=BCVS**JACVI                                                 H0410530
      FFDVS=DCVS**IAC1I(2)                                              H0410540
      EEDVS=ACVS**ACVS                                                  H0410550
      DDDVS=AC1S(1)**CCVS                                               H0410560
      CCDVS=(DCVS**1)**(2.0**ACVS)                                      H0410570
      A2S(2,1) = (A2S(1,1)**DCVS)**BCVS                                 H0410580
      HHDVS = HHDVS - 1.0                                               H0410590
      FFDVS = FFDVS - 8.0                                               H0410600
      EEDVS = EEDVS - 1.0                                               H0410610
      DDDVS = DDDVS - 1.1                                               H0410620
      CCDVS = CCDVS - 4.0                                               H0410630
      A2S(2,1) = A2S(2,1) - 1.0                                         H0410640
      WRITE (NUVI,414) HHDVS, GGDVS, FFDVS, EEDVS, DDDVS, CCDVS,A2S(2,1)H0410650
414   FORMAT (//7(F11.1/)//35H  ALL ABOVE ANSWERS SHOULD BE 0 FOR/      H0410660
     12X, 29HTHIS SEGMENT TO BE SUCCESSFUL)                             H0410670
C*****    END OF TEST SEGMENT 041                                       H0410680
C*****  WHEN EXECUTING ONLY SEGMENT 041, THE STOP AND END CARDS         H0410690
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=  IN COLUMNS     H0410700
C*****  1  AND  2  REMOVED.                                             H0410710
C=    STOP                                                              H0410720
C=    END                                                               H0410730
C***********************************************************************H0420010
C*****                                                                  H0420020
C*****                        ARFEX - (042)                             H0420030
C*****                                                                  H0420040
C***********************************************************************H0420050
C*****  GENERAL PURPOSE                                          ASA REFH0420060
C*****    TEST EXPONENTIATION OF DOUBLE PRECISION ITEMS           6.1   H0420070
C*****    THE FOLLOWING TYPES OF DP EXPONENTIATION ARE TESTED -         H0420080
C*****      DP BY REAL GIVING DP                                        H0420090
C*****      REAL BY DP GIVING DP                                        H0420100
C*****      DP BY DP GIVING DP                                          H0420110
C*****  GENERAL COMMENTS                                                H0420120
C*****  * DP ADDITION AND SUBTRACTION ASSUMED WORKING.                  H0420130
C*****  * VARIABLES, ARRAY ELEMENTS AND CONSTANTS ARE USED IN A         H0420140
C*****    VARIETY OF COMBINATIONS.                                      H0420150
C*****  RESTRICTION OBSERVED                                            H0420160
C*****    NEGATIVE VALUED ITEMS ARE NEVER RAISED TO A REAL OR     6.4/12H0420170
C*****    DP EXPONENT                                                   H0420180
C*****                                                                  H0420190
C*****  S P E C I F I C A T I O N S  SEGMENT 042                        H0420200
C*****                                                                  H0011530
C*****  WHEN EXECUTING ONLY SEGMENT 042, THE SPECIFICATION STATEMENTS   H0011535
C*****  WHICH APPEAR AS COMMENTS, MUST HAVE THE  C=  IN COLUMNS         H0011540
C*****  1  AND  2  REMOVED.                                             H0011545
C*****                                                                  H0011550
C=    DOUBLE PRECISION ACVD,BCVD,CCVD,EEDVD,FFDVD,GGDVD,HHDVD           H0011555
C=    DOUBLE PRECISION AC1D(10),BC2D(7,4),CC3D(7,2,2)                   H0011560
C*****                                                                  H0011565
C*****  O U T P U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H0420210
C*****                                                                  H0071505
C*****  WHEN EXECUTING ONLY SEGMENT 042, THE FOLLOWING STATEMENT        H0071510
C*****  NUVI = 6  MUST HAVE THE  C=  IN COLUMNS 1 AND 2 REMOVED.        H0071515
C*****                                                                  H0071520
C=    NUVI = 6                                                          H0071525
C*****                                                                  H0071530
      WRITE (NUVI,420)                                                  H0420220
420   FORMAT (1H1,1X,28HARFEX - (042) EXPONENTIATION//                  H0420230
     -16H  ASA REF. - 6.1//2X,7HRESULTS)                                H0420240
C*****    HEADER FOR SEGMENT 042 WRITTEN                                H0420250
C*****    DEFINE VARIABLES AND ARRAY ELEMENTS                           H0420260
      ACVS=1.0                                                          H0420270
      BCVS=0.0                                                          H0420280
      CCVS=0.5                                                          H0420290
      DCVS=20.0E-1                                                      H0420300
      ACVD = 1.0D0                                                      H0420310
      BCVD = 80.0D-1                                                    H0420320
      CCVD = 0.0                                                        H0420330
      AC1D(1) = 1.0                                                     H0420340
      BC2D(2,4) =  3000.D-3                                             H0420350
      HHDVD = ACVD**BCVS                                                H0420360
      GGDVD = ACVS**ACVD                                                H0420370
      FFDVD = AC1D(1)**BCVD                                             H0420380
      EEDVD = (DCVS**ACVD)** (2.0D0**ACVS)                              H0420390
      CC3D(5,1,2) = BC2D(2,4)**(DCVS**BCVS)                             H0420400
      HHDVD = HHDVD - 1.0D0                                             H0420410
      GGDVD = GGDVD - 1.0D0                                             H0420420
      FFDVD = FFDVD - 1.0D0                                             H0420430
      EEDVD = EEDVD - 4.0D0                                             H0420440
      CC3D(5,1,2) = CC3D(5,1,2) - 3.0D0                                 H0420450
      WRITE (NUVI,421) HHDVD, GGDVD, FFDVD, EEDVD, CC3D(5,1,2)          H0420460
421   FORMAT (//5(D22.10/)//35H  THE ANSWERS ABOVE SHOULD BE 0 FOR/     H0420470
     1 32H  THIS SEGMENT TO BE SUCCESSFUL./36H  VALUES WITH EXPONENTS LEH0420480
     2SS THAN   /31H  10**(-14) ARE CONSIDERED ZERO)                    H0420490
C*****    END OF TEST SEGMENT 042                                       H0420500
C*****  WHEN EXECUTING ONLY SEGMENT 042, THE STOP AND END CARDS         H0420510
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=  IN COLUMNS     H0420520
C*****  1  AND  2  REMOVED.                                             H0420530
C=    STOP                                                              H0420540
C=    END                                                               H0420550
C***********************************************************************H0430010
C*****                                                                  H0430020
C*****                        ARBHI - (043)                             H0430030
C*****                                                                  H0430040
C***********************************************************************H0430050
C*****  GENERAL PURPOSE                                         ASA REF H0430060
C*****    TESTS THAT HIERARCHY OF OPERATORS AND PARENTHESES       6.1/07H0430070
C*****    ARE HANDLED CORRECTLY. OPERATORS SHOULD FOLLOW                H0430080
C*****    THIS ORDER - **           (EXPONENTIATION)              6.4/41H0430090
C*****                  * AND /    (MULTIPLICATION,DIVISION)            H0430100
C*****                  + AND -    (ADDITION,SUBTRACTION)               H0430110
C*****  GENERAL COMMENTS                                                H0430120
C*****  * ONLY INTEGER EXPRESSIONS ARE USED SINCE THIS TEST IS          H0430130
C*****    CONCENTRATING ON OPERATORS AND PARENTHESES                    H0430140
C*****  * ADDITION, SUBTRACTION, MULTIPLICATION, DIVISION,        6.4/49H0430150
C*****    EXPONENTIATION ASSUMED TO FOLLOW LAWS OF                      H0430160
C*****    ASSOCIATION AND COMMUTATION UNLESS PARENTHESES                H0430170
C*****    REGROUP EXPRESSIONS                                           H0430180
C*****  * INTEGER DIVISION MUST BE EVALUATED FROM LEFT TO         6.4/56H0430190
C*****    RIGHT                                                         H0430200
C*****  RESTRICTIONS OBSERVED                                           H0430210
C*****  * ALL ELEMENTS EVALUATED ARE MATHEMATICALLY DEFINED       6.4/16H0430220
C*****  * NO NEGATIVE VALUES ARE RAISED TO A REAL                 6.4/12H0430230
C*****    EXPONENT                                                      H0430240
C*****  * NO ZERO VALUED PRIMARY IS RAISED TO A ZERO              6.4/14H0430250
C*****    VALUED EXPONENT                                               H0430260
C*****                                                                  H0430270
C*****  S P E C I F I C A T I O N S  SEGMENT 043                        H0430280
C*****                                                                  H0011570
C*****  WHEN EXECUTING ONLY SEGMENT 043, THE SPECIFICATION STATEMENTS   H0011575
C*****  WHICH APPEAR AS COMMENTS, MUST HAVE THE  C=  IN COLUMNS         H0011580
C*****  1  AND  2  REMOVED.                                             H0011585
C*****                                                                  H0011590
C=    DIMENSION IAC1I(5),IAC2I(2,7)                                     H0011595
C*****                                                                  H0011600
C*****  O U T P U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H0430290
C*****                                                                  H0071535
C*****  WHEN EXECUTING ONLY SEGMENT 043, THE FOLLOWING STATEMENT        H0071540
C*****  NUVI = 6  MUST HAVE THE  C=  IN COLUMNS 1 AND 2 REMOVED.        H0071545
C*****                                                                  H0071550
C=    NUVI = 6                                                          H0071555
C*****                                                                  H0071560
      WRITE   (NUVI,430)                                                H0430300
430   FORMAT (1H1,1X,36HARBHI - (043) HIERARCHY, PARENTHESES//2X,       H0430310
     1 23HASA REFS. - 6.1 AND 6.4//                                     H0430320
     2 2X, 7HRESULTS)                                                   H0430330
      JACVI = 1                                                         H0430340
      KBCVI = 2                                                         H0430350
      LCCVI = -5                                                        H0430360
      MDCVI = 0                                                         H0430370
      NECVI = 36                                                        H0430380
      IAC1I(2) = 10                                                     H0430390
C*****    TEST THAT ADDITION IS COMMUTATIVE (TEST 1)                    H0430400
      MRRVI = 1                                                         H0430410
      IHDVI = JACVI + KBCVI                                             H0430420
      IGDVI = KBCVI + JACVI                                             H0430430
      IFDVI = IHDVI - IGDVI                                             H0430440
      WRITE (NUVI,431) MRRVI, IFDVI                                     H0430450
C*****    TEST THAT MULTIPLICATION IS COMMUTATIVE (TEST 2)              H0430460
      MRRVI = 2                                                         H0430470
      IHDVI = JACVI * KBCVI                                             H0430480
      IGDVI = KBCVI * JACVI                                             H0430490
      IFDVI = IHDVI - IGDVI                                             H0430500
      WRITE (NUVI,431) MRRVI, IFDVI                                     H0430510
C*****    TEST THAT SUBTRACTION IS COMMUTATIVE (TEST 3)                 H0430520
      MRRVI = 3                                                         H0430530
      IHDVI = KBCVI - JACVI                                             H0430540
      IGDVI = -JACVI + KBCVI                                            H0430550
      IFDVI = IHDVI - IGDVI                                             H0430560
      WRITE (NUVI,431) MRRVI, IFDVI                                     H0430570
C*****    TEST THAT ADDITION IS ASSOCIATIVE (TEST 4)                    H0430580
      MRRVI = 4                                                         H0430590
      IHDVI = (IAC1I(2) + JACVI) + KBCVI                                H0430600
      IGDVI = IAC1I(2) + (JACVI + KBCVI)                                H0430610
      IFDVI = IHDVI - IGDVI                                             H0430620
      WRITE (NUVI,431) MRRVI, IFDVI                                     H0430630
C*****    TEST THAT MULTIPLICATION IS ASSOCIATIVE (TEST 5)              H0430640
      MRRVI = 5                                                         H0430650
      IHDVI = (IAC1I(2) * LCCVI) * KBCVI                                H0430660
      IGDVI = IAC1I(2) * (LCCVI * KBCVI)                                H0430670
      IFDVI = IHDVI - IGDVI                                             H0430680
      WRITE (NUVI,431) MRRVI, IFDVI                                     H0430690
C*****    TEST THAT MULTIPLICATION IS DONE BEFORE ADDITION              H0430700
C*****    OR SUBTRACTION (TEST 6). ANSWER SHOULD BE ZERO                H0430710
      MRRVI = 6                                                         H0430720
      IHDVI = JACVI + KBCVI * LCCVI - 1 + IAC1I(2)                      H0430730
      WRITE (NUVI,431) MRRVI, IHDVI                                     H0430740
C*****    REGROUP TEST 6 EXPRESSION (SLIGHTLY CHANGED) WITH             H0430750
C*****    PARENTHESES.  ANSWERS SHOULD BE NON-ZERO (TEST7).             H0430760
      MRRVI = 7                                                         H0430770
      IGDVI = (JACVI + KBCVI) * LCCVI + 9                               H0430780
      IFDVI = JACVI + KBCVI * (LCCVI + 9)                               H0430790
      IEDVI = (JACVI + KBCVI) * (LCCVI + 9)                             H0430800
      IAC1I(1) = IGDVI + 6                                              H0430810
      IAC1I(3) = IFDVI - 9                                              H0430820
      IAC1I(4) = IEDVI - 12                                             H0430830
      WRITE (NUVI,432) MRRVI, IAC1I(1), IAC1I(3), IAC1I(4)              H0430840
C*****    TEST THAT DIVISION IS DONE BEFORE ADDITION                    H0430850
C*****    AND SUBTRACTION (TEST 8). ANSWER SHOULD BE ZERO.              H0430860
      MRRVI = 8                                                         H0430870
      LCCVI = - 6                                                       H0430880
      IAC1I(2) = 12                                                     H0430890
      IHDVI = LCCVI + IAC1I(2) / KBCVI - LCCVI - 6                      H0430900
      WRITE (NUVI,431) MRRVI, IHDVI                                     H0430910
C*****    REGROUP TEST 8 EXPRESSION WITH PARENTHESES (TEST 9). SECOND   H0430920
C*****    ANSWER SHOULD BE ZERO, OTHERS NON-ZERO.                       H0430930
      MRRVI = 9                                                         H0430940
      IGDVI = (LCCVI + IAC1I(2)) / KBCVI - LCCVI - 6                    H0430950
      IFDVI = LCCVI + IAC1I(2) / (KBCVI - LCCVI - 6)                    H0430960
      IEDVI = (LCCVI + IAC1I(2)) / (KBCVI - LCCVI - 6)                  H0430970
      IAC1I(1) = IGDVI - 3                                              H0430980
      IAC1I(4) = IEDVI - 3                                              H0430990
      WRITE (NUVI,432) MRRVI, IAC1I(1), IAC1I(3), IAC1I(4)              H0431000
C*****    TEST THAT EXPONENTIATION IS DONE BEFORE                       H0431010
C*****    ANY OTHER OPERATION (TEST 10). ANSWERS SHOULD                 H0431020
C*****    BE ZERO.                                                      H0431030
      MRRVI = 10                                                        H0431040
      IHDVI = KBCVI + 3 ** 2 - 11                                       H0431050
      IGDVI = IAC1I(2) * KBCVI ** 3 - 96                                H0431060
      IFDVI = NECVI / LCCVI ** KBCVI - 1                                H0431070
      WRITE (NUVI,432) MRRVI, IHDVI, IGDVI, IFDVI                       H0431080
C*****    REGROUP TEST 10 EXPRESSIONS WITH PARENTHESES (TEST 11)        H0431090
C*****    ANSWERS SHOULD BE NON-ZERO                                    H0431100
      MRRVI = 11                                                        H0431110
      IHDVI = (KBCVI + 3) ** 2 - 11                                     H0431120
      IGDVI = (IAC1I(2) * KBCVI) ** 3 - 80                              H0431130
      IFDVI = (NECVI / LCCVI) ** KBCVI - 1                              H0431140
      IAC1I(1) = IHDVI - 14                                             H0431150
      IAC1I(3) = IGDVI - 13744                                          H0431160
      IAC1I(4) = IFDVI - 35                                             H0431170
      WRITE (NUVI,432) MRRVI, IAC1I(1), IAC1I(3), IAC1I(4)              H0431180
C*****    THE FOLLOWING STATEMENTS INCLUDE AN ADDITIONAL TEST           H0431190
C*****    OF OPERATOR HIERARCHY. A VARIETY OF OPERATORS IS USED         H0431200
C*****    BOTH VARIABLES AND ARRAY ELEMENTS ARE USED.  ALL              H0431210
C*****    ANSWERS SHOULD BE ZERO (TEST 12).                             H0431220
      MRRVI = 12                                                        H0431230
      LCCVI = -5                                                        H0431240
      IAC1I(2) = 10                                                     H0431250
      IEDVI = JACVI+KBCVI*LCCVI-IAC1I(2)/2-IAC1I(2)/2/5+15              H0431260
      IDDVI = KBCVI**3*4 + 162/(3**(KBCVI*2)) + MDCVI-34                H0431270
      IHDVI = KBCVI*(JACVI+KBCVI*(IAC1I(2)-KBCVI)) - 34                 H0431280
      IGDVI = IAC1I(2)/KBCVI+70/(LCCVI*(KBCVI**2+3))-3                  H0431290
      IFDVI = KBCVI*(KBCVI+IAC1I(2)*(KBCVI+3*(JACVI+KBCVI)))-224        H0431300
      IAC1I(1) = KBCVI*(KBCVI+KBCVI*(KBCVI+KBCVI*(KBCVI+KBCVI*          H0431310
     -(KBCVI+KBCVI)))) - 92                                             H0431320
      IAC2I(1,4) = IAC1I(2)+LCCVI+JACVI+KBCVI+KBCVI-JACVI-9             H0431330
      IAC2I(1,2) = IAC1I(2)/(LCCVI+JACVI+KBCVI)*(KBCVI**                H0431340
     1(KBCVI-JACVI))+10                                                 H0431350
      WRITE (NUVI,433) MRRVI, IEDVI, IDDVI, IHDVI, IGDVI, IFDVI,        H0431360
     1                 IAC1I(1),IAC2I(1,4),IAC2I(1,2)                   H0431370
C*****  EVALUATION MAY PROCEED ACCORDING TO ANY VALID FORMATION SEQUENCEH0431380
C*****  EVALUATION OF INTEGER TERM CONTAINING DIVISION                  H0431390
      MRRVI = 13                                                        H0431400
      NECVI = 7                                                         H0431410
      KBCVI = 2                                                         H0431420
      LCCVI = 4                                                         H0431430
      IGDVI = NECVI/KBCVI * LCCVI                                       H0431440
      IFDVI = LCCVI * NECVI / KBCVI                                     H0431450
      IAC1I(1) = IGDVI - 12                                             H0431460
      IAC1I(2) = IFDVI - 14                                             H0431470
      WRITE (NUVI,434) MRRVI,IAC1I(1), IAC1I(2)                         H0431480
C*****    FORMAT STATEMENTS FOR THIS SEGMENT                            H0431490
431   FORMAT ( /2X,4HTEST, I4, I6)                                      H0431500
432   FORMAT(/2X, 4HTEST, I4, I6/ I16/ I16)                             H0431510
433   FORMAT(/2X, 4HTEST,I4,I6/6(I16/),I16)                             H0431520
434   FORMAT(/2X,4HTEST,I4,I6/I16/2X,35H  THE ANSWERS ABOVE SHOULD BE 0 H0431530
     1FOR/31H  THIS SEGMENT TO BE SUCCESSFUL)                           H0431540
C*****    END OF TEST SEGMENT 043                                       H0431550
C*****  WHEN EXECUTING ONLY SEGMENT 043, THE STOP AND END CARDS         H0431560
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=  IN COLUMNS     H0431570
C*****  1  AND  2  REMOVED.                                             H0431580
C=    STOP                                                              H0431590
C=    END                                                               H0431600
C***********************************************************************H0500010
C******                                                                 H0500020
C******                     SBB67 - (050)                               H0500030
C******                                                                 H0500040
C***********************************************************************H0500050
C******  GENERAL PURPOSE                                         ASA REFH0500060
C******    TEST FORMATION OF SUBSCRIPTS FOR INTEGER              5.1.3.3H0500070
C******    AND SINGLE PRECISION ARRAYS  IN FORM V,K FORMS               H0500080
C*****                                                                  H0500090
C*****  S P E C I F I C A T I O N S  SEGMENT 050                        H0500100
C*****                                                                  H0011605
C*****  WHEN EXECUTING ONLY SEGMENT 050, THE SPECIFICATION STATEMENTS   H0011610
C*****  WHICH APPEAR AS COMMENTS, MUST HAVE THE  C=  IN COLUMNS         H0011615
C*****  1  AND  2  REMOVED.                                             H0011620
C*****                                                                  H0011625
C=    DIMENSION A3S(3,3,3)                                              H0011630
C=    DIMENSION IAC1I(5),IAC2I(2,7),AC1S(25),AC2S(5,6)                  H0011635
C=    INTEGER MCA3I(2,3,3)                                              H0011640
C*****                                                                  H0011645
C*****  O U T P U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H0500110
C*****                                                                  H0071565
C*****  WHEN EXECUTING ONLY SEGMENT 050, THE FOLLOWING STATEMENT        H0071570
C*****  NUVI = 6  MUST HAVE THE  C=  IN COLUMNS 1 AND 2 REMOVED.        H0071575
C*****                                                                  H0071580
C=    NUVI = 6                                                          H0071585
C*****                                                                  H0071590
       WRITE (NUVI,501)                                                 H0500120
501   FORMAT (1H1,1X,36HSBB67 - (050) SUBSCRIPTS FOR INTEGER/           H0500130
     -16X,21HAND REAL ARRAYS, V, K//2X,14HASA REF. 5.1.3//2X,           H0500140
     -7HRESULTS)                                                        H0500150
       IAC1I(5) = 3                                                     H0500160
       IAC2I(1,3)=4                                                     H0500170
      MCA3I(2,2,1) = -7                                                 H0500180
       AC1S(20)=1.0                                                     H0500190
      AC2S(4,1)=-2.1E1                                                  H0500200
      A3S(1,2,2) = -22.0                                                H0500210
      JACVI = IAC1I(5) + IAC2I(1,3) + MCA3I(2,2,1)                      H0500220
      HHCVS = AC1S(20) - AC2S( 4,1) + A3S(1,2,2)                        H0500230
      WRITE (NUVI, 502) JACVI, HHCVS                                    H0500240
502   FORMAT (// I9//F11.1)                                             H0500250
504    JACVI=1                                                          H0500260
       ACVS=1.0                                                         H0500270
       IAC1I(JACVI)=10                                                  H0500280
       IAC2I(JACVI,3)=12                                                H0500290
      IAC2I(2,JACVI)=-6                                                 H0500300
      MCA3I(JACVI,JACVI,3) = -1                                         H0500310
      MCA3I(2,JACVI,JACVI) = -1                                         H0500320
      MCA3I(JACVI,3,JACVI) = -2                                         H0500330
       AC1S(JACVI)=ACVS                                                 H0500340
       AC2S(JACVI,2)=3.0                                                H0500350
       AC2S(5,JACVI)=60.0E-1                                            H0500360
      A3S(JACVI,JACVI,3) = +1.0                                         H0500370
      A3S(2,JACVI,JACVI) = +1.0                                         H0500380
      A3S(JACVI,3,JACVI) = +0.0                                         H0500390
      NECVI = IAC1I(1) - IAC2I(1,3) - IAC2I(2,1) + MCA3I(1,1,3) +       H0500400
     1        MCA3I(2,1,1) + MCA3I(1,3,1)                               H0500410
      MDCVI = IAC1I(JACVI) - IAC2I(JACVI,3) - IAC2I(2,JACVI) +          H0500420
     1        MCA3I(JACVI,JACVI,3) + MCA3I(2,JACVI,JACVI) +             H0500430
     2        MCA3I(JACVI,3,JACVI)                                      H0500440
      HHCVS = AC1S(1) + AC2S(1,2) - AC2S(5,1) + A3S(1,1,3) + A3S(2,1,1) H0500450
     1      + A3S(1,3,1)                                                H0500460
      GGDVS = AC1S(JACVI) + AC2S(JACVI,2) - AC2S(5,JACVI) +             H0500470
     1        A3S(JACVI,JACVI,3) + A3S(2,JACVI,JACVI) +                 H0500480
     2        A3S(JACVI,3,JACVI)                                        H0500490
      WRITE (NUVI,508) NECVI, MDCVI, HHCVS, GGDVS                       H0500500
508   FORMAT (// 2(I9/) / 2(F11.1/) / 35H  THE ANSWERS ABOVE SHOULD BE 0H0500510
     1 FOR/31H  THIS SEGMENT TO BE SUCCESSFUL)                          H0500520
C*****    END OF TEST SEGMENT 050                                       H0500530
C*****  WHEN EXECUTING ONLY SEGMENT 050, THE STOP AND END CARDS         H0500540
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=  IN COLUMNS     H0500550
C*****  1  AND  2  REMOVED.                                             H0500560
C=    STOP                                                              H0500570
C=    END                                                               H0500580
C***********************************************************************H0510010
C******                                                                 H0510020
C******                     SBB45 - (051)                               H0510030
C******                                                                 H0510040
C***********************************************************************H0510050
C******  GENERAL PURPOSE                                         ASA REFH0510060
C******    TEST FORMATION OF SUBSCRIPTS FOR INTEGER              5.1.3.3H0510070
C******    AND SINGLE PRECISION ARRAYS IN FORM V+K AND V-K              H0510080
C*****                                                                  H0510090
C*****  S P E C I F I C A T I O N S  SEGMENT 051                        H0510100
C*****                                                                  H0011650
C*****  WHEN EXECUTING ONLY SEGMENT 051, THE SPECIFICATION STATEMENTS   H0011655
C*****  WHICH APPEAR AS COMMENTS, MUST HAVE THE  C=  IN COLUMNS         H0011660
C*****  1  AND  2  REMOVED.                                             H0011665
C*****                                                                  H0011670
C=    DIMENSION IAC1I(5),IAC2I(2,7),AC1S(25),AC2S(5,6),A3S(3,3,3)       H0011675
C=    INTEGER MCA3I(2,3,3)                                              H0011680
C*****                                                                  H0011685
C*****  O U T P U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H0510110
C*****                                                                  H0071595
C*****  WHEN EXECUTING ONLY SEGMENT 051, THE FOLLOWING STATEMENT        H0071600
C*****  NUVI = 6  MUST HAVE THE  C=  IN COLUMNS 1 AND 2 REMOVED.        H0071605
C*****                                                                  H0071610
C=    NUVI = 6                                                          H0071615
C*****                                                                  H0071620
       WRITE (NUVI,511)                                                 H0510120
511   FORMAT (1H1,1X,36HSBB45 - (051) SUBSCRIPTS FOR INTEGER/           H0510130
     -16X,24HAND REAL ARRAYS,V+K, V-K//2X,16HASA REF. 5.1.3.3//2X,      H0510140
     -7HRESULTS)                                                        H0510150
       JACVI=4                                                          H0510160
       IAC1I(JACVI+1)=1                                                 H0510170
       IAC1I(JACVI-1)=2                                                 H0510180
      IAC2I(JACVI-2,1)=3                                                H0510190
       IAC2I(JACVI-2,2)=4                                               H0510200
       IAC2I(2,JACVI+  3 )=5                                            H0510210
       IAC2I(1,JACVI-0)=-3                                              H0510220
       AC1S(JACVI+1)=1.0                                                H0510230
      AC1S(JACVI-1)=2.0                                                 H0510240
       AC2S(JACVI+0,1)=3.0                                              H0510250
       AC2S(JACVI-2,2)=4.0                                              H0510260
      AC2S(2,JACVI+  2 )=5.0                                            H0510270
       AC2S(1,JACVI-0) = -3.0E0                                         H0510280
      NECVI=IAC1I(5)+IAC1I(3)+IAC2I(2,1)+IAC2I(2,2)                     H0510290
     -+IAC2I(2,7)+IAC2I(1,4)-12                                         H0510300
      KBCVI = IAC1I(JACVI+1) + IAC1I(JACVI-1) + IAC2I(JACVI-2,1) +      H0510310
     1        IAC2I(JACVI-2,2) + IAC2I(1,JACVI-0) + IAC2I(2,JACVI+3) -12H0510320
      HHCVS = AC1S(5) + AC1S(3) + AC2S(4,1) + AC2S(2,2) + AC2S(2,6) +   H0510330
     1        AC2S(1,4) - 12.0                                          H0510340
      GGDVS = AC1S(JACVI+1) + AC1S(JACVI-1) + AC2S(JACVI+0,1) +         H0510350
     1        AC2S(JACVI-2,2) + AC2S(2,JACVI+2) + AC2S(1,JACVI-0) - 12.0H0510360
      JACVI = 2                                                         H0510370
      MCA3I(JACVI,JACVI+1,1)  =  12                                     H0510380
      MCA3I(1,JACVI+1,3) = -4                                           H0510390
      MCA3I(1,2,JACVI+0) = +2                                           H0510400
      MCA3I(JACVI-1,1,JACVI-1) = -6                                     H0510410
      MCA3I(JACVI,JACVI-0,2) = 15                                       H0510420
      MCA3I(2,JACVI-1,JACVI-1) = -11                                    H0510430
      MCA3I(JACVI-0,JACVI+1,JACVI+0) = -8                               H0510440
      MCA3I(JACVI,JACVI+1,JACVI+1) = MCA3I(JACVI,JACVI+1,1) +           H0510450
     1        MCA3I(1,JACVI+1,3) + MCA3I(1,2,JACVI+0) +                 H0510460
     2        MCA3I(JACVI-1,1,JACVI-1) + MCA3I(JACVI,JACVI-0,2) +       H0510470
     3        MCA3I(2,JACVI-1,JACVI-1) + MCA3I(JACVI-0,JACVI+1,JACVI+0) H0510480
      A3S(JACVI+1,1,1) = 12.0                                           H0510490
      A3S(1,JACVI+1,3) = -4.0                                           H0510500
      A3S(1,2,JACVI+0) = +2.0                                           H0510510
      A3S(JACVI-1,1,JACVI-1) = -6.0                                     H0510520
      A3S(JACVI+1,JACVI-0,2) = 15.0                                     H0510530
      A3S(2,JACVI-1,JACVI-1) = -11.0                                    H0510540
      A3S(JACVI-0,JACVI+1,JACVI+0) = -8.0                               H0510550
      A3S(JACVI+1,JACVI+1,JACVI+1) = A3S(JACVI+1,1,1) +                 H0510560
     1        A3S(1,JACVI+1,3) + A3S(1,2,JACVI+0) +                     H0510570
     2        A3S(JACVI-1,1,JACVI-1) + A3S(JACVI+1,JACVI-0,2) +         H0510580
     3        A3S(2,JACVI-1,JACVI-1) + A3S(JACVI-0,JACVI+1,JACVI+0)     H0510590
      WRITE (NUVI,515) NECVI,KBCVI,MCA3I(2,3,3),HHCVS,GGDVS,A3S(3,3,3)  H0510600
515   FORMAT (//3(I9/)/3(F11.1/)/35H  THE ANSWERS ABOVE SHOULD BE 0 FOR/H0510610
     1 31H  THIS SEGMENT TO BE SUCCESSFUL)                              H0510620
C*****    END OF TEST SEGMENT 051                                       H0510630
C*****  WHEN EXECUTING ONLY SEGMENT 051, THE STOP AND END CARDS         H0510640
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=  IN COLUMNS     H0510650
C*****  1  AND  2  REMOVED.                                             H0510660
C=    STOP                                                              H0510670
C=    END                                                               H0510680
C***********************************************************************H0520010
C*****                                                                  H0520020
C*****                      SBB13 - (052)                               H0520030
C*****                                                                  H0520040
C***********************************************************************H0520050
C*****  GENERAL PURPOSE                                         ASA REFSH0520060
C*****    TEST FORMATION OF SUBSCRIPTS FOR INTEGER               5.1.3.3H0520070
C*****    AND SINGLE PRECISION ARRAYS                                   H0520080
C*****    FORM C*V, C*V-K, C*V+K                                        H0520090
C*****                                                                  H0520100
C*****  S P E C I F I C A T I O N S  SEGMENT 052                        H0520110
C*****                                                                  H0011690
C*****  WHEN EXECUTING ONLY SEGMENT 052, THE SPECIFICATION STATEMENTS   H0011695
C*****  WHICH APPEAR AS COMMENTS, MUST HAVE THE  C=  IN COLUMNS         H0011700
C*****  1  AND  2  REMOVED.                                             H0011705
C*****                                                                  H0011710
C=    DIMENSION IAC1I(5),IAC2I(2,7),AC1S(25),A3S(3,3,3),AC2S(5,6)       H0011715
C=    INTEGER MCA3I(2,3,3)                                              H0011720
C*****                                                                  H0011725
C*****  O U T P U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H0520120
C*****                                                                  H0071625
C*****  WHEN EXECUTING ONLY SEGMENT 052, THE FOLLOWING STATEMENT        H0071630
C*****  NUVI = 6  MUST HAVE THE  C=  IN COLUMNS 1 AND 2 REMOVED.        H0071635
C*****                                                                  H0071640
C=    NUVI = 6                                                          H0071645
C*****                                                                  H0071650
      WRITE (NUVI,520)                                                  H0520130
520   FORMAT (1H1,1X,36HSBB13 - (052) SUBSCRIPTS INTEGER AND/           H0520140
     -16X,23HREAL, C*V, C*V-K, C*V+K//2X,16HASA REF. 5.1.3.3//2X,       H0520150
     -7HRESULTS)                                                        H0520160
      JACVI=2                                                           H0520170
      KACVI= 1                                                          H0520180
      LCCVI = -2                                                        H0520190
      IAC1I(2*JACVI)=1                                                  H0520200
      IAC2I(1*JACVI,1)=2                                                H0520210
      IAC2I(1,3*KACVI)=3                                                H0520220
      AC1S(2*JACVI)=1.0                                                 H0520230
      AC2S(1*JACVI,1)=2.0                                               H0520240
      AC2S(3, 3*KACVI)=30.E-1                                           H0520250
      MDCVI = IAC1I(2*JACVI) + IAC2I(1*JACVI,1) + IAC2I(1,3*KACVI) - 6  H0520260
      NECVI=IAC1I(4) +IAC2I(2,1) +IAC2I(1,3) - 6                        H0520270
      GGDVS = AC1S(2*JACVI) + AC2S(1*JACVI,1) + AC2S(3,3*KACVI) - 6.0   H0520280
      HHCVS = AC1S(4) + AC2S(2,1) + AC2S(3,3) - 6.0                     H0520290
      WRITE (NUVI,524) MDCVI, NECVI, GGDVS, HHCVS                       H0520300
524   FORMAT  (//2(I9/)/2(F11.1/))                                      H0520310
      IAC1I(2*JACVI+1) = -6                                             H0520320
      IAC1I(1*JACVI-1)=-4                                               H0520330
      IAC2I(1*JACVI-1,2)=3                                              H0520340
      IAC2I(2*JACVI-3,1)=4                                              H0520350
      IAC2I(2,1*JACVI+4)=2                                              H0520360
      IAC2I(1,3*JACVI-2)=1                                              H0520370
      AC1S(2*LCCVI+9) = -6.0                                            H0520380
      AC1S(1*LCCVI+3) = -4.0                                            H0520390
      AC2S(1*LCCVI+3,2) = 3.0                                           H0520400
      AC2S(2*JACVI+0,3)=4.0                                             H0520410
      AC2S(3,1*JACVI+3)=2.0                                             H0520420
      AC2S(3,3*JACVI-2)=1.0                                             H0520430
      MDCVI = IAC1I(2*JACVI+1) + IAC1I(1*JACVI-1) + IAC2I(1*JACVI-1,2) +H0520440
     1        IAC2I(1*KACVI+0,1) + IAC2I(2,2*JACVI+2) +                 H0520450
     2        IAC2I(1,3*JACVI-2)                                        H0520460
      NECVI = IAC1I(5) + IAC1I(1) + IAC2I(1,2)                          H0520470
     -+ IAC2I(1,1) + IAC2I(2,6) + IAC2I(1,4)                            H0520480
      GGDVS = AC1S(2*JACVI+1) + AC1S(1*JACVI-1) + AC2S(1*JACVI-1,2) +   H0520490
     1        AC2S(2*JACVI+0,3) + AC2S(3,1*JACVI+3) + AC2S(3,3*JACVI-2) H0520500
      HHCVS = AC1S(5) + AC1S(1) + AC2S(1,2)                             H0520510
     -+ AC2S(4,3) + AC2S(3,5) + AC2S(3,4)                               H0520520
      WRITE (NUVI,524) MDCVI, NECVI, GGDVS, HHCVS                       H0520530
      MCA3I(2*KACVI,1,1) = -1                                           H0520540
      MCA3I(2,2*KACVI,2) = -2                                           H0520550
      MCA3I(1,1,1*KACVI) = -3                                           H0520560
      MCA3I(1*KACVI+1,2,3) = 1                                          H0520570
      MCA3I(2,1*KACVI+2,2) = 2                                          H0520580
      MCA3I(1,2,3*KACVI+0) = 3                                          H0520590
      MCA3I(4*KACVI-2,1,3) = 40                                         H0520600
      MCA3I(1,6*KACVI-3,2) = 5                                          H0520610
      MCA3I(2,3,10*KACVI-9) = -40                                       H0520620
      MCA3I(2*KACVI,5*KACVI-4,2*KACVI+0)= -5                            H0520630
      MCA3I(1*KACVI-0,3,2*KACVI+1) = MCA3I(2*KACVI,1,1) +               H0520640
     1    MCA3I(2,2*KACVI,2) + MCA3I(1,1,1*KACVI) + MCA3I(1*KACVI+1,2,3)H0520650
     2  + MCA3I(2,1*KACVI+2,2) + MCA3I(1,2,3*KACVI+0)                   H0520660
     3  + MCA3I(4*KACVI-2,1,3) + MCA3I(1,6*KACVI-3,2)                   H0520670
     4  + MCA3I(2,3,10*KACVI-9) + MCA3I(2*KACVI,5*KACVI-4,2*KACVI+0)    H0520680
      A3S(3*KACVI,1,1) = -1.0                                           H0520690
      A3S(2,2*KACVI,2) = -2.0                                           H0520700
      A3S(1,1,1*KACVI) = -3.0                                           H0520710
      A3S(2*KACVI+1,2,3) = 1.0                                          H0520720
      A3S(3,1*KACVI+2,2) = 2.0                                          H0520730
      A3S(1,2,3*KACVI+0) = 3.0                                          H0520740
      A3S(4*KACVI-2,1,3) = 40.0                                         H0520750
      A3S(1,6*KACVI-3,2) = 5.0                                          H0520760
      A3S(2,3,10*KACVI-8) = -40.0                                       H0520770
      A3S(3*KACVI,5*KACVI-4,2*KACVI+0) = -5.0                           H0520780
      A3S(1*KACVI-0,3,2*KACVI+1) = A3S(3*KACVI,1,1) + A3S(2,2*KACVI,2) +H0520790
     1    A3S(1,1,1*KACVI) + A3S(2*KACVI+1,2,3) + A3S(3,1*KACVI+2,2) +  H0520800
     2    A3S(1,2,3*KACVI+0) + A3S(4*KACVI-2,1,3) + A3S(1,6*KACVI-3,2) +H0520810
     3    A3S(2,3,10*KACVI-8) + A3S(3*KACVI,5*KACVI-4,2*KACVI+0)        H0520820
      WRITE (NUVI,525) MCA3I(1,3,3), A3S(1,3,3)                         H0520830
525   FORMAT (//I9 // F11.1 )                                           H0520840
      WRITE (NUVI,527)                                                  H0520850
527   FORMAT (// 35H  THE ANSWERS ABOVE SHOULD BE 0 FOR/                H0520860
     1  31H  THIS SEGMENT TO BE SUCCESSFUL)                             H0520870
C*****    END OF TEST SEGMENT 052                                       H0520880
C*****  WHEN EXECUTING ONLY SEGMENT 052, THE STOP AND END CARDS         H0520890
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=  IN COLUMNS     H0520900
C*****  1  AND  2  REMOVED.                                             H0520910
C=    STOP                                                              H0520920
C=    END                                                               H0520930
C***********************************************************************H0530010
C*****                                                                  H0530020
C*****                      SBF17 - (053)                               H0530030
C*****                                                                  H0530040
C***********************************************************************H0530050
C*****                                                                  H0530060
C*****    GENERAL PURPOSE                                       ASA REF H0530070
C*****      TEST FORMATION OF SUBSCRIPTS FOR DOUBLE PRECISION   5.1.3.3 H0530080
C*****      ARRAYS                                                      H0530090
C*****      FORMS V, K, C*V,      C*V-K, C*V+K, V+K, V-K                H0530100
C*****                                                                  H0530110
C*****  S P E C I F I C A T I O N S  SEGMENT 053                        H0530120
C*****                                                                  H0011730
C*****  WHEN EXECUTING ONLY SEGMENT 053, THE SPECIFICATION STATEMENTS   H0011735
C*****  WHICH APPEAR AS COMMENTS, MUST HAVE THE  C=  IN COLUMNS         H0011740
C*****  1  AND  2  REMOVED.                                             H0011745
C*****                                                                  H0011750
C=    DOUBLE PRECISION AC1D(10),BC2D(7,4),CC3D(7,2,2),EP1D(43),         H0011755
C=   1                 VTAVD, WTAVD, AADVD                              H0011760
C*****                                                                  H0011765
C*****  O U T P U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.     H0530130
C*****                                                                  H0071655
C*****  WHEN EXECUTING ONLY SEGMENT 053, THE FOLLOWING STATEMENT        H0071660
C*****  NUVI = 6  MUST HAVE THE  C=  IN COLUMNS 1 AND 2 REMOVED.        H0071665
C*****                                                                  H0071670
C=    NUVI = 6                                                          H0071675
C*****                                                                  H0071680
      WRITE (NUVI,530)                                                  H0530140
530   FORMAT (1H1,1X,33HSBF17 - (053) SUBSCRIPTS FOR D.P./              H0530150
     -16X,17HARRAYS, ALL FORMS//2X,18HASA REF. - 5.1.3.3//2X,7HRESULTS) H0530160
      NACVI = 10                                                        H0530170
      JACVI=1                                                           H0530180
      KACVI=+2                                                          H0530190
      LCCVI = -1                                                        H0530200
      EP1D(10)=1.00                                                     H0530210
      BC2D(6,3)=4.0D0                                                   H0530220
      CC3D(4,1,1)=-60.0D-1                                              H0530230
      AC1D(JACVI)=30.0D-1                                               H0530240
      BC2D(JACVI,3)=1.0D0                                               H0530250
      CC3D(JACVI,1,1)=2.0D0                                             H0530260
      BC2D(3,JACVI)=5.0D0                                               H0530270
      CC3D(2,JACVI,1)=-2.0D0                                            H0530280
      CC3D(3,2,JACVI)=.4D1                                              H0530290
      VTAVD = EP1D(10) + BC2D(6,3) + CC3D(4,1,1) + AC1D(1)              H0530300
     -+BC2D(1,3) + CC3D(1,1,1) + BC2D(3,1) + CC3D(2,1,1)                H0530310
     -+CC3D(3,2,1) - 12.0D0                                             H0530320
      AADVD = EP1D(10) + AC1D(JACVI) + BC2D(JACVI,3) + BC2D(6,3) +      H0530330
     1        CC3D(4,1,1) + CC3D(JACVI,1,1) + BC2D(3,JACVI) +           H0530340
     2        CC3D(2,JACVI,1) + CC3D(3,2,JACVI) - 12.0D0                H0530350
      AC1D(3*JACVI)=-0.6D+1                                             H0530360
      AC1D(3*JACVI-2)=70.0D-1                                           H0530370
      AC1D(5*JACVI+3) = 1.0D0                                           H0530380
      AC1D (JACVI+3) = 1.0D0                                            H0530390
      AC1D (NACVI-3) = -1.0D0                                           H0530400
      BC2D(6*JACVI,2*KACVI-1) =2.0D0                                    H0530410
      BC2D(8*JACVI-2,1*LCCVI+5) = 10.0D0                                H0530420
      CC3D (3*JACVI,2,4*KACVI-6) = -8.0D0                               H0530430
      CC3D(10*JACVI-3,1,1*LCCVI+3) = -6.0D0                             H0530440
      WTAVD = AC1D(3) + AC1D(1) + AC1D(8) + BC2D(6,3) +                 H0530450
     -BC2D(6,4) + CC3D(3,2,2) + CC3D(7,1,2) + AC1D(4) + AC1D(7)         H0530460
      CC3D(2*KACVI+1,NACVI-8,2*JACVI) = AC1D(3*JACVI) +                 H0530470
     1        AC1D(3*JACVI-2) + AC1D(5*JACVI+3) + AC1D(JACVI+3) +       H0530480
     2        AC1D(NACVI-3) + BC2D(6*JACVI,2*KACVI-1) +                 H0530490
     3        BC2D(8*JACVI-2,1*JACVI+3) + CC3D(3*JACVI,2,4*KACVI-6 ) +  H0530500
     4        CC3D(10*JACVI-3,1,1*JACVI+1)                              H0530510
      WRITE (NUVI,531) VTAVD, WTAVD, AADVD, CC3D(5,2,2)                 H0530520
531   FORMAT (//4(D18.5/)/ 35H  THE ANSWERS ABOVE SHOULD BE 0 FOR/      H0530530
     1 31H  THIS SEGMENT TO BE SUCCESSFUL)                              H0530540
C*****    END OF TEST SEGMENT 053                                       H0530550
C*****  WHEN EXECUTING ONLY SEGMENT 053, THE STOP AND END CARDS         H0530560
C*****  WHICH APPEAR AS COMMENT CARDS MUST HAVE THE  C=  IN COLUMNS     H0530570
C*****  1  AND  2  REMOVED.                                             H0530580
C=    STOP                                                              H0530590
C=    END                                                               H0530600
      STOP                                                              H9999995
      END                                                               H9999999
