pc_jacobi.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 "jacobi_kernel.cl.h"

Include dependency graph for pc_jacobi.c:

Go to the source code of this file.

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

Functions
void	opencl_jacobi_update (void *d, void *dxt, void *dyt, void *dzt, void *G11, void *G22, void *G33, void *G12, void *G13, void *G23, int *nel, int *lx)

Macro Definition Documentation

CASE

#define CASE

(

LX

)

Value:

  case LX:                                                                     \
    {                                                                          \
      cl_kernel kernel = clCreateKernel(jacobi_program,                \
                    STR(jacobi_kernel_lx##LX), &err);      \
      CL_CHECK(err);                                                           \
                                                                               \
      CL_CHECK(clSetKernelArg(kernel, 0, sizeof(cl_mem), (void *) &d));        \
      CL_CHECK(clSetKernelArg(kernel, 1, sizeof(cl_mem), (void *) &dxt));      \
      CL_CHECK(clSetKernelArg(kernel, 2, sizeof(cl_mem), (void *) &dyt));      \
      CL_CHECK(clSetKernelArg(kernel, 3, sizeof(cl_mem), (void *) &dzt));      \
      CL_CHECK(clSetKernelArg(kernel, 4, sizeof(cl_mem), (void *) &G11));      \
      CL_CHECK(clSetKernelArg(kernel, 5, sizeof(cl_mem), (void *) &G22));      \
      CL_CHECK(clSetKernelArg(kernel, 6, sizeof(cl_mem), (void *) &G33));      \
      CL_CHECK(clSetKernelArg(kernel, 7, sizeof(cl_mem), (void *) &G12));      \
      CL_CHECK(clSetKernelArg(kernel, 8, sizeof(cl_mem), (void *) &G13));      \
      CL_CHECK(clSetKernelArg(kernel, 9, sizeof(cl_mem), (void *) &G23));      \
      CL_CHECK(clSetKernelArg(kernel, 10, sizeof(int), nel));              \
                                                                               \
                                                                               \
      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_jacobi_update()

void opencl_jacobi_update	(	void *	d,
		void *	dxt,
		void *	dyt,
		void *	dzt,
		void *	G11,
		void *	G22,
		void *	G33,
		void *	G12,
		void *	G13,
		void *	G23,
		int *	nel,
		int *	lx
	)

Fortran wrapper for device pc jacobi

Definition at line 52 of file pc_jacobi.c.

Here is the call graph for this function: