diff options
Diffstat (limited to 'lib/Data/Packed/Internal/aux.h')
-rw-r--r-- | lib/Data/Packed/Internal/aux.h | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/lib/Data/Packed/Internal/aux.h b/lib/Data/Packed/Internal/aux.h deleted file mode 100644 index 73334e3..0000000 --- a/lib/Data/Packed/Internal/aux.h +++ /dev/null | |||
@@ -1,30 +0,0 @@ | |||
1 | #include <gsl/gsl_complex.h> | ||
2 | |||
3 | #define RVEC(A) int A##n, double*A##p | ||
4 | #define RMAT(A) int A##r, int A##c, double* A##p | ||
5 | #define KRVEC(A) int A##n, const double*A##p | ||
6 | #define KRMAT(A) int A##r, int A##c, const double* A##p | ||
7 | |||
8 | #define CVEC(A) int A##n, gsl_complex*A##p | ||
9 | #define CMAT(A) int A##r, int A##c, gsl_complex* A##p | ||
10 | #define KCVEC(A) int A##n, const gsl_complex*A##p | ||
11 | #define KCMAT(A) int A##r, int A##c, const gsl_complex* A##p | ||
12 | |||
13 | |||
14 | int transR(KRMAT(x),RMAT(t)); | ||
15 | int transC(KCMAT(x),CMAT(t)); | ||
16 | |||
17 | int constantR(double *val , RVEC(r)); | ||
18 | int constantC(gsl_complex *val, CVEC(r)); | ||
19 | |||
20 | int multiplyR(int ta, KRMAT(a), int tb, KRMAT(b),RMAT(r)); | ||
21 | int multiplyC(int ta, KCMAT(a), int tb, KCMAT(b),CMAT(r)); | ||
22 | |||
23 | int submatrixR(int r1, int r2, int c1, int c2, KRMAT(x),RMAT(r)); | ||
24 | |||
25 | int diagR(KRVEC(d),RMAT(r)); | ||
26 | int diagC(KCVEC(d),CMAT(r)); | ||
27 | |||
28 | const char * gsl_strerror (const int gsl_errno); | ||
29 | |||
30 | int matrix_fscanf(char*filename, RMAT(a)); | ||