summaryrefslogtreecommitdiff
path: root/lib/LAPACK/lapack-aux.h
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2007-09-30 10:38:59 +0000
committerAlberto Ruiz <aruiz@um.es>2007-09-30 10:38:59 +0000
commit13dfe14e171941b3ca82cd858973e3681d7b254e (patch)
treec3e65613af8d5301f67aeac66c560aaf997fa04a /lib/LAPACK/lapack-aux.h
parentc54d047956412dafc8e2a11f5c5f11733d330d68 (diff)
move LAPACK under LinearAlgebra
Diffstat (limited to 'lib/LAPACK/lapack-aux.h')
-rw-r--r--lib/LAPACK/lapack-aux.h46
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
15int svd_l_R(KDMAT(x),DMAT(u),DVEC(s),DMAT(v));
16int svd_l_Rdd(KDMAT(x),DMAT(u),DVEC(s),DMAT(v));
17
18int svd_l_C(KCMAT(a),CMAT(u),DVEC(s),CMAT(v));
19
20int eig_l_C(KCMAT(a),CMAT(u),CVEC(s),CMAT(v));
21
22int eig_l_R(KDMAT(a),DMAT(u),CVEC(s),DMAT(v));
23
24int eig_l_S(KDMAT(a),DVEC(s),DMAT(v));
25
26int eig_l_H(KCMAT(a),DVEC(s),CMAT(v));
27
28int linearSolveR_l(KDMAT(a),KDMAT(b),DMAT(x));
29
30int linearSolveC_l(KCMAT(a),KCMAT(b),CMAT(x));
31
32int linearSolveLSR_l(KDMAT(a),KDMAT(b),DMAT(x));
33
34int linearSolveLSC_l(KCMAT(a),KCMAT(b),CMAT(x));
35
36int linearSolveSVDR_l(double,KDMAT(a),KDMAT(b),DMAT(x));
37
38int linearSolveSVDC_l(double,KCMAT(a),KCMAT(b),CMAT(x));
39
40int chol_l_H(KCMAT(a),CMAT(r));
41
42int chol_l_S(KDMAT(a),DMAT(r));
43
44int qr_l_R(KDMAT(a), DVEC(tau), DMAT(r));
45
46int qr_l_C(KCMAT(a), CVEC(tau), CMAT(r));