* d1mach.f  Do not edit.  Generated automatically by gen-d1mach.c
      double precision function d1mach(i)
      integer i
      integer i1var (2)
      integer i2var (2)
      integer i3var (2)
      integer i4var (2)
      integer i5var (2)
      double precision dmach(5)
      equivalence (dmach(1), i1var(1))
      equivalence (dmach(2), i2var(1))
      equivalence (dmach(3), i3var(1))
      equivalence (dmach(4), i4var(1))
      equivalence (dmach(5), i5var(1))
      data i1var(1), i1var(2) / 0 , 1048576 /
      data i2var(1), i2var(2) / -1 , 2146435071 /
      data i3var(1), i3var(2) / 0 , 1017118720 /
      data i4var(1), i4var(2) / 0 , 1018167296 /
      data i5var(1), i5var(2) / 1352628735 , 1070810131 /
      if (i .lt. 1  .or.  i .gt. 5) goto 999
      d1mach = dmach(i)
      return
  999 write(*,1999) i
 1999 format(' d1mach - i out of bounds', i10)
      call xstopx (' ')
      d1mach = 0
      end
