amd/blis
1
0
Fork 0
mirror of https://github.com/amd/blis.git synced 2026-05-12 01:59:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge "Fixed a bug in Level-3 bench files" into amd-staging-milan-3.1

Browse Source
This commit is contained in:
Meghana Vankadari
2021-07-04 23:41:17 -04:00
committed by Gerrit Code Review
parent 333fe4ca8b 1944de1cfa
commit 4e246b20c7
5 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bench/bench_gemm.c
View File

@@ -221,7 +221,7 @@ int main( int argc, char** argv )
}
#ifndef BLIS // Incase if we are using blis interface we don't have to check for col-storage.
#ifndef CBLAS
if(bli_obj_row_stride(&c) != 1)
if( ( stor_scheme == 'R' ) || ( stor_scheme == 'r' ) )
{
printf("BLAS APIs doesn't support row-storage: Enable CBLAS\n");
continue;
@@ -271,7 +271,7 @@ int main( int argc, char** argv )
enum CBLAS_TRANSPOSE cblas_transa;
enum CBLAS_TRANSPOSE cblas_transb;
if ( bli_obj_row_stride( &c ) == 1 )
if ( ( stor_scheme == 'C' ) || ( stor_scheme == 'c' ) )
cblas_order = CblasColMajor;
else
cblas_order = CblasRowMajor;

4
bench/bench_gemmt.c
View File

@@ -207,7 +207,7 @@ int main( int argc, char** argv )
continue;
}
#ifndef CBLAS
if(bli_obj_row_stride(&c) != 1)
if( ( stor_scheme == 'R' ) || ( stor_scheme == 'r' ) )
{
printf("BLAS APIs doesn't support row-storage\n");
continue;
@@ -263,7 +263,7 @@ int main( int argc, char** argv )
enum CBLAS_TRANSPOSE cblas_transa;
enum CBLAS_TRANSPOSE cblas_transb;
if ( bli_obj_row_stride( &c ) == 1 )
if ( ( stor_scheme == 'C' ) || ( stor_scheme == 'c' ) )
cblas_order = CblasColMajor;
else
cblas_order = CblasRowMajor;

4
bench/bench_ger.c
View File

@@ -66,6 +66,7 @@ int main( int argc, char** argv )
dim_t p_inc = 0; // to keep track of number of inputs
num_t dt;
char dt_ch;
char stor_scheme;
int r, n_repeats;
double dtime;
@@ -107,6 +108,7 @@ int main( int argc, char** argv )
inc_t incy;
char tmp[256]; // to store function name, line no present in logs.
stor_scheme = 'C';
// {S,D,C,Z} {transa m n alpha incx incy lda}
@@ -185,7 +187,7 @@ int main( int argc, char** argv )
#ifdef CBLAS
enum CBLAS_ORDER cblas_order;
if ( bli_obj_row_stride( &a ) == 1 )
if ( ( stor_scheme == 'C' ) || ( stor_scheme == 'c' ) )
cblas_order = CblasColMajor;
else
cblas_order = CblasRowMajor;

4
bench/bench_syrk.c
View File

@@ -188,7 +188,7 @@ int main( int argc, char** argv )
continue;
}
#ifndef CBLAS
if(bli_obj_row_stride(&c) != 1)
if( ( stor_scheme == 'R' ) || ( stor_scheme == 'r' ) )
{
printf("BLAS APIs doesn't support row-storage\n");
continue;
@@ -239,7 +239,7 @@ int main( int argc, char** argv )
enum CBLAS_UPLO cblas_uplo;
enum CBLAS_TRANSPOSE cblas_transa;
if ( bli_obj_row_stride( &c ) == 1 )
if ( ( stor_scheme == 'C' ) || ( stor_scheme == 'c' ) )
cblas_order = CblasColMajor;
else
cblas_order = CblasRowMajor;

2
bench/bench_trsm.c
View File

@@ -232,7 +232,7 @@ int main( int argc, char** argv )
enum CBLAS_SIDE cblas_side;
enum CBLAS_DIAG cblas_diag;
if ( bli_obj_row_stride( &c ) == 1 )
if ( ( stor_scheme == 'C' ) || ( stor_scheme == 'c' ) )
cblas_order = CblasColMajor;
else
cblas_order = CblasRowMajor;