c-------------------------------------------------------------------- 
c                           test cpu
c-------------------------------------------------------------------- 
      parameter (N = 400 )
      COMMON /aa/ A(N,N,N)
      real*8    sum


      sum = 0.
      Do k=1,N
      Do i=1,N
         Do j=1,N
            A(i,k,j) = exp(cos(k*0.11)+sin((i/10.d0)**2+(j/10.d0)**2))
            sum =sum + A(i,k,j)**2
         EndDo 
      EndDo 


      EndDo 
      write (*,*)  ' average=',sqrt(sum/N**2)
           stop
           end


