math.c File Reference

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

Include dependency graph for math.c:

Go to the source code of this file.

Functions
void	opencl_copy (void *a, void *b, int *n, cl_command_queue cmd_queue)
void	opencl_masked_copy (void *a, void *b, void *mask, int *n, int *m, cl_command_queue cmd_queue)
void	opencl_masked_gather_copy (void *a, void *b, void *mask, int *n, int *m, cl_command_queue cmd_queue)
void	opencl_masked_scatter_copy (void *a, void *b, void *mask, int *n, int *m, cl_command_queue cmd_queue)
void	opencl_cfill_mask (void *a, void *c, int *size, void *mask, int *mask_size, cl_command_queue cmd_queue)
void	opencl_rzero (void *a, int *n, cl_command_queue cmd_queue)
void	opencl_rone (void *a, int *n, cl_command_queue cmd_queue)
void	opencl_cmult (void *a, real *c, int *n, cl_command_queue cmd_queue)
void	opencl_cmult2 (void *a, void *b, real *c, int *n, cl_command_queue cmd_queue)
void	opencl_cdiv (void *a, real *c, int *n, cl_command_queue cmd_queue)
void	opencl_cdiv2 (void *a, void *b, real *c, int *n, cl_command_queue cmd_queue)
void	opencl_radd (void *a, real *c, int *n, cl_command_queue cmd_queue)
void	opencl_cadd2 (void *a, void *b, real *c, int *n, cl_command_queue cmd_queue)
void	opencl_cfill (void *a, real *c, int *n, cl_command_queue cmd_queue)
void	opencl_add2 (void *a, void *b, int *n, cl_command_queue cmd_queue)
void	opencl_add3 (void *a, void *b, void *c, int *n, cl_command_queue cmd_queue)
void	opencl_add4 (void *a, void *b, void *c, void *d, int *n, cl_command_queue cmd_queue)
void	opencl_add2s1 (void *a, void *b, real *c1, int *n, cl_command_queue cmd_queue)
void	opencl_add2s2 (void *a, void *b, real *c1, int *n, cl_command_queue cmd_queue)
void	opencl_add2s2_many (void *x, void *p, void *alpha, int *j, int *n, cl_command_queue cmd_queue)
void	opencl_addsqr2s2 (void *a, void *b, real *c1, int *n, cl_command_queue cmd_queue)
void	opencl_add3s2 (void *a, void *b, void *c, real *c1, real *c2, int *n, cl_command_queue cmd_queue)
void	opencl_invcol1 (void *a, int *n, cl_command_queue cmd_queue)
void	opencl_invcol2 (void *a, void *b, int *n, cl_command_queue cmd_queue)
void	opencl_col2 (void *a, void *b, int *n, cl_command_queue cmd_queue)
void	opencl_col3 (void *a, void *b, void *c, int *n, cl_command_queue cmd_queue)
void	opencl_subcol3 (void *a, void *b, void *c, int *n, cl_command_queue cmd_queue)
void	opencl_sub2 (void *a, void *b, int *n, cl_command_queue cmd_queue)
void	opencl_sub3 (void *a, void *b, void *c, int *n, cl_command_queue cmd_queue)
void	opencl_addcol3 (void *a, void *b, void *c, int *n, cl_command_queue cmd_queue)
void	opencl_addcol4 (void *a, void *b, void *c, void *d, int *n, cl_command_queue cmd_queue)
void	opencl_vdot3 (void *dot, void *u1, void *u2, void *u3, void *v1, void *v2, void *v3, int *n, cl_command_queue cmd_queue)
void	opencl_vcross (void *u1, void *u2, void *u3, void *v1, void *v2, void *v3, void *w1, void *w2, void *w3, int *n, cl_command_queue cmd_queue)
real	opencl_glsc3 (void *a, void *b, void *c, int *n, cl_command_queue cmd_queue)
void	opencl_glsc3_many (real *h, void *w, void *v, void *mult, int *j, int *n, cl_command_queue cmd_queue)
real	opencl_glsc2 (void *a, void *b, int *n, cl_command_queue cmd_queue)
real	opencl_glsubnorm2 (void *a, void *b, int *n, cl_command_queue cmd_queue)
real	opencl_glsum (void *a, int *n, cl_command_queue cmd_queue)
void	opencl_iadd (void *a, int *c, int *n, cl_command_queue cmd_queue)

Variables
int	red_s = 0
real *	bufred = NULL
cl_mem	bufred_d = NULL

Function Documentation

opencl_add2()

