diff options
Diffstat (limited to 'lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h')
-rw-r--r-- | lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h index 415a6ab..d01d9e5 100644 --- a/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h +++ b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h | |||
@@ -42,16 +42,20 @@ typedef short ftnlen; | |||
42 | 42 | ||
43 | #define FVEC(A) int A##n, float*A##p | 43 | #define FVEC(A) int A##n, float*A##p |
44 | #define DVEC(A) int A##n, double*A##p | 44 | #define DVEC(A) int A##n, double*A##p |
45 | #define QVEC(A) int A##n, float*A##p | ||
45 | #define CVEC(A) int A##n, double*A##p | 46 | #define CVEC(A) int A##n, double*A##p |
46 | #define FMAT(A) int A##r, int A##c, float* A##p | 47 | #define FMAT(A) int A##r, int A##c, float* A##p |
47 | #define DMAT(A) int A##r, int A##c, double* A##p | 48 | #define DMAT(A) int A##r, int A##c, double* A##p |
49 | #define QMAT(A) int A##r, int A##c, float* A##p | ||
48 | #define CMAT(A) int A##r, int A##c, double* A##p | 50 | #define CMAT(A) int A##r, int A##c, double* A##p |
49 | 51 | ||
50 | #define KFVEC(A) int A##n, const float*A##p | 52 | #define KFVEC(A) int A##n, const float*A##p |
51 | #define KDVEC(A) int A##n, const double*A##p | 53 | #define KDVEC(A) int A##n, const double*A##p |
54 | #define KQVEC(A) int A##n, const float*A##p | ||
52 | #define KCVEC(A) int A##n, const double*A##p | 55 | #define KCVEC(A) int A##n, const double*A##p |
53 | #define KFMAT(A) int A##r, int A##c, const float* A##p | 56 | #define KFMAT(A) int A##r, int A##c, const float* A##p |
54 | #define KDMAT(A) int A##r, int A##c, const double* A##p | 57 | #define KDMAT(A) int A##r, int A##c, const double* A##p |
58 | #define KQMAT(A) int A##r, int A##c, const float* A##p | ||
55 | #define KCMAT(A) int A##r, int A##c, const double* A##p | 59 | #define KCMAT(A) int A##r, int A##c, const double* A##p |
56 | 60 | ||
57 | /********************************************************/ | 61 | /********************************************************/ |
@@ -61,10 +65,12 @@ int multiplyC(int ta, int tb, KCMAT(a),KCMAT(b),CMAT(r)); | |||
61 | 65 | ||
62 | int transF(KFMAT(x),FMAT(t)); | 66 | int transF(KFMAT(x),FMAT(t)); |
63 | int transR(KDMAT(x),DMAT(t)); | 67 | int transR(KDMAT(x),DMAT(t)); |
68 | int transQ(KQMAT(x),QMAT(t)); | ||
64 | int transC(KCMAT(x),CMAT(t)); | 69 | int transC(KCMAT(x),CMAT(t)); |
65 | 70 | ||
66 | int constantF(float * pval, FVEC(r)); | 71 | int constantF(float * pval, FVEC(r)); |
67 | int constantR(double * pval, DVEC(r)); | 72 | int constantR(double * pval, DVEC(r)); |
73 | int constantQ(complex* pval, QVEC(r)); | ||
68 | int constantC(doublecomplex* pval, CVEC(r)); | 74 | int constantC(doublecomplex* pval, CVEC(r)); |
69 | 75 | ||
70 | int svd_l_R(KDMAT(x),DMAT(u),DVEC(s),DMAT(v)); | 76 | int svd_l_R(KDMAT(x),DMAT(u),DVEC(s),DMAT(v)); |