save_binary.f

a 2-d FDTD program using PML

*--------------------------------------------------------------------*
      subroutine save_binary
*
*  Write E-Field to a binary file
*
      include 'fdtmcom.f'
      character*1 saveout(nx,ny)
      call scal_vid
      do i=1, nx
         do j=1,ny
            saveout(i,j)=char(int(ezs(i,j)))
         end do
      end do
      open(8,file=file_out,status='unknown',form='unformatted')
      write(8)saveout
      close(8)
      return
      end