SUBROUTINE TEST6(Z,A,C,N,X,Y)
      DIMENSION X(100,100),Z(100,100),A(1000),B(1000),C(1000),D(1000)
      DIMENSION Y(100,100),W(100,100)
      DIMENSION XXX(100,100),YYY(100,100)
      DIMENSION XX(100), YY(100), ZZ(100), L(100),CC(100)
      DIMENSION AA(200),BB(200),DD(200),II(1000)
      DIMENSION LL(1000,1000)
      LOGICAL LL
      COMMON /COMM1/CC1(100),CC2(100),CC3(100),CC4(100,100)
      DIMENSION EQV1(100),EQV2(90),EQV3(100),EQV4(100,99)
      EQUIVALENCE (EQV1(1),CC2(1))
      EQUIVALENCE (EQV2(1),CC1(5))
      EQUIVALENCE (EQV3(5),CC3(5))
      EQUIVALENCE (EQV4(1,2),CC4(1,1))
C
C   MATRIX MULTIPLY
C
      DO 10 J= 1,100
      DO 10 I= 1,100
      DO 10 K= 1,100
      X(I,J)= X(I,J)+Y(I,K)*Z(K,J)
  10  CONTINUE
      WRITE(6,100) X(N,N)
C
C   MATRIX MULTIPLY
C
      DO 20 I= 1,100
      DO 20 J= 1,100
      DO 20 K= 1,100
      X(I,J)= X(I,J)+Y(I,K)*Z(K,J)
  20  CONTINUE
      WRITE(6,100) X(N,N)
C
C   PACK
C
      K = 1
      DO 30 I= 1,100
      DO 30 J= 1,100
      IF (LL(I,J)) THEN
      A(K) = Z(I,J)
      K = K + 1
      ENDIF
  30  CONTINUE
      WRITE(6,100) A(N)
C
C   PACK
C
      K = 1
      DO 40 J= 1,100
      DO 40 I= 1,100
      IF (LL(I,J)) THEN
      A(K) = Z(I,J)
      K = K + 1
      ENDIF
  40  CONTINUE
      WRITE(6,100) A(N)
C
C   SCALAR EXPANSION
C
      DO 300 I = 1,N
      T=B(I)
      B(I) = C(I)
      C(I) = T
 300  CONTINUE
      WRITE(6) C(2)
C
C   SCALAR EXPANSION
C
      DO 310 I = 1,N
      S=B(I)
      B(I) = C(I)
      C(I) = S
 310  CONTINUE
      WRITE(6) C(2)
C
C   SCALAR EXPANSION
C
      DO 320 I = 1,N
      D(I) = S + J
      S=B(I)
      B(I) = C(I)
      C(I) = S
 320  CONTINUE
      WRITE(6,100) C(5)
C
C   CALL STATEMENT
C
      DO 410 I = 1,100
      DO 420 J = 1,100
      X(J,I) = Z(J,I)
      CALL SUB2(A)
      Z(J,I) = W(J,I)
 420  CONTINUE
 410  CONTINUE
      WRITE(6,100) Z(N,N)
C
C   CALL STATEMENT
C
      DO 430 I = 1,100
      A(I) = B(I)
      CALL SUB2
      C(I) = D(I)
 430  CONTINUE
      WRITE(6,100) C(N)
C
C   CALL STATEMENT
C
      DO 440 I = 1,100
      A(I) = B(I)
      CALL SUB2(A,B)
      B(I) = A(I) + C(I)
 440  CONTINUE
      WRITE(6,100) B(N)
      WRITE(6,100) A(N)
C
C   WRITE STATEMENT
C
      DO 600 I = 1,100
      B(I) = D(I)
      C(I) = A(I) + B(I)
      WRITE(6,100) C(I)
 600  CONTINUE
      WRITE(6,100) B(N)
C
C   WRITE STATEMENT
C
      DO 610 I = 1,100
      D(I) = B(I)
      C(I) = A(I)
      WRITE(6,100) A(I)
 610  CONTINUE
      WRITE(6,100) B(N)
C
C   ARITHMETIC IF
C
      DO 710 I = 1,100
      IF (D(I)) 720,730,740
 720  C(I) = A(I)
      GOTO 750
 730  C(I) = B(I)
      GOTO 750
 740  C(I) = XX(I)
 750  CONTINUE
 710  CONTINUE
      WRITE(6,100) C(N)
C
C   COMPUTED GOTO
C
      DO 810 I = 1,100
      GOTO  (815,820,830,840) II(I)
 815  C(I) = AA(I)
      GOTO 850
 820  C(I) = A(I)
      GOTO 850
 830  C(I) = B(I)
      GOTO 850
 840  C(I) = D(I)
 850  CONTINUE
 810  CONTINUE
      WRITE(6,100) C(N)
C
C   COMMON AND EQUIVALENCE STATEMENT
C
      DO 910 I = 1,100
      EQV1(I) = CC2(I)
 910  CONTINUE
      WRITE(6,100) EQV1(N)
C
C   COMMON AND EQUIVALENCE STATEMENT
C
      DO 920 I = 1,85
      EQV2(I) = CC1(I+8) + B(I)
 920  CONTINUE
      WRITE(6,100) EQV2(N)
C
C   COMMON AND EQUIVALENCE STATEMENT
C
      DO 930 I = 1,100
      EQV3(I) = CC3(I) + B(I)
 930  CONTINUE
      WRITE(6,100) EQV3(N)
C
C   COMMON AND EQUIVALENCE STATEMENT
C
      DO 940 J = 2,80
      DO 950 I = 1,90
      EQV4(I,J) = CC4(I+2,J+5) + Y(I,J)
 950  CONTINUE
 940  CONTINUE
      WRITE(6,100) EQV4(N,N)
 100  FORMAT(E12.6)
      RETURN
      END

.