save_ascii.f

来自「a 2-d FDTD program using PML」· 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