subroutine copy(ac,bc)
c
c Copy ac to bc
      implicit none
      real ac,bc
      integer n,n3
      include 'itg.par'
      include 'itg.cmn'
      dimension ac(lz*mz*nz*nspecz),bc(lz*mz*nz*nspecz)
      n3=nd*md*ld*nspecies
      do 1 n=1,n3
      bc(n)=ac(n)
    1 continue
      return
      end