summaryrefslogtreecommitdiff
path: root/packages/base/src/Internal/C/lapack-aux.h
diff options
context:
space:
mode:
Diffstat (limited to 'packages/base/src/Internal/C/lapack-aux.h')
-rw-r--r--packages/base/src/Internal/C/lapack-aux.h32
1 files changed, 16 insertions, 16 deletions
diff --git a/packages/base/src/Internal/C/lapack-aux.h b/packages/base/src/Internal/C/lapack-aux.h
index bf8c5e9..b38ca7a 100644
--- a/packages/base/src/Internal/C/lapack-aux.h
+++ b/packages/base/src/Internal/C/lapack-aux.h
@@ -52,16 +52,6 @@ typedef short ftnlen;
52#define CMAT(A) int A##r, int A##c, doublecomplex* A##p 52#define CMAT(A) int A##r, int A##c, doublecomplex* A##p
53#define PMAT(A) int A##r, int A##c, void* A##p, int A##s 53#define PMAT(A) int A##r, int A##c, void* A##p, int A##s
54 54
55#define OIMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, int* A##p
56#define OLMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, int64_t* A##p
57#define OFMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, float* A##p
58#define ODMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, double* A##p
59#define OQMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, complex* A##p
60#define OCMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, doublecomplex* A##p
61
62#define VECG(T,A) int A##n, T* A##p
63#define MATG(T,A) int A##r, int A##c, int A##Xr, int A##Xc, T* A##p
64
65#define KIVEC(A) int A##n, const int*A##p 55#define KIVEC(A) int A##n, const int*A##p
66#define KLVEC(A) int A##n, const int64_t*A##p 56#define KLVEC(A) int A##n, const int64_t*A##p
67#define KFVEC(A) int A##n, const float*A##p 57#define KFVEC(A) int A##n, const float*A##p
@@ -78,12 +68,22 @@ typedef short ftnlen;
78#define KCMAT(A) int A##r, int A##c, const doublecomplex* A##p 68#define KCMAT(A) int A##r, int A##c, const doublecomplex* A##p
79#define KPMAT(A) int A##r, int A##c, const void* A##p, int A##s 69#define KPMAT(A) int A##r, int A##c, const void* A##p, int A##s
80 70
81#define KOIMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, const int* A##p 71#define VECG(T,A) int A##n, T* A##p
82#define KOLMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, const int64_t* A##p 72#define MATG(T,A) int A##r, int A##c, int A##Xr, int A##Xc, T* A##p
83#define KOFMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, const float* A##p 73
84#define KODMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, const double* A##p 74#define OIMAT(A) MATG(int,A)
85#define KOQMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, const complex* A##p 75#define OLMAT(A) MATG(int64_t,A)
86#define KOCMAT(A) int A##r, int A##c, int A##Xr, int A##Xc, const doublecomplex* A##p 76#define OFMAT(A) MATG(float,A)
77#define ODMAT(A) MATG(double,A)
78#define OQMAT(A) MATG(complex,A)
79#define OCMAT(A) MATG(doublecomplex,A)
80
81#define KOIMAT(A) MATG(const int,A)
82#define KOLMAT(A) MATG(const int64_t,A)
83#define KOFMAT(A) MATG(const float,A)
84#define KODMAT(A) MATG(const double,A)
85#define KOQMAT(A) MATG(const complex,A)
86#define KOCMAT(A) MATG(const doublecomplex,A)
87 87
88#define AT(m,i,j) (m##p[(i)*m##Xr + (j)*m##Xc]) 88#define AT(m,i,j) (m##p[(i)*m##Xr + (j)*m##Xc])
89#define TRAV(m,i,j) int i,j; for (i=0;i<m##r;i++) for (j=0;j<m##c;j++) 89#define TRAV(m,i,j) int i,j; for (i=0;i<m##r;i++) for (j=0;j<m##c;j++)