shuren/opencl_fdfd
1
0
Fork 0
forked from jan/opencl_fdfd
Code Issues Pull requests Releases Wiki Activity

Conductor partial fixup

Browse source
This commit is contained in:
jan 2016-07-04 16:29:21 -07:00
commit fdcf090249
5 changed files with 26 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

8
opencl_fdfd/kernels/e2h.cl
View file

@ -35,7 +35,7 @@ if ( z == sz - 1 ) {
//Update H components; set them to 0 if PMC is enabled there.
// Also divide by mu only if requested.
{% if pmc -%}
if (pmc[XX + i]) {
if (pmc[XX + i] != 0) {
Hx[i] = cdouble_new(0.0, 0.0);
} else
{%- endif -%}
@ -51,7 +51,7 @@ if (pmc[XX + i]) {
}
{% if pmc -%}
if (pmc[YY + i]) {
if (pmc[YY + i] != 0) {
Hy[i] = cdouble_new(0.0, 0.0);
} else
{%- endif -%}
@ -67,8 +67,8 @@ if (pmc[YY + i]) {
}
{% if pmc -%}
if (pmc[XX + i]) {
Hx[i] = cdouble_new(0.0, 0.0);
if (pmc[ZZ + i] != 0) {
Hz[i] = cdouble_new(0.0, 0.0);
} else
{%- endif -%}
{

12
opencl_fdfd/kernels/h2e.cl
View file

@ -34,9 +34,7 @@ if ( z == 0 ) {
//Update E components; set them to 0 if PEC is enabled there.
{% if pec -%}
if (pec[XX + i]) {
Ex[i] = cdouble_new(0.0, 0.0);
} else
if (pec[XX + i] == 0)
{%- endif -%}
{
cdouble_t tEx = cdouble_mul(Ex[i], oeps[XX + i]);
@ -47,9 +45,7 @@ if (pec[XX + i]) {
}
{% if pec -%}
if (pec[YY + i]) {
Ey[i] = cdouble_new(0.0, 0.0);
} else
if (pec[YY + i] == 0)
{%- endif -%}
{
cdouble_t tEy = cdouble_mul(Ey[i], oeps[YY + i]);
@ -60,9 +56,7 @@ if (pec[YY + i]) {
}
{% if pec -%}
if (pec[ZZ + i]) {
Ez[i] = cdouble_new(0.0, 0.0);
} else
if (pec[ZZ + i] == 0)
{%- endif -%}
{
cdouble_t tEz = cdouble_mul(Ez[i], oeps[ZZ + i]);

9
opencl_fdfd/kernels/p2e.cl Normal file
View file

@ -0,0 +1,9 @@
{%- if pec -%}
if (pec[i] != 0) {
E[i] = cdouble_new(0.0, 0.0);
} else
{%- endif -%}
{
E[i] = cdouble_mul(Pr[i], p[i]);
}