From b43eccd4cffed5bd1017c5821524fb6e49202f78 Mon Sep 17 00:00:00 2001
From: Sandeep Gupta
Date: Sun, 18 Jun 2017 23:55:40 +0530
Subject: First commit

---
 2.3-1/src/fortran/blas/dcabs1.f | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 2.3-1/src/fortran/blas/dcabs1.f

(limited to '2.3-1/src/fortran/blas/dcabs1.f')

diff --git a/2.3-1/src/fortran/blas/dcabs1.f b/2.3-1/src/fortran/blas/dcabs1.f
new file mode 100644
index 00000000..385ea5e1
--- /dev/null
+++ b/2.3-1/src/fortran/blas/dcabs1.f
@@ -0,0 +1,8 @@
+      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
-- 
cgit