store_it.f

a 2-d FDTD program using PML

*--------------------------------------------------------------------*
      subroutine store_it(a)
      include 'xfdtmcom.f'
      real a(nx,ny)
      do i=1,nx
         do j=1,ny
            ezs(i,j)=a(i,j)
         end do
      end do
      return
      end