remove transP and constantP

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)) {
     OK
 }
 
-int transP(KPMAT(x), PMAT(t)) {
-    REQUIRES(xr==tc && xc==tr,BAD_SIZE);
-    REQUIRES(xs==ts,NOCONVER);
-    DEBUGMSG("transP");
-    int i,j;
-    for (i=0; i<tr; i++) {
-        for (j=0; j<tc; j++) {
-          memcpy(tp+(i*tc+j)*xs,xp +(j*xc+i)*xs,xs);
-        }
-    }
-    OK
-}
 
 int transI(KIMAT(x),IMAT(t)) {
     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)) {
     OK
 }
 
-int constantP(void* pval, PVEC(r)) {
-    DEBUGMSG("constantP")
-    int k;
-    for(k=0;k<rn;k++) {
-      memcpy(rp+k*rs,pval,rs);
-    }
-    OK
-}
 
 
 int constantI(int * pval, IVEC(r)) {