amd/blis
1
0
Fork 0
mirror of https://github.com/amd/blis.git synced 2026-06-06 04:34:02 +00:00
Code Issues Packages Projects Releases Wiki Activity

CPP Implementtaion of dsdot included. Test application refactored to include review comments

Browse Source 
Change-Id: Iec0b973c23a2825e61f2ec9da236b3aea327d98a
This commit is contained in:
Chithra Sankar
2019-09-20 11:52:55 +05:30
parent ce0b1caa7f
commit be25ec0065
3 changed files with 42 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
cpp/blis.hh
View File

@@ -366,7 +366,7 @@ void axpy(
cblas_axpy( n, alpha, x, incx, y, incy );
}
/*! \brief Performs forms the dot product of two vectors for arbitrary data types
/*! \brief Performs the dot product of two vectors for arbitrary data types
\b Purpose:
@@ -400,16 +400,19 @@ void axpy(
\return Unconjugated dot product, x^T * y.
REAL/DOUBLE PRECISION
*/
template< typename TX, typename TY >
TY dot(
template< typename T, typename TR >
TR dot(
int64_t n,
TX const *x, int64_t incx,
TX const *y, int64_t incy )
T const *x, int64_t incx,
T const *y, int64_t incy )
{
return cblas_dot( n, x, incx, y, incy );
if((std::is_same<T, float>::value)&(std::is_same<T, double>::value))
return cblas_dsdot( n, x, incx, y, incy );
else
return cblas_dot( n, x, incx, y, incy );
}
/*! \brief Performs forms the dot product of two complex vectors
/*! \brief Performs the dot product of two complex vectors
\b Purpose:
@@ -451,7 +454,7 @@ T dotu(
return cblas_dotu( n, x, incx, y, incy );
}
/*! \brief Performs forms the dot product of two complex vectors
/*! \brief Performs the dot product of two complex vectors
\b Purpose:
@@ -2982,7 +2985,7 @@ void gemm(
cblas_gemm(layout, transA, transB, m, n, k, alpha, A,lda, B, ldb, beta, C, ldc);
}
/*! \brief Solve the triangular matrix-vector equation for arbitrary data types
/*! \brief Solve the triangular matrix-matrix equation for arbitrary data types
\b Purpose:

10
cpp/cblas.hh
View File

@@ -290,16 +290,6 @@ cblas_dot(
{
return cblas_ddot( n, x, incx, y, incy );
}
#if 0
inline double
cblas_dot(
int n,
float const *x, int incx,
float const *y, int incy )
{
return cblas_dsdot( n, x, incx, y, incy );
}
#endif
// -----------------------------------------------------------------------------
inline std::complex<float>
cblas_dotu(