Skip to content

Commit 60d0be0

Browse files
authored
Update nrm2.c
1 parent 0fd5448 commit 60d0be0

File tree

1 file changed

+1
-7
lines changed

1 file changed

+1
-7
lines changed

interface/nrm2.c

Lines changed: 1 addition & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -128,19 +128,13 @@ FLOAT CNAME(blasint n, FLOAT *x, blasint incx){
128128

129129
if (n <= 0) return 0.;
130130

131-
if (n == 1)
132131
#ifndef COMPLEX
132+
if (n == 1)
133133
#ifdef DOUBLE
134134
return fabs(x[0]);
135135
#else
136136
return fabsf(x[0]);
137137
#endif
138-
#else
139-
#ifdef DOUBLE
140-
return fabs(x[0]+fabs(x[1]));
141-
#else
142-
return fabsf(x[0]+fabsf(x[1]));
143-
#endif
144138
#endif
145139

146140
if (incx == 0)

0 commit comments

Comments
 (0)