program main
      integer i
      double precision d1mach
      do 10 i = 1, 5
        print *, d1mach (i)
   10 continue
      end