mirror of
https://github.com/amd/blis.git
synced 2026-05-11 17:50:00 +00:00
cff29bde76
Moved blis gtestsuite from lib-confscript to blis repo (branch: amd-main) Change-Id: If7ad391eef66bac6d26cf5223e6043d52b746072
115 lines
2.9 KiB
C++
115 lines
2.9 KiB
C++
#include "blis_test.h"
|
|
#include "blis_utils.h"
|
|
#include "test_copyv.h"
|
|
|
|
using namespace std;
|
|
|
|
//* ==========================================================================
|
|
//*> COPYV performs vector operations
|
|
//*> y := conjx(x)
|
|
//*> where x and y are vectors of length n.
|
|
//* ==========================================================================
|
|
|
|
template <typename T, typename U>
|
|
void libblis_icopyv_check(dim_t len, T* X, dim_t incx, T* Y, dim_t incy) {
|
|
|
|
dim_t i, ix, iy;
|
|
if (len == 0) {
|
|
return;
|
|
}
|
|
|
|
ix = 0;
|
|
iy = 0;
|
|
for(i = 0 ; i < len ; i++) {
|
|
Y[iy] = X[ix];
|
|
ix = ix + incx;
|
|
iy = iy + incy;
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
template <typename T, typename U>
|
|
void libblis_iccopyv_check(dim_t len, T* X, dim_t incx, T* Y,
|
|
dim_t incy, bool cfx) {
|
|
dim_t i, ix, iy;
|
|
if (len == 0) {
|
|
return;
|
|
}
|
|
|
|
if(cfx) {
|
|
ix = 0;
|
|
for(i = 0 ; i < len ; i++) {
|
|
X[ix] = conjugate<T>(X[ix]);
|
|
ix = ix + incx;
|
|
}
|
|
}
|
|
|
|
ix = 0;
|
|
iy = 0;
|
|
for(i = 0 ; i < len ; i++) {
|
|
Y[iy] = X[ix];
|
|
ix = ix + incx;
|
|
iy = iy + incy;
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
double libblis_test_icopyv_check(
|
|
test_params_t* params,
|
|
obj_t* x,
|
|
obj_t* y,
|
|
obj_t* y_orig
|
|
) {
|
|
num_t dt = bli_obj_dt( x );
|
|
dim_t M = bli_obj_vector_dim( x );
|
|
bool cfx = bli_obj_has_conj( x );
|
|
f77_int incx = bli_obj_vector_inc( x );
|
|
f77_int incy = bli_obj_vector_inc( y_orig );
|
|
double resid = 0.0;
|
|
|
|
switch( dt ) {
|
|
case BLIS_FLOAT :
|
|
{
|
|
float* X = (float*) bli_obj_buffer( x );
|
|
float* Y = (float*) bli_obj_buffer( y_orig );
|
|
float* YY = (float*) bli_obj_buffer( y );
|
|
libblis_icopyv_check<float, int32_t>( M, X, incx, Y, incy );
|
|
resid = computediffrv(M, incy, YY, Y);
|
|
break;
|
|
}
|
|
case BLIS_DOUBLE :
|
|
{
|
|
double* X = (double*) bli_obj_buffer( x );
|
|
double* Y = (double*) bli_obj_buffer( y_orig );
|
|
double* YY = (double*) bli_obj_buffer( y );
|
|
libblis_icopyv_check<double, int64_t>( M, X, incx, Y, incy );
|
|
resid = computediffrv(M, incy, YY, Y);
|
|
break;
|
|
}
|
|
case BLIS_SCOMPLEX :
|
|
{
|
|
scomplex* X = (scomplex*) bli_obj_buffer( x );
|
|
scomplex* Y = (scomplex*) bli_obj_buffer( y_orig );
|
|
scomplex* YY = (scomplex*) bli_obj_buffer( y );
|
|
libblis_iccopyv_check<scomplex, int32_t>( M, X, incx, Y, incy, cfx );
|
|
resid = computediffiv(M, incy, YY, Y);
|
|
break;
|
|
}
|
|
case BLIS_DCOMPLEX :
|
|
{
|
|
dcomplex* X = (dcomplex*) bli_obj_buffer( x );
|
|
dcomplex* Y = (dcomplex*) bli_obj_buffer( y_orig );
|
|
dcomplex* YY = (dcomplex*) bli_obj_buffer( y );
|
|
libblis_iccopyv_check<dcomplex, int64_t>( M, X, incx, Y, incy, cfx );
|
|
resid = computediffiv(M, incy, YY, Y);
|
|
break;
|
|
}
|
|
default :
|
|
bli_check_error_code( BLIS_INVALID_DATATYPE );
|
|
}
|
|
|
|
return resid;
|
|
}
|