1 files changed, 0 insertions, 8 deletions
diff --git a/src/lib/blas/dcabs1.f b/src/lib/blas/dcabs1.f
deleted file mode 100644
index 385ea5e1..00000000
--- a/src/lib/blas/dcabs1.f
+++ /dev/null
@@ -1,8 +0,0 @@
-      double precision function dcabs1(z)
-      double complex z,zz
-      double precision t(2)
-      equivalence (zz,t(1))
-      zz = z
-      dcabs1 = dabs(t(1)) + dabs(t(2))
-      return
-      end