diff options
| author | Charles.Forsyth <devnull@localhost> | 2008-11-12 13:46:25 +0000 |
|---|---|---|
| committer | Charles.Forsyth <devnull@localhost> | 2008-11-12 13:46:25 +0000 |
| commit | 80a374407c3c8837c0e30f32486af86b7c30cded (patch) | |
| tree | 85c3efb8c030519b84928875ac6867477f7366b5 /libmath/blas.c | |
| parent | 48063faf7937a148e85991c463bf91e78213ebf1 (diff) | |
20081112-1346
Diffstat (limited to 'libmath/blas.c')
| -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; } |