--- 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("U"), const_cast("N"), num_rows, Mdata, result); + stptri_(const_cast("U"), const_cast("N"), num_rows, Mdata, result, 1, 1); } inline void clapack_Xtptri(KaldiBlasInt *num_rows, double *Mdata, KaldiBlasInt *result) { - dtptri_(const_cast("U"), const_cast("N"), num_rows, Mdata, result); + dtptri_(const_cast("U"), const_cast("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("U"), num_rows, Mdata, ipiv, work, result); + ssptri_(const_cast("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("U"), num_rows, Mdata, ipiv, work, result); + dsptri_(const_cast("U"), num_rows, Mdata, ipiv, work, result, 1); } // void inline clapack_Xsptrf(KaldiBlasInt *num_rows, float *Mdata, KaldiBlasInt *ipiv, KaldiBlasInt *result) { - ssptrf_(const_cast("U"), num_rows, Mdata, ipiv, result); + ssptrf_(const_cast("U"), num_rows, Mdata, ipiv, result, 1); } void inline clapack_Xsptrf(KaldiBlasInt *num_rows, double *Mdata, KaldiBlasInt *ipiv, KaldiBlasInt *result) { - dsptrf_(const_cast("U"), num_rows, Mdata, ipiv, result); + dsptrf_(const_cast("U"), num_rows, Mdata, ipiv, result, 1); } #else inline void clapack_Xgetrf(MatrixIndexT num_rows, MatrixIndexT num_cols,