summaryrefslogtreecommitdiff
path: root/packages/base/src
diff options
context:
space:
mode:
Diffstat (limited to 'packages/base/src')
-rw-r--r--packages/base/src/Internal/C/lapack-aux.c12
-rw-r--r--packages/base/src/Internal/C/vector-aux.c8
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
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);
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
1133int 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
1143int constantI(int * pval, IVEC(r)) { 1135int constantI(int * pval, IVEC(r)) {