void opencl_add2	(	void *	a,
		void *	b,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for add2 Vector addition \( a = a + b \)

Definition at line 385 of file math.c.

Here is the call graph for this function:

opencl_add2s1()

void opencl_add2s1	(	void *	a,
		void *	b,
		real *	c1,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for add2s1 Vector addition with scalar multiplication \( a = c_1 a + b \) (multiplication on first argument)

Definition at line 469 of file math.c.

Here is the call graph for this function:

opencl_add2s2()

void opencl_add2s2	(	void *	a,
		void *	b,
		real *	c1,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for add2s2 Vector addition with scalar multiplication \( a = a + c_1 b \) (multiplication on second argument)

Definition at line 498 of file math.c.

Here is the call graph for this function:

opencl_add2s2_many()

void opencl_add2s2_many	(	void *	x,
		void *	p,
		void *	alpha,
		int *	j,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for add2s2 Vector addition with scalar multiplication \( x = x + c_1 p1 + c_2p2 + ... + c_jpj \) (multiplication on second argument)

Definition at line 528 of file math.c.

Here is the call graph for this function:

opencl_add3()

void opencl_add3	(	void *	a,
		void *	b,
		void *	c,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for add3 Vector addition \( a = b + c \)

Definition at line 411 of file math.c.

Here is the call graph for this function:

opencl_add3s2()

void opencl_add3s2	(	void *	a,
		void *	b,
		void *	c,
		real *	c1,
		real *	c2,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for add3s2 Vector addition with scalar multiplication \( a = c1 * b + c2 * c \)

Definition at line 587 of file math.c.

Here is the call graph for this function:

opencl_add4()

void opencl_add4	(	void *	a,
		void *	b,
		void *	c,
		void *	d,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for add4 Vector addition \( a = b + c + d \)

Definition at line 439 of file math.c.

Here is the call graph for this function:

opencl_addcol3()

void opencl_addcol3	(	void *	a,
		void *	b,
		void *	c,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for addcol3 \( a = a + b * c \)

Definition at line 804 of file math.c.

Here is the call graph for this function:

opencl_addcol4()

void opencl_addcol4	(	void *	a,
		void *	b,
		void *	c,
		void *	d,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for addcol4 \( a = a + b * c * d \)

Definition at line 832 of file math.c.

Here is the call graph for this function:

opencl_addsqr2s2()

void opencl_addsqr2s2	(	void *	a,
		void *	b,
		real *	c1,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for addsqr2s2 Vector addition with scalar multiplication \( a = a + c_1 (b * b) \) (multiplication on second argument)

Definition at line 559 of file math.c.

Here is the call graph for this function:

opencl_cadd2()

void opencl_cadd2	(	void *	a,
		void *	b,
		real *	c,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for cadd Add a scalar to vector \( a = b + s \)

Definition at line 332 of file math.c.

Here is the call graph for this function:

opencl_cdiv()

void opencl_cdiv	(	void *	a,
		real *	c,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for cdiv Division of constant c by array \( a = c / a \)

Definition at line 255 of file math.c.

Here is the call graph for this function:

opencl_cdiv2()

void opencl_cdiv2	(	void *	a,
		void *	b,
		real *	c,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for cdiv2 Division of constant c by array \( a = c / b \)

Definition at line 280 of file math.c.

Here is the call graph for this function:

opencl_cfill()

void opencl_cfill	(	void *	a,
		real *	c,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for cfill Fill all elements to a constant c \( a = c \)

Definition at line 359 of file math.c.

Here is the call graph for this function:

opencl_cfill_mask()

void opencl_cfill_mask	(	void *	a,
		void *	c,
		int *	size,
		void *	mask,
		int *	mask_size,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for cfill_mask Fill a scalar to vector \( a_i = s, for i \in mask \)

Definition at line 151 of file math.c.

Here is the call graph for this function:

opencl_cmult()

void opencl_cmult	(	void *	a,
		real *	c,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for cmult Multiplication by constant c \( a = c \cdot a \)

Definition at line 203 of file math.c.

Here is the call graph for this function:

opencl_cmult2()

void opencl_cmult2	(	void *	a,
		void *	b,
		real *	c,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for cmult2 Multiplication by constant c \( a = c \cdot b \)

Definition at line 228 of file math.c.

Here is the call graph for this function:

opencl_col2()

void opencl_col2	(	void *	a,
		void *	b,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for col2 Vector multiplication with 2 vectors \( a = a \cdot b \)

Definition at line 668 of file math.c.

Here is the call graph for this function:

opencl_col3()

void opencl_col3	(	void *	a,
		void *	b,
		void *	c,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for col3 Vector multiplication with 3 vectors \( a = b \cdot c \)

Definition at line 694 of file math.c.

Here is the call graph for this function:

opencl_copy()

void opencl_copy	(	void *	a,
		void *	b,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for copy Copy a vector \( a = b \)

Definition at line 53 of file math.c.

Here is the call graph for this function:

opencl_glsc2()

real opencl_glsc2	(	void *	a,
		void *	b,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper glsc2 Weighted inner product \( a^T b c \)

Definition at line 1059 of file math.c.

Here is the call graph for this function:

opencl_glsc3()

real opencl_glsc3	(	void *	a,
		void *	b,
		void *	c,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper glsc3 Weighted inner product \( a^T b c \)

Definition at line 939 of file math.c.

Here is the call graph for this function:

opencl_glsc3_many()

void opencl_glsc3_many	(	real *	h,
		void *	w,
		void *	v,
		void *	mult,
		int *	j,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for doing a reduction to an array Weighted inner product \( w^T v(n,1:j) c \)

Definition at line 994 of file math.c.

Here is the call graph for this function:

opencl_glsubnorm2()

real opencl_glsubnorm2	(	void *	a,
		void *	b,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper glsubnorm2 Weighted inner product \( a^T b c \)

Definition at line 1108 of file math.c.

Here is the call graph for this function:

opencl_glsum()

real opencl_glsum	(	void *	a,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper glsum Sum a vector of length n

Definition at line 1157 of file math.c.

Here is the call graph for this function:

opencl_iadd()

void opencl_iadd	(	void *	a,
		int *	c,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for cadd Add a scalar to vector \( a = \sum a_i + s \)

Definition at line 1205 of file math.c.

Here is the call graph for this function:

opencl_invcol1()

void opencl_invcol1	(	void *	a,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for invcol1 Invert a vector \( a = 1 / a \)

Definition at line 617 of file math.c.

Here is the call graph for this function:

opencl_invcol2()

void opencl_invcol2	(	void *	a,
		void *	b,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for invcol2 Vector division \( a = a / b \)

Definition at line 642 of file math.c.

Here is the call graph for this function:

opencl_masked_copy()

void opencl_masked_copy	(	void *	a,
		void *	b,
		void *	mask,
		int *	n,
		int *	m,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for masked copy Copy a vector \( a(mask) = b(mask) \)

Definition at line 62 of file math.c.

Here is the call graph for this function:

opencl_masked_gather_copy()

void opencl_masked_gather_copy	(	void *	a,
		void *	b,
		void *	mask,
		int *	n,
		int *	m,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for masked reduced copy Copy a vector \( a = b(mask) \)

Definition at line 91 of file math.c.

Here is the call graph for this function:

opencl_masked_scatter_copy()

void opencl_masked_scatter_copy	(	void *	a,
		void *	b,
		void *	mask,
		int *	n,
		int *	m,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for masked scatter copy Copy a vector \( a(mask) = b \)

Definition at line 121 of file math.c.

Here is the call graph for this function:

opencl_radd()

void opencl_radd	(	void *	a,
		real *	c,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for cadd Add a scalar to vector \( a = \sum a_i + s \)

Definition at line 307 of file math.c.

Here is the call graph for this function:

opencl_rone()

void opencl_rone	(	void *	a,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for rone Set all elements to one

Definition at line 191 of file math.c.

Here is the call graph for this function:

opencl_rzero()

void opencl_rzero	(	void *	a,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for rzero Zero a real vector

Definition at line 179 of file math.c.

Here is the call graph for this function:

opencl_sub2()

void opencl_sub2	(	void *	a,
		void *	b,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for sub2 Vector subtraction \( a = a - b \)

Definition at line 750 of file math.c.

Here is the call graph for this function:

opencl_sub3()

void opencl_sub3	(	void *	a,
		void *	b,
		void *	c,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for sub3 Vector subtraction \( a = b - c \)

Definition at line 776 of file math.c.

Here is the call graph for this function:

opencl_subcol3()

void opencl_subcol3	(	void *	a,
		void *	b,
		void *	c,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for subcol3 Vector multiplication with 3 vectors \( a = a - b \cdot c \)

Definition at line 722 of file math.c.

Here is the call graph for this function:

opencl_vcross()

void opencl_vcross	(	void *	u1,
		void *	u2,
		void *	u3,
		void *	v1,
		void *	v2,
		void *	v3,
		void *	w1,
		void *	w2,
		void *	w3,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for vcross \( u = v \tiems w \)

Definition at line 896 of file math.c.

Here is the call graph for this function:

opencl_vdot3()

void opencl_vdot3	(	void *	dot,
		void *	u1,
		void *	u2,
		void *	u3,
		void *	v1,
		void *	v2,
		void *	v3,
		int *	n,
		cl_command_queue	cmd_queue
	)

Fortran wrapper for vdot3 \( dot = u \cdot v \)

Definition at line 862 of file math.c.

Here is the call graph for this function:

Variable Documentation

bufred

real* bufred = NULL

Definition at line 932 of file math.c.

bufred_d

cl_mem bufred_d = NULL

Definition at line 933 of file math.c.

red_s

int red_s = 0

Todo:

cleanup this mess

Definition at line 931 of file math.c.