summaryrefslogtreecommitdiff
path: root/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h')
-rw-r--r--lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h8
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
55int multiplyR(int ta, int tb, KDMAT(a),KDMAT(b),DMAT(r));
56int multiplyC(int ta, int tb, KCMAT(a),KCMAT(b),CMAT(r));
53 57
54int svd_l_R(KDMAT(x),DMAT(u),DVEC(s),DMAT(v)); 58int svd_l_R(KDMAT(x),DMAT(u),DVEC(s),DMAT(v));
55int svd_l_Rdd(KDMAT(x),DMAT(u),DVEC(s),DMAT(v)); 59int svd_l_Rdd(KDMAT(x),DMAT(u),DVEC(s),DMAT(v));