diff options
Diffstat (limited to 'packages/base/src')
-rw-r--r-- | packages/base/src/Internal/C/lapack-aux.c | 12 | ||||
-rw-r--r-- | packages/base/src/Internal/C/vector-aux.c | 8 |
2 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 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 | ||
1382 | int 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 | ||
1395 | int transI(KIMAT(x),IMAT(t)) { | 1383 | int transI(KIMAT(x),IMAT(t)) { |
1396 | REQUIRES(xr==tc && xc==tr,BAD_SIZE); | 1384 | REQUIRES(xr==tc && xc==tr,BAD_SIZE); |
diff --git a/packages/base/src/Internal/C/vector-aux.c b/packages/base/src/Internal/C/vector-aux.c index a260f1e..fcc9dbd 100644 --- a/packages/base/src/Internal/C/vector-aux.c +++ b/packages/base/src/Internal/C/vector-aux.c | |||
@@ -1130,14 +1130,6 @@ int constantC(doublecomplex* pval, CVEC(r)) { | |||
1130 | OK | 1130 | OK |
1131 | } | 1131 | } |
1132 | 1132 | ||
1133 | int constantP(void* pval, PVEC(r)) { | ||
1134 | DEBUGMSG("constantP") | ||
1135 | int k; | ||
1136 | for(k=0;k<rn;k++) { | ||
1137 | memcpy(rp+k*rs,pval,rs); | ||
1138 | } | ||
1139 | OK | ||
1140 | } | ||
1141 | 1133 | ||
1142 | 1134 | ||
1143 | int constantI(int * pval, IVEC(r)) { | 1135 | int constantI(int * pval, IVEC(r)) { |