ＦＤＴＤ
!-- Fortran code for FDTD with Berenger PMLs, version 1.0, May 1999
!-- by Jos Bergervoet.
!-- Plot field and/or Poynting vector S around radiating linear dipole
Demonstrates 1-D FDTD initial state formation. Please edit the FLAGS for demonstration of different cases. BASED ON "1-D Digital Waveguide Modeling for Improved Sound Synthesis".
