program CHANEL2
       parameter (n = 100)
       dimension fz(n,n,n), cz(n)

       do 130 i = 1, n
         cz(i) = i**2
         do 120 j = 1, n
           do 110 k = 1, n
             fz(i,j,k) = i + j**2 + k**3
110        continue
120      continue
130    continue 

       t1 = second()
       do 220 i = 1, n
           do 220 k = 2, n
         do 220 j = 1, n
220          fz(i,j,k) = fz(i,j,k) - cz(k)*fz(i,j,k-1)

       t2 = second()
       t  = t2 - t1
       write(6,400) t
400    format(' Optimerad beraekningsordning tar ',f9.6,' sekunder.')
       write(*,*) sum(fz)
       end program CHANEL2