From a74183ddb4ab8383bfe214b3745eb8a0a99ee47a Mon Sep 17 00:00:00 2001 From: Determinant Date: Thu, 25 Jun 2015 12:56:45 +0800 Subject: let HTK I/O implementation be a single package --- tnet_io/KaldiLib/clapack.cc | 61 --------------------------------------------- 1 file changed, 61 deletions(-) delete mode 100644 tnet_io/KaldiLib/clapack.cc (limited to 'tnet_io/KaldiLib/clapack.cc') diff --git a/tnet_io/KaldiLib/clapack.cc b/tnet_io/KaldiLib/clapack.cc deleted file mode 100644 index a486bef..0000000 --- a/tnet_io/KaldiLib/clapack.cc +++ /dev/null @@ -1,61 +0,0 @@ - -extern "C" { - - /** - * Wrapper to GotoBLAS lapack for STK and TNet (sgetrf sgetri dgetrf dgetri) - */ - typedef float real; - typedef double doublereal; - typedef int integer; - - - /** - * The lapack interface (used in gotoblas) - */ - /* Subroutine */ int sgetrf_(integer *m, integer *n, real *a, integer *lda, - integer *ipiv, integer *info); - /* Subroutine */ int sgetri_(integer *n, real *a, integer *lda, integer *ipiv, - real *work, integer *lwork, integer *info); - /* Subroutine */ int dgetrf_(integer *m, integer *n, doublereal *a, integer * - lda, integer *ipiv, integer *info); - /* Subroutine */ int dgetri_(integer *n, doublereal *a, integer *lda, integer - *ipiv, doublereal *work, integer *lwork, integer *info); - - - - - - /** - * The clapack interface as used by ATLAS (used in STK, - */ - enum CBLAS_ORDER {CblasRowMajor=101, CblasColMajor=102 }; - - int clapack_sgetrf(const enum CBLAS_ORDER Order, const int M, const int N, - float *A, const int lda, int *ipiv) - { - return sgetrf_((int*)&M, (int*)&N, A, (int*)&lda, (int*)ipiv, 0); - } - - - int clapack_sgetri(const enum CBLAS_ORDER Order, const int N, float *A, - const int lda, const int *ipiv) - { - return sgetri_((int*)&N, A, (int*)&lda, (int*)ipiv, 0, 0, 0); - } - - - int clapack_dgetrf(const enum CBLAS_ORDER Order, const int M, const int N, - double *A, const int lda, int *ipiv) - { - return dgetrf_((int*)&M, (int*)&N, A, (int*)&lda, (int*)ipiv, 0); - } - - - int clapack_dgetri(const enum CBLAS_ORDER Order, const int N, double *A, - const int lda, const int *ipiv) - { - return dgetri_((int*)&N, A, (int*)&lda, (int*)ipiv, 0, 0, 0); - } - - -} -- cgit v1.2.3-70-g09d2