remove transP and constantP

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)) {
     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);