diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-06-27 09:15:27 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-06-27 09:15:27 +0200 |
commit | 4d96b90c4cfd38cdb51f3dc66a8a644bd87cdbff (patch) | |
tree | d7b82283f08e5947b06fdec4f403a5bc87c09f35 /packages/base/src/Internal/C/lapack-aux.h | |
parent | 624046d6b55d37104f950e8888ab68c53a2e6bf0 (diff) |
use slice interface for lapack funcs (wip)
Diffstat (limited to 'packages/base/src/Internal/C/lapack-aux.h')
-rw-r--r-- | packages/base/src/Internal/C/lapack-aux.h | 32 |
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++) |