binaries/src/disembl/Tisean_3.0.1/source_f/slatec/r1mach.f

   1       FUNCTION r1MACH (I)
   2 c this is not the original one from slatec
   3       dimension const(5)
   4 c small:
   5       DATA const(1) / 1.18E-38      /
   6 c large:
   7       DATA const(2) / 3.40E+38      /
   8 c diff:
   9       DATA const(3) / 0.595E-07     /
  10       DATA const(4) / 1.19E-07      /
  11 c log10:
  12       DATA const(5) / 0.30102999566 /
  13
  14 C***FIRST EXECUTABLE STATEMENT  R1MACH
  15 C
  16       R1MACH = const(I)
  17       RETURN
  18 C
  19       END
  20
  21