50#include "coef_kernel.cl.h"
56 void *G22,
void *G23,
void *G33,
75 cl_kernel kernel = clCreateKernel(coef_program, \
76 STR(coef_generate_geo_kernel_lx##LX), &err); \
79 CL_CHECK(clSetKernelArg(kernel, 0, sizeof(cl_mem), (void *) &G11)); \
80 CL_CHECK(clSetKernelArg(kernel, 1, sizeof(cl_mem), (void *) &G12)); \
81 CL_CHECK(clSetKernelArg(kernel, 2, sizeof(cl_mem), (void *) &G13)); \
82 CL_CHECK(clSetKernelArg(kernel, 3, sizeof(cl_mem), (void *) &G22)); \
83 CL_CHECK(clSetKernelArg(kernel, 4, sizeof(cl_mem), (void *) &G23)); \
84 CL_CHECK(clSetKernelArg(kernel, 5, sizeof(cl_mem), (void *) &G33)); \
85 CL_CHECK(clSetKernelArg(kernel, 6, sizeof(cl_mem), (void *) &drdx)); \
86 CL_CHECK(clSetKernelArg(kernel, 7, sizeof(cl_mem), (void *) &drdy)); \
87 CL_CHECK(clSetKernelArg(kernel, 8, sizeof(cl_mem), (void *) &drdz)); \
88 CL_CHECK(clSetKernelArg(kernel, 9, sizeof(cl_mem), (void *) &dsdx)); \
89 CL_CHECK(clSetKernelArg(kernel, 10, sizeof(cl_mem), (void *) &dsdy)); \
90 CL_CHECK(clSetKernelArg(kernel, 11, sizeof(cl_mem), (void *) &dsdz)); \
91 CL_CHECK(clSetKernelArg(kernel, 12, sizeof(cl_mem), (void *) &dtdx)); \
92 CL_CHECK(clSetKernelArg(kernel, 13, sizeof(cl_mem), (void *) &dtdy)); \
93 CL_CHECK(clSetKernelArg(kernel, 14, sizeof(cl_mem), (void *) &dtdz)); \
94 CL_CHECK(clSetKernelArg(kernel, 15, sizeof(cl_mem), (void *) &jacinv)); \
95 CL_CHECK(clSetKernelArg(kernel, 16, sizeof(cl_mem), (void *) &w3)); \
96 CL_CHECK(clSetKernelArg(kernel, 17, sizeof(int), gdim)); \
98 CL_CHECK(clEnqueueNDRangeKernel((cl_command_queue) glb_cmd_queue, \
99 kernel, 1, NULL, &global_item_size, \
100 &local_item_size, 0, NULL, NULL)); \
101 CL_CHECK(clReleaseKernel(kernel)); \
135 void *dxdr,
void *dydr,
void *dzdr,
136 void *dxds,
void *dyds,
void *dzds,
137 void *dxdt,
void *dydt,
void *dzdt,
138 void *
dx,
void *
dy,
void *
dz,
139 void *
x,
void *y,
void *z,
148 const int n = (*nel) * (*lx) * (*lx) * (*lx);
154#define DXYZDRST_CASE(LX) \
157 cl_kernel kernel = clCreateKernel(coef_program, \
158 STR(coef_generate_dxyz_kernel_lx##LX), &err); \
161 CL_CHECK(clSetKernelArg(kernel, 0, sizeof(cl_mem), (void *) &dxdr)); \
162 CL_CHECK(clSetKernelArg(kernel, 1, sizeof(cl_mem), (void *) &dydr)); \
163 CL_CHECK(clSetKernelArg(kernel, 2, sizeof(cl_mem), (void *) &dzdr)); \
164 CL_CHECK(clSetKernelArg(kernel, 3, sizeof(cl_mem), (void *) &dxds)); \
165 CL_CHECK(clSetKernelArg(kernel, 4, sizeof(cl_mem), (void *) &dyds)); \
166 CL_CHECK(clSetKernelArg(kernel, 5, sizeof(cl_mem), (void *) &dzds)); \
167 CL_CHECK(clSetKernelArg(kernel, 6, sizeof(cl_mem), (void *) &dxdt)); \
168 CL_CHECK(clSetKernelArg(kernel, 7, sizeof(cl_mem), (void *) &dydt)); \
169 CL_CHECK(clSetKernelArg(kernel, 8, sizeof(cl_mem), (void *) &dzdt)); \
170 CL_CHECK(clSetKernelArg(kernel, 9, sizeof(cl_mem), (void *) &dx)); \
171 CL_CHECK(clSetKernelArg(kernel, 10, sizeof(cl_mem), (void *) &dy)); \
172 CL_CHECK(clSetKernelArg(kernel, 11, sizeof(cl_mem), (void *) &dz)); \
173 CL_CHECK(clSetKernelArg(kernel, 12, sizeof(cl_mem), (void *) &x)); \
174 CL_CHECK(clSetKernelArg(kernel, 13, sizeof(cl_mem), (void *) &y)); \
175 CL_CHECK(clSetKernelArg(kernel, 14, sizeof(cl_mem), (void *) &z)); \
177 CL_CHECK(clEnqueueNDRangeKernel((cl_command_queue) glb_cmd_queue, \
178 kernel, 1, NULL, &global_item_size_dxyz, \
179 &local_item_size, 0, NULL, NULL)); \
180 CL_CHECK(clReleaseKernel(kernel)); \
208 "coef_generate_drst_kernel", &
err);
243 void *
w3,
int *lxyz,
int *nel) {
253 "coef_generate_mass_kernel", &
err);
273 void *nx,
void *ny,
void *nz,
274 void *dxdr,
void *dydr,
void *dzdr,
275 void *dxds,
void *dyds,
void *dzds,
276 void *dxdt,
void *dydt,
void *dzdt,
277 void *wx,
void *wy,
void *wz,
288#define AREA_CASE(LX) \
292 clCreateKernel(coef_program, \
293 STR(coef_generate_area_and_normal_kernel_lx##LX), &err); \
296 CL_CHECK(clSetKernelArg(kernel, 0, sizeof(cl_mem), (void *) &area)); \
297 CL_CHECK(clSetKernelArg(kernel, 1, sizeof(cl_mem), (void *) &nx)); \
298 CL_CHECK(clSetKernelArg(kernel, 2, sizeof(cl_mem), (void *) &ny)); \
299 CL_CHECK(clSetKernelArg(kernel, 3, sizeof(cl_mem), (void *) &nz)); \
300 CL_CHECK(clSetKernelArg(kernel, 4, sizeof(cl_mem), (void *) &dxdr)); \
301 CL_CHECK(clSetKernelArg(kernel, 5, sizeof(cl_mem), (void *) &dydr)); \
302 CL_CHECK(clSetKernelArg(kernel, 6, sizeof(cl_mem), (void *) &dzdr)); \
303 CL_CHECK(clSetKernelArg(kernel, 7, sizeof(cl_mem), (void *) &dxds)); \
304 CL_CHECK(clSetKernelArg(kernel, 8, sizeof(cl_mem), (void *) &dyds)); \
305 CL_CHECK(clSetKernelArg(kernel, 9, sizeof(cl_mem), (void *) &dzds)); \
306 CL_CHECK(clSetKernelArg(kernel, 10, sizeof(cl_mem), (void *) &dxdt)); \
307 CL_CHECK(clSetKernelArg(kernel, 11, sizeof(cl_mem), (void *) &dydt)); \
308 CL_CHECK(clSetKernelArg(kernel, 12, sizeof(cl_mem), (void *) &dzdt)); \
309 CL_CHECK(clSetKernelArg(kernel, 13, sizeof(cl_mem), (void *) &wx)); \
310 CL_CHECK(clSetKernelArg(kernel, 14, sizeof(cl_mem), (void *) &wy)); \
311 CL_CHECK(clSetKernelArg(kernel, 15, sizeof(cl_mem), (void *) &wz)); \
312 CL_CHECK(clSetKernelArg(kernel, 16, sizeof(real), &eps)); \
314 CL_CHECK(clEnqueueNDRangeKernel((cl_command_queue) glb_cmd_queue, \
315 kernel, 1, NULL, &global_item_size, \
316 &local_item_size, 0, NULL, NULL)); \
317 CL_CHECK(clReleaseKernel(kernel)); \
349 void *nx,
void *ny,
void *nz,
351 void *
e_idx,
void *facet,
int *lx,
int *n) {
void opencl_coef_generate_mass(void *B, void *Binv, void *jac, void *w3, int *lxyz, int *nel)
void opencl_coef_get_normal(void *normal_x, void *normal_y, void *normal_z, void *nx, void *ny, void *nz, void *i_idx, void *j_idx, void *k_idx, void *e_idx, void *facet, int *lx, int *n)
void opencl_coef_generate_geo(void *G11, void *G12, void *G13, void *G22, void *G23, void *G33, void *drdx, void *drdy, void *drdz, void *dsdx, void *dsdy, void *dsdz, void *dtdx, void *dtdy, void *dtdz, void *jacinv, void *w3, int *nel, int *lx, int *gdim)
void opencl_coef_generate_dxyzdrst(void *drdx, void *drdy, void *drdz, void *dsdx, void *dsdy, void *dsdz, void *dtdx, void *dtdy, void *dtdz, void *dxdr, void *dydr, void *dzdr, void *dxds, void *dyds, void *dzds, void *dxdt, void *dydt, void *dzdt, void *dx, void *dy, void *dz, void *x, void *y, void *z, void *jacinv, void *jac, int *lx, int *nel)
void opencl_coef_generate_area_and_normal(void *area, void *nx, void *ny, void *nz, void *dxdr, void *dydr, void *dzdr, void *dxds, void *dyds, void *dzds, void *dxdt, void *dydt, void *dzdt, void *wx, void *wy, void *wz, int *lx, int *nel, real eps)
#define DXYZDRST_CASE(LX)
__global__ void ale_add_kinematics_kernel(const int n, T *__restrict__ wx, T *__restrict__ wy, T *__restrict__ wz, const T *__restrict__ x_ref, const T *__restrict__ y_ref, const T *__restrict__ z_ref, const T *__restrict__ phi, const T *__restrict__ x, const T *__restrict__ y, const T *__restrict__ z, const kinematics_params_t kin_params)
__global__ void T *__restrict__ T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ drdy
__global__ void T *__restrict__ T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ drdz
__global__ void T *__restrict__ T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ dsdz
__global__ void T *__restrict__ T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ dsdy
__global__ void T *__restrict__ T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ dtdy
__global__ void T *__restrict__ T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ dx
__global__ void T *__restrict__ T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ drdx
__global__ void T *__restrict__ T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ dtdz
__global__ void T *__restrict__ T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ dsdx
__global__ void T *__restrict__ T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ dtdx
__global__ void T *__restrict__ T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ dz
__global__ void T *__restrict__ T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ dy
__global__ void T *__restrict__ T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ jacinv
__global__ void const T *__restrict__ x
__global__ void const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ const T *__restrict__ w3
void opencl_kernel_jit(const char *kernel, cl_program *program)