summaryrefslogtreecommitdiff
path: root/packages/base/src/C/vector-aux.c
diff options
context:
space:
mode:
Diffstat (limited to 'packages/base/src/C/vector-aux.c')
-rw-r--r--packages/base/src/C/vector-aux.c8
1 files changed, 4 insertions, 4 deletions
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)) {
199 DEBUGMSG("toScalarR"); 199 DEBUGMSG("toScalarR");
200 double res; 200 double res;
201 integer one = 1; 201 integer one = 1;
202 integer n = rn; 202 integer n = xn;
203 switch(code) { 203 switch(code) {
204 case 0: { res = dnrm2_(&n,xp,&one); break; } 204 case 0: { res = dnrm2_(&n,xp,&one); break; }
205 case 1: { res = dasum_(&n,xp,&one); break; } 205 case 1: { res = dasum_(&n,xp,&one); break; }
@@ -265,7 +265,7 @@ int toScalarF(int code, KFVEC(x), FVEC(r)) {
265 DEBUGMSG("toScalarF"); 265 DEBUGMSG("toScalarF");
266 float res; 266 float res;
267 integer one = 1; 267 integer one = 1;
268 integer n = rn; 268 integer n = xn;
269 switch(code) { 269 switch(code) {
270 case 0: { res = snrm2_(&n,xp,&one); break; } 270 case 0: { res = snrm2_(&n,xp,&one); break; }
271 case 1: { res = sasum_(&n,xp,&one); break; } 271 case 1: { res = sasum_(&n,xp,&one); break; }
@@ -287,7 +287,7 @@ int toScalarC(int code, KCVEC(x), DVEC(r)) {
287 DEBUGMSG("toScalarC"); 287 DEBUGMSG("toScalarC");
288 double res; 288 double res;
289 integer one = 1; 289 integer one = 1;
290 integer n = rn; 290 integer n = xn;
291 switch(code) { 291 switch(code) {
292 case 0: { res = dznrm2_(&n,xp,&one); break; } 292 case 0: { res = dznrm2_(&n,xp,&one); break; }
293 case 1: { res = dzasum_(&n,xp,&one); break; } 293 case 1: { res = dzasum_(&n,xp,&one); break; }
@@ -306,7 +306,7 @@ int toScalarQ(int code, KQVEC(x), FVEC(r)) {
306 DEBUGMSG("toScalarQ"); 306 DEBUGMSG("toScalarQ");
307 float res; 307 float res;
308 integer one = 1; 308 integer one = 1;
309 integer n = rn; 309 integer n = xn;
310 switch(code) { 310 switch(code) {
311 case 0: { res = scnrm2_(&n,xp,&one); break; } 311 case 0: { res = scnrm2_(&n,xp,&one); break; }
312 case 1: { res = scasum_(&n,xp,&one); break; } 312 case 1: { res = scasum_(&n,xp,&one); break; }