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

Update rotg tests

This commit is contained in:
kseniyazaytseva 2024-02-08 00:22:15 +03:00
parent ec5cfe3bc8
commit cfabc48190
2 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
utest/test_extensions/test_crotg.c
View File

@ -48,10 +48,10 @@ CTEST(crotg, zero_a)
float sc;
BLASFUNC(crotg)(sa, sb, &sc, ss);
ASSERT_DBL_NEAR_TOL(0.0f, sc, SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(1.0f, ss[0], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(0.0f, ss[1], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(1.0f, sa[0], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(1.0f, sa[1], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(0.70711f, ss[0], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(-0.70711f, ss[1], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(1.41421f, sa[0], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(0.0f, sa[1], SINGLE_EPS);
}
/**
@ -83,8 +83,8 @@ CTEST(crotg, zero_real)
float ss[2];
float sc;
BLASFUNC(crotg)(sa, sb, &sc, ss);
ASSERT_DBL_NEAR_TOL(0.7071f, sc, SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(0.7071f, ss[0], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(0.70711f, sc, SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(0.70711f, ss[0], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(0.0f, ss[1], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(0.0f, sa[0], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(1.41421f, sa[1], SINGLE_EPS);
@ -174,10 +174,10 @@ CTEST(crotg, c_api_zero_a)
float sc;
cblas_crotg(sa, sb, &sc, ss);
ASSERT_DBL_NEAR_TOL(0.0f, sc, SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(1.0f, ss[0], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(0.0f, ss[1], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(1.0f, sa[0], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(1.0f, sa[1], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(0.70711f, ss[0], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(-0.70711f, ss[1], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(1.41421f, sa[0], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(0.0f, sa[1], SINGLE_EPS);
}
/**
@ -209,8 +209,8 @@ CTEST(crotg, c_api_zero_real)
float ss[2];
float sc;
cblas_crotg(sa, sb, &sc, ss);
ASSERT_DBL_NEAR_TOL(0.7071f, sc, SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(0.7071f, ss[0], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(0.70711f, sc, SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(0.70711f, ss[0], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(0.0f, ss[1], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(0.0f, sa[0], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(1.41421f, sa[1], SINGLE_EPS);

16
utest/test_extensions/test_zrotg.c
View File

@ -48,10 +48,10 @@ CTEST(zrotg, zero_a)
double sc;
BLASFUNC(zrotg)(sa, sb, &sc, ss);
ASSERT_DBL_NEAR_TOL(0.0, sc, DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(1.0, ss[0], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(0.0, ss[1], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(1.0, sa[0], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(1.0, sa[1], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(0.70710678118655, ss[0], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(-0.70710678118655, ss[1], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(1.41421356237310, sa[0], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(0.0, sa[1], DOUBLE_EPS);
}
/**
@ -174,10 +174,10 @@ CTEST(zrotg, c_api_zero_a)
double sc;
cblas_zrotg(sa, sb, &sc, ss);
ASSERT_DBL_NEAR_TOL(0.0, sc, DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(1.0, ss[0], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(0.0, ss[1], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(1.0, sa[0], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(1.0, sa[1], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(0.70710678118655, ss[0], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(-0.70710678118655, ss[1], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(1.41421356237310, sa[0], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(0.0, sa[1], DOUBLE_EPS);
}
/**