From 60d0be0e971c064ea7a2bee0cb1247c387e18b3c Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Sat, 8 Feb 2025 23:42:21 +0100
Subject: [PATCH] Update nrm2.c

---
 interface/nrm2.c | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/interface/nrm2.c b/interface/nrm2.c
index 22b24396f..cfeb13df8 100644
--- a/interface/nrm2.c
+++ b/interface/nrm2.c
@@ -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)