1 files changed, 0 insertions, 8 deletions

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