From e113ff0852d21ecb898b3b192145b70cad3f338a Mon Sep 17 00:00:00 2001 From: Cedric Nugteren Date: Sat, 30 Apr 2016 09:49:39 +0200 Subject: Added non-aboslute minimum counter-part IxMIN of the BLAS routine IxAMAX --- src/kernels/level1/xamax.opencl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src/kernels/level1/xamax.opencl') diff --git a/src/kernels/level1/xamax.opencl b/src/kernels/level1/xamax.opencl index 58b75ce2..48d0eb5c 100644 --- a/src/kernels/level1/xamax.opencl +++ b/src/kernels/level1/xamax.opencl @@ -41,7 +41,7 @@ __kernel void Xamax(const int n, const int num_groups = get_num_groups(0); // Performs loading and the first steps of the reduction - #if defined(ROUTINE_MAX) // non-absolute version + #if defined(ROUTINE_MAX) || defined(ROUTINE_MIN) // non-absolute version singlereal max = SMALLEST; #else singlereal max = ZERO; @@ -55,7 +55,10 @@ __kernel void Xamax(const int n, #else singlereal x = xgm[x_index]; #endif - #if defined(ROUTINE_MAX) // non-absolute version + #if defined(ROUTINE_MAX) // non-absolute maximum version + // nothing special here + #elif defined(ROUTINE_MIN) // non-absolute minimum version + x = -x; #else x = fabs(x); #endif -- cgit v1.2.3