git://source.jalview.org
/
jabaws.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Adding DisEMBL dependency Tisean executable
[jabaws.git]
/
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