Delete unneeded directory

[jabaws.git] / website / archive / binaries / mac / src / disembl / Tisean_3.0.1 / source_f / slatec / r1mach.f

diff --git a/website/archive/binaries/mac/src/disembl/Tisean_3.0.1/source_f/slatec/r1mach.f b/website/archive/binaries/mac/src/disembl/Tisean_3.0.1/source_f/slatec/r1mach.f
deleted file mode 100644 (file)
index 316afe4..0000000
--- a/website/archive/binaries/mac/src/disembl/Tisean_3.0.1/source_f/slatec/r1mach.f
+++ /dev/null
@@ -1,21 +0,0 @@
-      FUNCTION r1MACH (I)
-c this is not the original one from slatec 
-      dimension const(5)
-c small:
-      DATA const(1) / 1.18E-38      /
-c large:
-      DATA const(2) / 3.40E+38      /
-c diff:
-      DATA const(3) / 0.595E-07     /
-      DATA const(4) / 1.19E-07      /
-c log10:
-      DATA const(5) / 0.30102999566 /
-
-C***FIRST EXECUTABLE STATEMENT  R1MACH
-C
-      R1MACH = const(I)
-      RETURN
-C
-      END
-
-