diff options
author | Alberto Ruiz <aruiz@um.es> | 2008-11-08 18:18:42 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2008-11-08 18:18:42 +0000 |
commit | cbf4fdb7600949d61433623bfbd63a6ef5fe696f (patch) | |
tree | 28079a750f1dee0ac3e69bc405250a64d912e1b5 /lib/Data/Packed/Internal/auxi.c | |
parent | ed95219cc6b3fd1e6b07f36a915eb11b4c559581 (diff) |
replaced transdata
Diffstat (limited to 'lib/Data/Packed/Internal/auxi.c')
-rw-r--r-- | lib/Data/Packed/Internal/auxi.c | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/lib/Data/Packed/Internal/auxi.c b/lib/Data/Packed/Internal/auxi.c index 48b05e8..562c804 100644 --- a/lib/Data/Packed/Internal/auxi.c +++ b/lib/Data/Packed/Internal/auxi.c | |||
@@ -51,26 +51,6 @@ | |||
51 | #define MEM 2002 | 51 | #define MEM 2002 |
52 | #define BAD_FILE 2003 | 52 | #define BAD_FILE 2003 |
53 | 53 | ||
54 | int transR(KRMAT(x),RMAT(t)) { | ||
55 | REQUIRES(xr==tc && xc==tr,BAD_SIZE); | ||
56 | DEBUGMSG("transR"); | ||
57 | KDMVIEW(x); | ||
58 | DMVIEW(t); | ||
59 | int res = gsl_matrix_transpose_memcpy(M(t),M(x)); | ||
60 | CHECK(res,res); | ||
61 | OK | ||
62 | } | ||
63 | |||
64 | int transC(KCMAT(x),CMAT(t)) { | ||
65 | REQUIRES(xr==tc && xc==tr,BAD_SIZE); | ||
66 | DEBUGMSG("transC"); | ||
67 | KCMVIEW(x); | ||
68 | CMVIEW(t); | ||
69 | int res = gsl_matrix_complex_transpose_memcpy(M(t),M(x)); | ||
70 | CHECK(res,res); | ||
71 | OK | ||
72 | } | ||
73 | |||
74 | 54 | ||
75 | int submatrixR(int r1, int r2, int c1, int c2, KRMAT(x),RMAT(r)) { | 55 | int submatrixR(int r1, int r2, int c1, int c2, KRMAT(x),RMAT(r)) { |
76 | REQUIRES(0<=r1 && r1<=r2 && r2<xr && 0<=c1 && c1<=c2 && c2<xc && | 56 | REQUIRES(0<=r1 && r1<=r2 && r2<xr && 0<=c1 && c1<=c2 && c2<xc && |