swave.f

来自「a 2-d FDTD program using PML」· F 代码 · 共 15 行

*--------------------------------------------------------------------*
      real function swave(i,j)
*
*  function to generate a sine wave source
*
      include 'xfdtmcom.f'
      if ( (i.eq.imid).and.(j.eq.jmid) ) then
         freq=1./(50.*dt)
         swave = sin(2.*pi*freq*t)
      else
         swave=0.
      endif
      return
      end