save_ascii.f

来自「xy时域有限差分的fortran数值模拟 xy时域有限差分的fortran数值」· F 代码 · 共 16 行

*--------------------------------------------------------------------*
      subroutine save_ascii
*
*  Write E-Field to an ascii file
*
      include 'fdtmcom.f'
      open(8,file=file_out,status='unknown')
      do i=1,nx
         do j=1,ny
            write(8,*)ezs(i,j)
         end do
      end do
      close(8)
      return
      end