Browse Source

Update nrm2.c

tags/v0.3.30
Martin Kroeker GitHub 7 months ago
parent
commit
60d0be0e97
No known key found for this signature in database GPG Key ID: B5690EEEBB952194
1 changed files with 1 additions and 7 deletions
  1. +1
    -7
      interface/nrm2.c

+ 1
- 7
interface/nrm2.c View File

@@ -128,19 +128,13 @@ FLOAT CNAME(blasint n, FLOAT *x, blasint incx){

if (n <= 0) return 0.;

if (n == 1)
#ifndef COMPLEX
if (n == 1)
#ifdef DOUBLE
return fabs(x[0]);
#else
return fabsf(x[0]);
#endif
#else
#ifdef DOUBLE
return fabs(x[0]+fabs(x[1]));
#else
return fabsf(x[0]+fabsf(x[1]));
#endif
#endif

if (incx == 0)


Loading…
Cancel
Save