diff options
Diffstat (limited to 'libmath')
| -rw-r--r-- | libmath/blas.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libmath/blas.c b/libmath/blas.c index a5cc9e0b..e40d2310 100644 --- a/libmath/blas.c +++ b/libmath/blas.c @@ -41,7 +41,8 @@ norm1(int n, double *x) if (n <= 0) return 0; while (n--) { - sum += fabs(*x++); + sum += fabs(*x); + x++; } return sum; } |