From 958577cac90a99124cd673fde1926781d966d91f Mon Sep 17 00:00:00 2001
From: Ankit Raj
Date: Wed, 21 Jun 2017 10:26:59 +0530
Subject: Updated Scilab2C

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

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

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