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

.