summaryrefslogtreecommitdiff
path: root/src/lib/blas/dcabs1.f
diff options
context:
space:
mode:
authorjofret2009-04-28 07:17:27 +0000
committerjofret2009-04-28 07:17:27 +0000
commitb4291825aaa210d693f4f858e1c8c25f514a3f71 (patch)
tree4ba928deac68d7098a7043cd286acb23351825d8 /src/lib/blas/dcabs1.f
parent8c8d2f518968ce7057eec6aa5cd5aec8faab861a (diff)
downloadscilab2c-b4291825aaa210d693f4f858e1c8c25f514a3f71.tar.gz
scilab2c-b4291825aaa210d693f4f858e1c8c25f514a3f71.tar.bz2
scilab2c-b4291825aaa210d693f4f858e1c8c25f514a3f71.zip
Moving blas to right place
Diffstat (limited to 'src/lib/blas/dcabs1.f')
-rw-r--r--src/lib/blas/dcabs1.f8
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