mirror of
https://gitlab.alpinelinux.org/alpine/aports.git
synced 2025-10-31 16:31:40 +01:00
56 lines
2.7 KiB
Plaintext
56 lines
2.7 KiB
Plaintext
--- a/src/matrix/cblas-wrappers.h
|
|
+++ b/src/matrix/cblas-wrappers.h
|
|
@@ -383,10 +383,10 @@ inline void mul_elements(
|
|
// add clapack here
|
|
#if !defined(HAVE_ATLAS)
|
|
inline void clapack_Xtptri(KaldiBlasInt *num_rows, float *Mdata, KaldiBlasInt *result) {
|
|
- stptri_(const_cast<char *>("U"), const_cast<char *>("N"), num_rows, Mdata, result);
|
|
+ stptri_(const_cast<char *>("U"), const_cast<char *>("N"), num_rows, Mdata, result, 1, 1);
|
|
}
|
|
inline void clapack_Xtptri(KaldiBlasInt *num_rows, double *Mdata, KaldiBlasInt *result) {
|
|
- dtptri_(const_cast<char *>("U"), const_cast<char *>("N"), num_rows, Mdata, result);
|
|
+ dtptri_(const_cast<char *>("U"), const_cast<char *>("N"), num_rows, Mdata, result, 1, 1);
|
|
}
|
|
//
|
|
inline void clapack_Xgetrf2(KaldiBlasInt *num_rows, KaldiBlasInt *num_cols,
|
|
@@ -420,7 +420,7 @@ inline void clapack_Xgesvd(char *v, char *u, KaldiBlasInt *num_cols,
|
|
sgesvd_(v, u,
|
|
num_cols, num_rows, Mdata, stride,
|
|
sv, Vdata, vstride, Udata, ustride,
|
|
- p_work, l_work, result);
|
|
+ p_work, l_work, result, 1, 1);
|
|
}
|
|
inline void clapack_Xgesvd(char *v, char *u, KaldiBlasInt *num_cols,
|
|
KaldiBlasInt *num_rows, double *Mdata, KaldiBlasInt *stride,
|
|
@@ -430,25 +430,25 @@ inline void clapack_Xgesvd(char *v, char *u, KaldiBlasInt *num_cols,
|
|
dgesvd_(v, u,
|
|
num_cols, num_rows, Mdata, stride,
|
|
sv, Vdata, vstride, Udata, ustride,
|
|
- p_work, l_work, result);
|
|
+ p_work, l_work, result, 1, 1);
|
|
}
|
|
//
|
|
void inline clapack_Xsptri(KaldiBlasInt *num_rows, float *Mdata,
|
|
KaldiBlasInt *ipiv, float *work, KaldiBlasInt *result) {
|
|
- ssptri_(const_cast<char *>("U"), num_rows, Mdata, ipiv, work, result);
|
|
+ ssptri_(const_cast<char *>("U"), num_rows, Mdata, ipiv, work, result, 1);
|
|
}
|
|
void inline clapack_Xsptri(KaldiBlasInt *num_rows, double *Mdata,
|
|
KaldiBlasInt *ipiv, double *work, KaldiBlasInt *result) {
|
|
- dsptri_(const_cast<char *>("U"), num_rows, Mdata, ipiv, work, result);
|
|
+ dsptri_(const_cast<char *>("U"), num_rows, Mdata, ipiv, work, result, 1);
|
|
}
|
|
//
|
|
void inline clapack_Xsptrf(KaldiBlasInt *num_rows, float *Mdata,
|
|
KaldiBlasInt *ipiv, KaldiBlasInt *result) {
|
|
- ssptrf_(const_cast<char *>("U"), num_rows, Mdata, ipiv, result);
|
|
+ ssptrf_(const_cast<char *>("U"), num_rows, Mdata, ipiv, result, 1);
|
|
}
|
|
void inline clapack_Xsptrf(KaldiBlasInt *num_rows, double *Mdata,
|
|
KaldiBlasInt *ipiv, KaldiBlasInt *result) {
|
|
- dsptrf_(const_cast<char *>("U"), num_rows, Mdata, ipiv, result);
|
|
+ dsptrf_(const_cast<char *>("U"), num_rows, Mdata, ipiv, result, 1);
|
|
}
|
|
#else
|
|
inline void clapack_Xgetrf(MatrixIndexT num_rows, MatrixIndexT num_cols,
|