coef.c File Reference

#include <CL/cl.h>
#include <stdio.h>
#include <math.h>
#include <device/device_config.h>
#include <device/opencl/jit.h>
#include <device/opencl/prgm_lib.h>
#include <device/opencl/check.h>
#include "coef_kernel.cl.h"

Include dependency graph for coef.c:

Go to the source code of this file.

Macros
#define	STR(X)   #X
#define	GEO_CASE(LX)
#define	STR(X)   #X
#define	DXYZDRST_CASE(LX)

Functions
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)

Macro Definition Documentation

DXYZDRST_CASE

#define DXYZDRST_CASE

(

LX

)

Value:

  case LX:                                                                      \
    {                                                                           \
      cl_kernel kernel = clCreateKernel(coef_program,                           \
                                  STR(coef_generate_dxyz_kernel_lx##LX), &err); \
      CL_CHECK(err);                                                            \
                                                                                \
      CL_CHECK(clSetKernelArg(kernel, 0, sizeof(cl_mem), (void *) &dxdr));      \
      CL_CHECK(clSetKernelArg(kernel, 1, sizeof(cl_mem), (void *) &dydr));      \
      CL_CHECK(clSetKernelArg(kernel, 2, sizeof(cl_mem), (void *) &dzdr));      \
      CL_CHECK(clSetKernelArg(kernel, 3, sizeof(cl_mem), (void *) &dxds));      \
      CL_CHECK(clSetKernelArg(kernel, 4, sizeof(cl_mem), (void *) &dyds));      \
      CL_CHECK(clSetKernelArg(kernel, 5, sizeof(cl_mem), (void *) &dzds));      \
      CL_CHECK(clSetKernelArg(kernel, 6, sizeof(cl_mem), (void *) &dxdt));      \
      CL_CHECK(clSetKernelArg(kernel, 7, sizeof(cl_mem), (void *) &dydt));      \
      CL_CHECK(clSetKernelArg(kernel, 8, sizeof(cl_mem), (void *) &dzdt));      \
      CL_CHECK(clSetKernelArg(kernel, 9, sizeof(cl_mem), (void *) &dx));        \
      CL_CHECK(clSetKernelArg(kernel, 10, sizeof(cl_mem), (void *) &dy));       \
      CL_CHECK(clSetKernelArg(kernel, 11, sizeof(cl_mem), (void *) &dz));       \
      CL_CHECK(clSetKernelArg(kernel, 12, sizeof(cl_mem), (void *) &x));        \
      CL_CHECK(clSetKernelArg(kernel, 13, sizeof(cl_mem), (void *) &y));        \
      CL_CHECK(clSetKernelArg(kernel, 14, sizeof(cl_mem), (void *) &z));        \
                                                                                \
      CL_CHECK(clEnqueueNDRangeKernel((cl_command_queue) glb_cmd_queue,         \
                                      kernel, 1, NULL, &global_item_size_dxyz,  \
                                      &local_item_size, 0, NULL, NULL));        \
      CL_CHECK(clReleaseKernel(kernel));                                        \
    }                                                                           \
    break

GEO_CASE

#define GEO_CASE

(

LX

)

STR [1/2]

#define STR

(

X

)

#X

STR [2/2]

#define STR

(

X

)

#X

Function Documentation

opencl_coef_generate_dxyzdrst()

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
	)

Fortran wrapper for generating geometric factors

Definition at line 126 of file coef.c.

Here is the call graph for this function:

Here is the caller graph for this function:

opencl_coef_generate_geo()

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
	)

Fortran wrapper for generating geometric factors

Definition at line 54 of file coef.c.

Here is the call graph for this function:

Here is the caller graph for this function: