~ubuntu-branches/debian/sid/octave-tisean/sid

« back to all changes in this revision

Viewing changes to src/source_f/slatec/d1mach.f

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

src/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

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1