summaryrefslogtreecommitdiff
path: root/packages/base/src/Internal/C/lapack-aux.c
diff options
context:
space:
mode:
Diffstat (limited to 'packages/base/src/Internal/C/lapack-aux.c')
-rw-r--r--packages/base/src/Internal/C/lapack-aux.c12
1 files changed, 0 insertions, 12 deletions
diff --git a/packages/base/src/Internal/C/lapack-aux.c b/packages/base/src/Internal/C/lapack-aux.c
index 36d1e57..063e601 100644
--- a/packages/base/src/Internal/C/lapack-aux.c
+++ b/packages/base/src/Internal/C/lapack-aux.c
@@ -1379,18 +1379,6 @@ int transC(KCMAT(x),CMAT(t)) {
1379 OK 1379 OK
1380} 1380}
1381 1381
1382int transP(KPMAT(x), PMAT(t)) {
1383 REQUIRES(xr==tc && xc==tr,BAD_SIZE);
1384 REQUIRES(xs==ts,NOCONVER);
1385 DEBUGMSG("transP");
1386 int i,j;
1387 for (i=0; i<tr; i++) {
1388 for (j=0; j<tc; j++) {
1389 memcpy(tp+(i*tc+j)*xs,xp +(j*xc+i)*xs,xs);
1390 }
1391 }
1392 OK
1393}
1394 1382
1395int transI(KIMAT(x),IMAT(t)) { 1383int transI(KIMAT(x),IMAT(t)) {
1396 REQUIRES(xr==tc && xc==tr,BAD_SIZE); 1384 REQUIRES(xr==tc && xc==tr,BAD_SIZE);