From eb315f1aad7771cb5be9ce6892aee4a05205c35e Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Wed, 14 May 2014 20:52:42 +0200
Subject: fix size bug

---
 packages/base/src/C/vector-aux.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'packages')

diff --git a/packages/base/src/C/vector-aux.c b/packages/base/src/C/vector-aux.c
index 31053ab..978d6b4 100644
--- a/packages/base/src/C/vector-aux.c
+++ b/packages/base/src/C/vector-aux.c
@@ -199,7 +199,7 @@ int toScalarR(int code, KDVEC(x), DVEC(r)) {
     DEBUGMSG("toScalarR");
     double res;
     integer one = 1;
-    integer n = rn;
+    integer n = xn;
     switch(code) {
         case 0: { res = dnrm2_(&n,xp,&one); break; }
         case 1: { res = dasum_(&n,xp,&one);  break; }
@@ -265,7 +265,7 @@ int toScalarF(int code, KFVEC(x), FVEC(r)) {
     DEBUGMSG("toScalarF");
     float res;
     integer one = 1;
-    integer n = rn;
+    integer n = xn;
     switch(code) {
         case 0: { res = snrm2_(&n,xp,&one); break; }
         case 1: { res = sasum_(&n,xp,&one);  break; }
@@ -287,7 +287,7 @@ int toScalarC(int code, KCVEC(x), DVEC(r)) {
     DEBUGMSG("toScalarC");
     double res;
     integer one = 1;
-    integer n = rn;
+    integer n = xn;
     switch(code) {
         case 0: { res = dznrm2_(&n,xp,&one); break; }
         case 1: { res = dzasum_(&n,xp,&one);  break; }
@@ -306,7 +306,7 @@ int toScalarQ(int code, KQVEC(x), FVEC(r)) {
     DEBUGMSG("toScalarQ");
     float res;
     integer one = 1;
-    integer n = rn;
+    integer n = xn;
     switch(code) {
         case 0: { res = scnrm2_(&n,xp,&one); break; }
         case 1: { res = scasum_(&n,xp,&one);  break; }
-- 
cgit v1.2.3