From 624046d6b55d37104f950e8888ab68c53a2e6bf0 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Wed, 24 Jun 2015 17:07:29 +0200
Subject: initial support of sliceMatrix, remove transdata

---
 packages/base/src/Internal/C/lapack-aux.c | 20 --------------------
 1 file changed, 20 deletions(-)

(limited to 'packages/base/src/Internal/C')

diff --git a/packages/base/src/Internal/C/lapack-aux.c b/packages/base/src/Internal/C/lapack-aux.c
index 4d48594..cdbaab9 100644
--- a/packages/base/src/Internal/C/lapack-aux.c
+++ b/packages/base/src/Internal/C/lapack-aux.c
@@ -1485,26 +1485,6 @@ int smTXv(KDVEC(vals),KIVEC(cols),KIVEC(rows),KDVEC(x),DVEC(r)) {
 }
 
 
-//////////////////// transpose /////////////////////////
-
-#define TRANS_IMP {                       \
-    REQUIRES(xr==tc && xc==tr,BAD_SIZE);  \
-    DEBUGMSG("trans");                    \
-    int i,j;                              \
-    for (i=0; i<tr; i++) {                \
-        for (j=0; j<tc; j++) {            \
-            tp[i*tc+j] = xp[j*xc+i];      \
-        }                                 \
-    }                                     \
-    OK }
-
-int transF(KFMAT(x),FMAT(t)) TRANS_IMP
-int transR(KDMAT(x),DMAT(t)) TRANS_IMP
-int transQ(KQMAT(x),QMAT(t)) TRANS_IMP
-int transC(KCMAT(x),CMAT(t)) TRANS_IMP
-int transI(KIMAT(x),IMAT(t)) TRANS_IMP
-int transL(KLMAT(x),LMAT(t)) TRANS_IMP
-
 //////////////////////// extract /////////////////////////////////
 
 #define EXTRACT_IMP {                      \
-- 
cgit v1.2.3