diff options
Diffstat (limited to 'lib/LAPACK/lapack-aux.h')
-rw-r--r-- | lib/LAPACK/lapack-aux.h | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/lib/LAPACK/lapack-aux.h b/lib/LAPACK/lapack-aux.h deleted file mode 100644 index ea71847..0000000 --- a/lib/LAPACK/lapack-aux.h +++ /dev/null | |||
@@ -1,46 +0,0 @@ | |||
1 | #include "f2c.h" | ||
2 | #include "clapack.h" | ||
3 | |||
4 | #define DVEC(A) int A##n, double*A##p | ||
5 | #define CVEC(A) int A##n, double*A##p | ||
6 | #define DMAT(A) int A##r, int A##c, double* A##p | ||
7 | #define CMAT(A) int A##r, int A##c, double* A##p | ||
8 | |||
9 | // const pointer versions for the parameters | ||
10 | #define KDVEC(A) int A##n, const double*A##p | ||
11 | #define KCVEC(A) int A##n, const double*A##p | ||
12 | #define KDMAT(A) int A##r, int A##c, const double* A##p | ||
13 | #define KCMAT(A) int A##r, int A##c, const double* A##p | ||
14 | |||
15 | int svd_l_R(KDMAT(x),DMAT(u),DVEC(s),DMAT(v)); | ||
16 | int svd_l_Rdd(KDMAT(x),DMAT(u),DVEC(s),DMAT(v)); | ||
17 | |||
18 | int svd_l_C(KCMAT(a),CMAT(u),DVEC(s),CMAT(v)); | ||
19 | |||
20 | int eig_l_C(KCMAT(a),CMAT(u),CVEC(s),CMAT(v)); | ||
21 | |||
22 | int eig_l_R(KDMAT(a),DMAT(u),CVEC(s),DMAT(v)); | ||
23 | |||
24 | int eig_l_S(KDMAT(a),DVEC(s),DMAT(v)); | ||
25 | |||
26 | int eig_l_H(KCMAT(a),DVEC(s),CMAT(v)); | ||
27 | |||
28 | int linearSolveR_l(KDMAT(a),KDMAT(b),DMAT(x)); | ||
29 | |||
30 | int linearSolveC_l(KCMAT(a),KCMAT(b),CMAT(x)); | ||
31 | |||
32 | int linearSolveLSR_l(KDMAT(a),KDMAT(b),DMAT(x)); | ||
33 | |||
34 | int linearSolveLSC_l(KCMAT(a),KCMAT(b),CMAT(x)); | ||
35 | |||
36 | int linearSolveSVDR_l(double,KDMAT(a),KDMAT(b),DMAT(x)); | ||
37 | |||
38 | int linearSolveSVDC_l(double,KCMAT(a),KCMAT(b),CMAT(x)); | ||
39 | |||
40 | int chol_l_H(KCMAT(a),CMAT(r)); | ||
41 | |||
42 | int chol_l_S(KDMAT(a),DMAT(r)); | ||
43 | |||
44 | int qr_l_R(KDMAT(a), DVEC(tau), DMAT(r)); | ||
45 | |||
46 | int qr_l_C(KCMAT(a), CVEC(tau), CMAT(r)); | ||