diff options
Diffstat (limited to 'packages/base/src/Internal/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 { \ |