int main()
{
UTCStamp actual;
LocaltimeStamp actualLocal;
UTCStamp zeroUTC(0);
LocaltimeStamp zeroLocal(zeroUTC);
cout << "Erster moeglicher Zeitstempel: " << zeroLocal << " (" << zeroLocal.getTimeZone() << " h)" << endl;
cout << " " << zeroUTC << " UTC" <<
endl << endl;
cout << "Aktueller Zeitstempel: " << actualLocal.getTimestamp() << " = ";
cout << actualLocal << " (" << actualLocal.getTimeZone() << " h)" << endl;
cout << " " << UTCStamp(actualLocal).getTimestamp() << " = ";
cout << UTCStamp(actualLocal) << " UTC" << endl;
actualLocal=LocaltimeStamp(Date(12,6,2014));
actual=UTCStamp(Date(12,6,2014));
cout << endl << "Zeitstempel ueber Datums-/Zeitangaben:" << endl;
cout << "12.06.2014 0:00 Lokal: " << actualLocal.getTimestamp() << " = ";
cout << actualLocal << " (" << actualLocal.getTimeZone() << " h)" << endl;
cout << "12.06.2014 0:00 UTC: " << actual.getTimestamp() << " = ";
cout << actual << " UTC" << endl;
actualLocal=LocaltimeStamp(Date(12,12,2014), Time(1,0,0));
actual=UTCStamp(Date(12,12,2014));
cout << "12.12.2014 1:00 Lokal: " << actualLocal.getTimestamp() << " = ";
cout << actualLocal << " (" << actualLocal.getTimeZone() << " h)" << endl;
cout << "12.12.2014 0:00 UTC: " << actual.getTimestamp() << " = ";
cout << actual << " UTC" << endl;
cout << endl << "Konstruktion ueber Sekunden:" << endl;
cout << "1418342400 s: " << LocaltimeStamp(1418342400) << " Local" << endl;
cout << "1418342400 s: " << UTCStamp(1418342400) << " UTC" << endl;
cout << endl << "Simulation des Wechsels Winter- zu Sommerzeit:" << endl;
actualLocal=LocaltimeStamp(Date(30,3,2014), Time(1,0,0));
actual=actualLocal;
for (int hours=0; hours<3; hours++)
{
cout << "Zeitstempel: " << actualLocal.getTimestamp() << " = ";
cout << actualLocal.getDate() << " - " << actualLocal.getTime() <<
" (" << actualLocal.getTimeZone() << " h)" << endl;
cout << " " << actual.getTimestamp() << " = ";
cout << actual.getDate() << " - " << actual.getTime() <<
" UTC" << endl;
actualLocal.tickHours(1);
actual.tickHours(1);
}
cout << endl << "Simulation des Wechsels Sommer- zu Winterzeit:" << endl;
actualLocal=LocaltimeStamp(Date(26,10,2014), Time(1,0,0));
for (int hours=0; hours<3; hours++)
{
actual=actualLocal;
cout << "Zeitstempel: " << actualLocal.getTimestamp() << " = ";
cout << actualLocal.getDate() << " - " << actualLocal.getTime() <<
" (" << actualLocal.getTimeZone() << " h)" << endl;
cout << " " << actual.getTimestamp() << " = ";
cout << actual.getDate() << " - " << actual.getTime() <<
" UTC" << endl;
actualLocal.tickHours(1);
}
Date d1(1,1,2014), d2(29,12,2014);
UTCStamp utc1(d2);
LocaltimeStamp local1(d2);
cout << "Vergleiche:" << endl;
cout << d1 << " < " << d2 << " => " << (d1<d2) << endl;
cout << d1 << " != " << d2 << " => " << (d1!=d2) << endl;
cout << d1 << " != " << d1 << " => " << (d1!=d1) << endl;
cout << d1 << " > " << d1 << " => " << (d1>d1) << endl;
cout << utc1 << " (UTC) == " << d2 << " => " << (utc1==d2) << endl;
cout << local1 << " (LocalTime) == " << d2 << " => " << (local1==d2) << endl;
cout << local1 << " (LocalTime) < " << d2 << " => " << (local1<d2) << endl;
return 0;
}
clsparseStatus
reduce_by_key(
int keys_first,
int keys_last,
int values_first,
cl_mem keys_input,
cl_mem values_input,
cl_mem keys_output,
cl_mem values_output,
int *count,
clsparseControl control
)
{
cl_int l_Error;
/**********************************************************************************
* Compile Options
*********************************************************************************/
const int kernel0_WgSize = WAVESIZE*KERNEL02WAVES;
const int kernel1_WgSize = WAVESIZE*KERNEL1WAVES;
const int kernel2_WgSize = WAVESIZE*KERNEL02WAVES;
//const std::string params = std::string() +
// " -DKERNEL0WORKGROUPSIZE=" + std::to_string(kernel0_WgSize)
// + " -DKERNEL1WORKGROUPSIZE=" + std::to_string(kernel1_WgSize)
// + " -DKERNEL2WORKGROUPSIZE=" + std::to_string(kernel2_WgSize);
const std::string params;
cl::Context context = control->getContext();
std::vector<cl::Device> dev = context.getInfo<CL_CONTEXT_DEVICES>();
int computeUnits = dev[0].getInfo< CL_DEVICE_MAX_COMPUTE_UNITS >( );
int wgPerComputeUnit = dev[0].getInfo< CL_DEVICE_MAX_WORK_GROUP_SIZE >( );
int resultCnt = computeUnits * wgPerComputeUnit;
cl_uint numElements = keys_last - keys_first + 1;
size_t sizeInputBuff = numElements;
int modWgSize = (sizeInputBuff & (kernel0_WgSize-1));
if( modWgSize )
{
sizeInputBuff &= ~modWgSize;
sizeInputBuff += kernel0_WgSize;
}
cl_uint numWorkGroupsK0 = static_cast< cl_uint >( sizeInputBuff / kernel0_WgSize );
size_t sizeScanBuff = numWorkGroupsK0;
modWgSize = (sizeScanBuff & (kernel0_WgSize-1));
if( modWgSize )
{
sizeScanBuff &= ~modWgSize;
sizeScanBuff += kernel0_WgSize;
}
cl_mem tempArrayVec = clCreateBuffer(context(),CL_MEM_READ_WRITE, (numElements)*sizeof(int), NULL, NULL );
/**********************************************************************************
* Kernel 0
*********************************************************************************/
cl::Kernel kernel0 = KernelCache::get(control->queue,"reduce_by_key", "OffsetCalculation", params);
KernelWrap kWrapper0(kernel0);
kWrapper0 << keys_input << tempArrayVec
<< numElements;
cl::NDRange local0(kernel0_WgSize);
cl::NDRange global0(sizeInputBuff);
cl_int status = kWrapper0.run(control, global0, local0);
if (status != CL_SUCCESS)
{
return clsparseInvalidKernelExecution;
}
int init = 0;
scan(0,
numElements - 1,
tempArrayVec,
tempArrayVec,
0,
0,
control
);
int pattern = 0;
cl_mem keySumArray = clCreateBuffer(context(),CL_MEM_READ_WRITE, (sizeScanBuff)*sizeof(int), NULL, NULL );
cl_mem preSumArray = clCreateBuffer(context(),CL_MEM_READ_WRITE, (sizeScanBuff)*sizeof(int), NULL, NULL );
cl_mem postSumArray = clCreateBuffer(context(),CL_MEM_READ_WRITE,(sizeScanBuff)*sizeof(int), NULL, NULL );
clEnqueueFillBuffer(control->queue(), keySumArray, &pattern, sizeof(int), 0,
(sizeScanBuff)*sizeof(int), 0, NULL, NULL);
clEnqueueFillBuffer(control->queue(), preSumArray, &pattern, sizeof(int), 0,
(sizeScanBuff)*sizeof(int), 0, NULL, NULL);
clEnqueueFillBuffer(control->queue(), postSumArray, &pattern, sizeof(int), 0,
(sizeScanBuff)*sizeof(int), 0, NULL, NULL);
/**********************************************************************************
* Kernel 1
*********************************************************************************/
cl::Kernel kernel1 = KernelCache::get(control->queue,"reduce_by_key", "perBlockScanByKey", params);
KernelWrap kWrapper1(kernel1);
kWrapper1 << tempArrayVec
<< values_input
<< numElements
<< keySumArray
<< preSumArray;
cl::NDRange local1(kernel0_WgSize);
cl::NDRange global1(sizeInputBuff);
status = kWrapper1.run(control, global1, local1);
if (status != CL_SUCCESS)
{
return clsparseInvalidKernelExecution;
}
/**********************************************************************************
* Kernel 2
*********************************************************************************/
cl_uint workPerThread = static_cast< cl_uint >( sizeScanBuff / kernel1_WgSize );
cl::Kernel kernel2 = KernelCache::get(control->queue,"reduce_by_key", "intraBlockInclusiveScanByKey", params);
KernelWrap kWrapper2(kernel2);
kWrapper2 << keySumArray << preSumArray
<< postSumArray << numWorkGroupsK0 << workPerThread;
cl::NDRange local2(kernel1_WgSize);
cl::NDRange global2(kernel1_WgSize);
status = kWrapper2.run(control, global2, local2);
if (status != CL_SUCCESS)
{
return clsparseInvalidKernelExecution;
}
/**********************************************************************************
* Kernel 3
*********************************************************************************/
cl::Kernel kernel3 = KernelCache::get(control->queue,"reduce_by_key", "keyValueMapping", params);
KernelWrap kWrapper3(kernel3);
kWrapper3 << keys_input << keys_output
<< values_input << values_output << tempArrayVec
<< keySumArray << postSumArray << numElements;
cl::NDRange local3(kernel0_WgSize);
cl::NDRange global3(sizeInputBuff);
status = kWrapper3.run(control, global3, local3);
if (status != CL_SUCCESS)
{
return clsparseInvalidKernelExecution;
}
int *h_result = (int *) malloc (sizeof(int));
clEnqueueReadBuffer(control->queue(),
tempArrayVec,
1,
(numElements-1)*sizeof(int),
sizeof(int),
h_result,
0,
0,
0);
*count = *(h_result);
//printf("h_result = %d\n", *count );
//release buffers
clReleaseMemObject(tempArrayVec);
clReleaseMemObject(preSumArray);
clReleaseMemObject(postSumArray);
clReleaseMemObject(keySumArray);
return clsparseSuccess;
} //end of reduce_by_key
