summaryrefslogtreecommitdiff
path: root/tnet_io/KaldiLib/clapack.cc
diff options
context:
space:
mode:
authorDeterminant <[email protected]>2015-06-25 12:56:45 +0800
committerDeterminant <[email protected]>2015-06-25 12:56:45 +0800
commita74183ddb4ab8383bfe214b3745eb8a0a99ee47a (patch)
treed5e69cf8c4c2db2e3a4722778352fc3c95953bb2 /tnet_io/KaldiLib/clapack.cc
parentb6301089cde20f4c825c7f5deaf179082aad63da (diff)
let HTK I/O implementation be a single package
Diffstat (limited to 'tnet_io/KaldiLib/clapack.cc')
-rw-r--r--tnet_io/KaldiLib/clapack.cc61
1 files changed, 0 insertions, 61 deletions
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);
- }
-
-
-}