From 71b6a5f646a422106c566c289020064f1934c1c0 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Fri, 5 Jun 2015 16:14:10 +0200
Subject: remove  transP and constantP

---
 packages/base/src/Internal/C/lapack-aux.c | 12 ------------
 packages/base/src/Internal/C/vector-aux.c |  8 --------
 2 files changed, 20 deletions(-)

(limited to 'packages')

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)) {
-- 
cgit v1.2.3