floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix rand_generate

This commit is contained in:
Andrey Sokolov 2024-01-18 23:54:51 +03:00
parent bf39c0d8b5
commit c99e231fc5
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utest/test_extensions/common.c
View File

@ -40,14 +40,14 @@ void srand_generate(float *alpha, blasint n)
{
blasint i;
for (i = 0; i < n; i++)
alpha[i] = (float)rand() / (float)RAND_MAX * 5.0f;
alpha[i] = (float)rand() / (float)RAND_MAX;
}
void drand_generate(double *alpha, blasint n)
{
blasint i;
for (i = 0; i < n; i++)
alpha[i] = (double)rand() / (double)RAND_MAX * 5.0;
alpha[i] = (double)rand() / (double)RAND_MAX;
}
/**

4
utest/test_extensions/test_zgeadd.c
View File

@ -103,8 +103,8 @@ static double check_zgeadd(char api, OPENBLAS_CONST enum CBLAS_ORDER order,
}
// Fill matrix A, C
srand_generate(data_zgeadd.a_test, lda * rows * 2);
srand_generate(data_zgeadd.c_test, ldc * rows * 2);
drand_generate(data_zgeadd.a_test, lda * rows * 2);
drand_generate(data_zgeadd.c_test, ldc * rows * 2);
// Copy matrix C for zgeadd
for (i = 0; i < ldc * rows * 2; i++)

4
utest/test_extensions/test_ztrmv.c
View File

@ -66,8 +66,8 @@ static double check_ztrmv(char uplo, char trans, char diag, blasint n, blasint l
double alpha_conj[] = {1.0, 0.0};
char trans_verify = trans;
srand_generate(data_ztrmv.a_test, n * lda * 2);
srand_generate(data_ztrmv.x_test, n * incx * 2);
drand_generate(data_ztrmv.a_test, n * lda * 2);
drand_generate(data_ztrmv.x_test, n * incx * 2);
for (i = 0; i < n * lda * 2; i++)
data_ztrmv.a_verify[i] = data_ztrmv.a_test[i];

4
utest/test_extensions/test_ztrsv.c
View File

@ -66,8 +66,8 @@ static double check_ztrsv(char uplo, char trans, char diag, blasint n, blasint l
double alpha_conj[] = {1.0, 0.0};
char trans_verify = trans;
srand_generate(data_ztrsv.a_test, n * lda * 2);
srand_generate(data_ztrsv.x_test, n * incx * 2);
drand_generate(data_ztrsv.a_test, n * lda * 2);
drand_generate(data_ztrsv.x_test, n * incx * 2);
for (i = 0; i < n * lda * 2; i++)
data_ztrsv.a_verify[i] = data_ztrsv.a_test[i];