summaryrefslogtreecommitdiff
path: root/lib/Data/Packed/Internal/auxi.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Data/Packed/Internal/auxi.c')
-rw-r--r--lib/Data/Packed/Internal/auxi.c20
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
54int 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
64int 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
75int submatrixR(int r1, int r2, int c1, int c2, KRMAT(x),RMAT(r)) { 55int 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 &&