diff options
Diffstat (limited to 'lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h')
-rw-r--r-- | lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h index 23e5e28..3f58243 100644 --- a/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h +++ b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h | |||
@@ -45,11 +45,15 @@ typedef short ftnlen; | |||
45 | #define DMAT(A) int A##r, int A##c, double* A##p | 45 | #define DMAT(A) int A##r, int A##c, double* A##p |
46 | #define CMAT(A) int A##r, int A##c, double* A##p | 46 | #define CMAT(A) int A##r, int A##c, double* A##p |
47 | 47 | ||
48 | // const pointer versions for the parameters | ||
49 | #define KDVEC(A) int A##n, const double*A##p | 48 | #define KDVEC(A) int A##n, const double*A##p |
50 | #define KCVEC(A) int A##n, const double*A##p | 49 | #define KCVEC(A) int A##n, const double*A##p |
51 | #define KDMAT(A) int A##r, int A##c, const double* A##p | 50 | #define KDMAT(A) int A##r, int A##c, const double* A##p |
52 | #define KCMAT(A) int A##r, int A##c, const double* A##p | 51 | #define KCMAT(A) int A##r, int A##c, const double* A##p |
52 | |||
53 | /********************************************************/ | ||
54 | |||
55 | int multiplyR(int ta, int tb, KDMAT(a),KDMAT(b),DMAT(r)); | ||
56 | int multiplyC(int ta, int tb, KCMAT(a),KCMAT(b),CMAT(r)); | ||
53 | 57 | ||
54 | int svd_l_R(KDMAT(x),DMAT(u),DVEC(s),DMAT(v)); | 58 | int svd_l_R(KDMAT(x),DMAT(u),DVEC(s),DMAT(v)); |
55 | int svd_l_Rdd(KDMAT(x),DMAT(u),DVEC(s),DMAT(v)); | 59 | int svd_l_Rdd(KDMAT(x),DMAT(u),DVEC(s),DMAT(v)); |