| @@ -128,19 +128,13 @@ FLOAT CNAME(blasint n, FLOAT *x, blasint incx){ | |||||
| if (n <= 0) return 0.; | if (n <= 0) return 0.; | ||||
| if (n == 1) | |||||
| #ifndef COMPLEX | #ifndef COMPLEX | ||||
| if (n == 1) | |||||
| #ifdef DOUBLE | #ifdef DOUBLE | ||||
| return fabs(x[0]); | return fabs(x[0]); | ||||
| #else | #else | ||||
| return fabsf(x[0]); | return fabsf(x[0]); | ||||
| #endif | #endif | ||||
| #else | |||||
| #ifdef DOUBLE | |||||
| return fabs(x[0]+fabs(x[1])); | |||||
| #else | |||||
| return fabsf(x[0]+fabsf(x[1])); | |||||
| #endif | |||||
| #endif | #endif | ||||
| if (incx == 0) | if (incx == 0) | ||||