store_it.f

来自「xy时域有限差分的fortran数值模拟 xy时域有限差分的fortran数值」· 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