35 lines
1.3 KiB
Common Lisp
35 lines
1.3 KiB
Common Lisp
|
|
|
|
MSTRINGIFY(
|
|
|
|
/*
|
|
Bullet Continuous Collision Detection and Physics Library, http://bulletphysics.org
|
|
Copyright (C) 2006 - 2009 Sony Computer Entertainment Inc.
|
|
|
|
This software is provided 'as-is', without any express or implied warranty.
|
|
In no event will the authors be held liable for any damages arising from the use of this software.
|
|
Permission is granted to anyone to use this software for any purpose,
|
|
including commercial applications, and to alter it and redistribute it freely,
|
|
subject to the following restrictions:
|
|
|
|
1. The origin of this software must not be misrepresented; you must not claim that you wrote the original software. If you use this software in a product, an acknowledgment in the product documentation would be appreciated but is not required.
|
|
2. Altered source versions must be plainly marked as such, and must not be misrepresented as being the original software.
|
|
3. This notice may not be removed or altered from any source distribution.
|
|
*/
|
|
|
|
|
|
|
|
///////////////////////////////////////////////////
|
|
// OpenCL Kernel Function for element by element vector addition
|
|
__kernel void VectorAdd(__global const float8* a, __global const float8* b, __global float8* c GUID_ARG)
|
|
{
|
|
// get oct-float index into global data array
|
|
int iGID = get_global_id(0);
|
|
if (iGID>=100000)
|
|
return;
|
|
|
|
// write back out to GMEM
|
|
c[iGID] = a[iGID] + b[iGID];
|
|
}
|
|
|
|
); |