zj.f

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

*--------------------------------------------------------------------*
      real function zj(i,j)
*
*  current source at i=imid, j=jmid
*
      include 'xfdtmcom.f'
      integer i,j
      if (wave.eq.'sine') then
         zj = swave(i,j)
      else
         zj = pulse(i,j)
      endif
      return
      end