diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-06-24 17:07:29 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-06-24 17:07:29 +0200 |
commit | 624046d6b55d37104f950e8888ab68c53a2e6bf0 (patch) | |
tree | 664fa33c2c995078439f277c0d6147ca0ad8ffe4 /packages/base/src/Internal/C/lapack-aux.c | |
parent | fbff5949bba157b0da08a4b59124c7976289fb65 (diff) |
initial support of sliceMatrix, remove transdata
Diffstat (limited to 'packages/base/src/Internal/C/lapack-aux.c')
-rw-r--r-- | packages/base/src/Internal/C/lapack-aux.c | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/packages/base/src/Internal/C/lapack-aux.c b/packages/base/src/Internal/C/lapack-aux.c index 4d48594..cdbaab9 100644 --- a/packages/base/src/Internal/C/lapack-aux.c +++ b/packages/base/src/Internal/C/lapack-aux.c | |||
@@ -1485,26 +1485,6 @@ int smTXv(KDVEC(vals),KIVEC(cols),KIVEC(rows),KDVEC(x),DVEC(r)) { | |||
1485 | } | 1485 | } |
1486 | 1486 | ||
1487 | 1487 | ||
1488 | //////////////////// transpose ///////////////////////// | ||
1489 | |||
1490 | #define TRANS_IMP { \ | ||
1491 | REQUIRES(xr==tc && xc==tr,BAD_SIZE); \ | ||
1492 | DEBUGMSG("trans"); \ | ||
1493 | int i,j; \ | ||
1494 | for (i=0; i<tr; i++) { \ | ||
1495 | for (j=0; j<tc; j++) { \ | ||
1496 | tp[i*tc+j] = xp[j*xc+i]; \ | ||
1497 | } \ | ||
1498 | } \ | ||
1499 | OK } | ||
1500 | |||
1501 | int transF(KFMAT(x),FMAT(t)) TRANS_IMP | ||
1502 | int transR(KDMAT(x),DMAT(t)) TRANS_IMP | ||
1503 | int transQ(KQMAT(x),QMAT(t)) TRANS_IMP | ||
1504 | int transC(KCMAT(x),CMAT(t)) TRANS_IMP | ||
1505 | int transI(KIMAT(x),IMAT(t)) TRANS_IMP | ||
1506 | int transL(KLMAT(x),LMAT(t)) TRANS_IMP | ||
1507 | |||
1508 | //////////////////////// extract ///////////////////////////////// | 1488 | //////////////////////// extract ///////////////////////////////// |
1509 | 1489 | ||
1510 | #define EXTRACT_IMP { \ | 1490 | #define EXTRACT_IMP { \ |