mirror of
https://github.com/archlinuxarm/PKGBUILDs.git
synced 2024-11-08 22:45:43 +00:00
41 lines
2.7 KiB
Diff
41 lines
2.7 KiB
Diff
|
diff --git a/modules/core/src/hal_internal.cpp b/modules/core/src/hal_internal.cpp
|
||
|
|
index 483281d1f7..6db47f22d8 100644
|
||
|
|
--- a/modules/core/src/hal_internal.cpp
|
||
|
|
+++ b/modules/core/src/hal_internal.cpp
|
||
|
|
@@ -290,7 +290,7 @@ lapack_QR(fptype* a, size_t a_step, int m, int n, int k, fptype* b, size_t b_ste
|
||
|
|
if (typeid(fptype) == typeid(float))
|
||
|
|
sgels_(mode, &m, &n, &k, (float*)tmpA, &ldtmpA, (float*)b, &m, (float*)&work1, &lwork, info);
|
||
|
|
else if (typeid(fptype) == typeid(double))
|
||
|
|
- dgels_(mode, &m, &n, &k, (double*)tmpA, &ldtmpA, (double*)b, &m, (double*)&work1, &lwork, info);
|
||
|
|
+ LAPACK_dgels(mode, &m, &n, &k, (double*)tmpA, &ldtmpA, (double*)b, &m, (double*)&work1, &lwork, info);
|
||
|
|
|
||
|
|
lwork = cvRound(work1); //optimal buffer size
|
||
|
|
std::vector<fptype> workBufMemHolder(lwork + 1);
|
||
|
|
@@ -299,7 +299,7 @@ lapack_QR(fptype* a, size_t a_step, int m, int n, int k, fptype* b, size_t b_ste
|
||
|
|
if (typeid(fptype) == typeid(float))
|
||
|
|
sgels_(mode, &m, &n, &k, (float*)tmpA, &ldtmpA, (float*)b, &m, (float*)buffer, &lwork, info);
|
||
|
|
else if (typeid(fptype) == typeid(double))
|
||
|
|
- dgels_(mode, &m, &n, &k, (double*)tmpA, &ldtmpA, (double*)b, &m, (double*)buffer, &lwork, info);
|
||
|
|
+ LAPACK_dgels(mode, &m, &n, &k, (double*)tmpA, &ldtmpA, (double*)b, &m, (double*)buffer, &lwork, info);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
@@ -311,7 +311,7 @@ lapack_QR(fptype* a, size_t a_step, int m, int n, int k, fptype* b, size_t b_ste
|
||
|
|
if (typeid(fptype) == typeid(float))
|
||
|
|
sgels_(mode, &m, &n, &k, (float*)tmpA, &ldtmpA, (float*)tmpB, &m, (float*)&work1, &lwork, info);
|
||
|
|
else if (typeid(fptype) == typeid(double))
|
||
|
|
- dgels_(mode, &m, &n, &k, (double*)tmpA, &ldtmpA, (double*)tmpB, &m, (double*)&work1, &lwork, info);
|
||
|
|
+ LAPACK_dgels(mode, &m, &n, &k, (double*)tmpA, &ldtmpA, (double*)tmpB, &m, (double*)&work1, &lwork, info);
|
||
|
|
|
||
|
|
lwork = cvRound(work1); //optimal buffer size
|
||
|
|
std::vector<fptype> workBufMemHolder(lwork + 1);
|
||
|
|
@@ -320,7 +320,7 @@ lapack_QR(fptype* a, size_t a_step, int m, int n, int k, fptype* b, size_t b_ste
|
||
|
|
if (typeid(fptype) == typeid(float))
|
||
|
|
sgels_(mode, &m, &n, &k, (float*)tmpA, &ldtmpA, (float*)tmpB, &m, (float*)buffer, &lwork, info);
|
||
|
|
else if (typeid(fptype) == typeid(double))
|
||
|
|
- dgels_(mode, &m, &n, &k, (double*)tmpA, &ldtmpA, (double*)tmpB, &m, (double*)buffer, &lwork, info);
|
||
|
|
+ LAPACK_dgels(mode, &m, &n, &k, (double*)tmpA, &ldtmpA, (double*)tmpB, &m, (double*)buffer, &lwork, info);
|
||
|
|
|
||
|
|
transpose(tmpB, m, b, ldb, k, m);
|
||
|
|
}
|