Browse Source

Fix rand_generate

tags/v0.3.27
Andrey Sokolov 1 year ago
parent
commit
c99e231fc5
4 changed files with 8 additions and 8 deletions
  1. +2
    -2
      utest/test_extensions/common.c
  2. +2
    -2
      utest/test_extensions/test_zgeadd.c
  3. +2
    -2
      utest/test_extensions/test_ztrmv.c
  4. +2
    -2
      utest/test_extensions/test_ztrsv.c

+ 2
- 2
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;
}

/**


+ 2
- 2
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++)


+ 2
- 2
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];


+ 2
- 2
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];


Loading…
Cancel
Save