Mercurial > forge

view main/system-identification/devel/tisean/source_f/slatec/r1mach.f @ 9894:82ff20b4d849 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
system-identitifaction: Adding devel TISEAN files
author jpicarbajal
date Wed, 28 Mar 2012 13:32:37 +0000
parents
children
line wrap: on
line source

      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