IBM Release 1.93 manual END World Subdomain ALL, END Object

DEFINE matname= Load type=dielectric n=n_load k=k_load

END

WORLD

SUBDOMAIN ALL

XRANGE 0 xsize

YRANGE 0 ysize

ZRANGE 0 zsize

BASICSTEP step

BOUNDARY ymax illum

BOUNDARY xmin illum

BOUNDARY zmax illum

END

OBJECT

/* Absorber around the outside of the domain */

HOLLOWBOX matname=AirPML xlo=0 xhi=xsize ylo=0 yhi=ysize zlo=0 zhi=zsize thickness=Tpml

/* Air filling all space inside PML */

BLOCK matname=Air xlo=Tpml xhi=xsize-Tpml ylo=Tpml yhi=ysize-Tpml , zlo=Tpml zhi=zsize-Tpml

/* Dipole

FAN matname=PCL taper=linear taperpar=0,

xlo1 = (xsize-DipoleLengthUM*um)/2 xhi1=(xsize-DipoleLengthUM*um)/2, ylo1 = (ysize-DipoleHeight)/2 yhi1=(ysize+DipoleHeight)/2,

zlo1 = Zvertex-ZRakeUM*um-DipoleThickness/2 zhi1= Zvertex-ZRakeUM*um+DipoleThickness/2, xlo2 = (xsize-LoadLength)/2 xhi2=(xsize-LoadLength)/2,

ylo2 = (ysize-DipoleHeight)/2 yhi2=(ysize+DipoleHeight)/2,

54