opr_cdtp.c File Reference

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

Include dependency graph for opr_cdtp.c:

Go to the source code of this file.

Macros
#define	STR(X)   #X
#define	CASE(LX)

Functions
void	opencl_cdtp (void *dtx, void *x, void *dr, void *ds, void *dt, void *dxt, void *dyt, void *dzt, void *w3, int *nel, int *lx)

Macro Definition Documentation

CASE

#define CASE

(

LX

)

Value:

  case LX:                                                                      \
    {                                                                           \
      cl_kernel kernel = clCreateKernel(cdtp_program,                           \
                                        STR(cdtp_kernel_lx##LX), &err);         \
      CL_CHECK(err);                                                            \
                                                                                \
      CL_CHECK(clSetKernelArg(kernel, 0, sizeof(cl_mem), (void *) &dtx));       \
      CL_CHECK(clSetKernelArg(kernel, 1, sizeof(cl_mem), (void *) &x));         \
      CL_CHECK(clSetKernelArg(kernel, 2, sizeof(cl_mem), (void *) &dr));        \
      CL_CHECK(clSetKernelArg(kernel, 3, sizeof(cl_mem), (void *) &ds));        \
      CL_CHECK(clSetKernelArg(kernel, 4, sizeof(cl_mem), (void *) &dt));        \
      CL_CHECK(clSetKernelArg(kernel, 5, sizeof(cl_mem), (void *) &dxt));       \
      CL_CHECK(clSetKernelArg(kernel, 6, sizeof(cl_mem), (void *) &dyt));       \
      CL_CHECK(clSetKernelArg(kernel, 7, sizeof(cl_mem), (void *) &dzt));       \
      CL_CHECK(clSetKernelArg(kernel, 8, sizeof(cl_mem), (void *) &w3));        \
                                                                                \
      CL_CHECK(clEnqueueNDRangeKernel((cl_command_queue) glb_cmd_queue,         \
                                      kernel, 1, NULL, &global_item_size,       \
                                      &local_item_size, 0, NULL, NULL));        \
    }                                                                           \
    break

STR

#define STR

(

X

)

#X

Function Documentation

opencl_cdtp()

void opencl_cdtp	(	void *	dtx,
		void *	x,
		void *	dr,
		void *	ds,
		void *	dt,
		void *	dxt,
		void *	dyt,
		void *	dzt,
		void *	w3,
		int *	nel,
		int *	lx
	)

Fortran wrapper for device OpenCL \( D^T X \)

Definition at line 52 of file opr_cdtp.c.

Here is the call graph for this function:

Here is the caller graph for this function: