diff options
author | Alberto Ruiz <aruiz@um.es> | 2014-05-14 20:52:42 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2014-05-14 20:52:42 +0200 |
commit | eb315f1aad7771cb5be9ce6892aee4a05205c35e (patch) | |
tree | 2d4af3fad75c285036aa433f7e650917c751b5bf /packages/base/src/C | |
parent | bdd718066eeb1dffc790d7f48398f24b9201c6ea (diff) |
fix size bug
Diffstat (limited to 'packages/base/src/C')
-rw-r--r-- | packages/base/src/C/vector-aux.c | 8 |
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; } |