store_it.f

来自「a 2-d FDTD program using PML」· F 代码 · 共 12 行

*--------------------------------------------------------------------*
      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