1 DOUBLE PRECISION FUNCTION D1MACH (I)
2 c this is not the original one from slatec
3 double precision const(5)
5 DATA const(1) / 2.23D-308 /
7 DATA const(2) / 1.79D+308 /
9 DATA const(3) / 1.11D-16 /
10 DATA const(4) / 2.22D-16 /
12 DATA const(5) / 0.301029995663981195D0 /
14 C***FIRST EXECUTABLE STATEMENT D1MACH