website/archive/binaries/mac/src/disembl/Tisean_3.0.1/source_f/slatec/d1mach.f

   1       DOUBLE PRECISION FUNCTION D1MACH (I)
   2 c this is not the original one from slatec
   3       double precision const(5)
   4 c small:
   5       DATA const(1) / 2.23D-308  /
   6 c large:
   7       DATA const(2) / 1.79D+308  /
   8 c diff:
   9       DATA const(3) / 1.11D-16   /
  10       DATA const(4) / 2.22D-16   /
  11 c log10:
  12       DATA const(5) / 0.301029995663981195D0 /
  13
  14 C***FIRST EXECUTABLE STATEMENT  D1MACH
  15 C
  16       D1MACH = const(I)
  17       RETURN
  18 C
  19       END